


Hh 


oaneee 
ihn 


ity 
im 








JX TECHNICAL REFERENCE MANUAL 


ny.© 


IBMJ\-9F)LJ5E32-3- 





SOFTWARE PLANNING & DEVELOPMENT 
¥SBU 
DECEMBER 1984 






r 3 
ze vss 
oN ee 8 
< % 
ae ee te 
5 ; 
ee. a “ 
ee. * 
ae, 
ee 
‘. 
eae 
mee § x 
areia 
© 
> “= 
“s F. 
ped ware 
= e ’ 
a ~ ‘ 
bd , 
. e a 
ae - 
s 
4 
er. >» 
. 


lst edition Noveaber, 1984 


© Copyright International Business Machines Corporation 1984, 1985 


ae 


Preface 


This manual contains necessary information for the development 
of I/0 devices and software. To understand and utilize this 
manual in a proper manner, basic knowledge of operation of the 
IBM 5510 Personal Computer is required. The CPU of this system 
uses an INTEL 8088 microprocessor and related knowledge of it 
is also required. 

This manual consists of the following: 


Chapter 1 Introduction to the Systen 
Chapter 2 Base Systen 

Chapter 3 Video Subsystem 

Chapter 4 System Options 

Chapter 5 Software 

Chapter 6 Compatibility 


Appendix A BIOS Listing 
Appendix B Logic Diagrams 


Appendix C Character Code Table/Character Font 


First Edition (December 1984) 


International Business Machines Corporation provides this 
manual “as is" without warranty of any kind, either express or 
implied, including, but not limited to the implied warranties 
of merchantability and fitness for a particular purpose. IBM 
may make improvements and or changes in the product(s) and or 
the program(s) described in this manual at any time and without 
notice. 


This publication could contain technical inaccuracies or 
typographical errors. Changes will be incorporated in nev 
editions of this manual. 
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1. Introduction to the System 


The IBM 5510 System basically consists of a System Unit and 
Keyboard. By adding optional units and/or features, various 
system configurations can be defined. In this Chapter, these 
units/features are introduced. 
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1. Introduction to the System 


The IBM 5510 is s compact system with a single system board 
vhich holds most of the logical circuits. It has many 
functions and value-added options. 


One of the major characteristics of the IBM 5510 is that it is 
designed to operate in three different modes: English Mode, 
Native Mode and Extension Video Mode. Switching modes can be 
performed only by inserting a ROM Cartridge. When no cartridge 
is inserted, the system operates in Native Mode. 


Mode Setting 


A BIOS Routine fixes the mode depending upon which ROM Cartridge 
is inserted. 









English Mode 
(40 x 25 AN) 








Extension 










Video Native Mode 
Mode (20 x 11 KJ) 
(40 x 25 KJ) 


AN 
KJ 


Alphanumeric 
Kanji 


As shown in the above chart, mode can be selected by inserting 
ROM Cartridges. Users can also make their own cartridges (For 
instance for game programs) and can run the programs. For this 
purpose, there are some rules to follow in relation to the ROM 
Cartridge. These rules are described in Chapter 2.0 Base System 
- ROH Cartridge in this manual. 
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1. Introduction to the System 


The IBM 5510 Video System supports a wide variety of displays 
ranging from a TV set normally installed in the home to a high 
resolution CRT display. The Video System can display up to 40 
Kanji characters across and 25 lines vertically and 720 x 512 
dots in two color graphic mode. In Text mode, Alphanumerics, 
special charcters, Katakana, Hiragana and Kanji can be displayed. 


The Video System functionally consists of three Video Processors 
(VP1, VP2, VP3). Which of these processors is active depends on 
th operational mode. By using Video RAM, such functions as 
Animation are possible. By operating VP1 and VP2, superimposing 
screens is possible. 


The IBM 5510 Video System holds up to eight “pages” as a standard 
and a maximum of twelve “pages” when additional RAM is installed. 
VP1 supports pages 0 through 7 for ASCII code, while VP2 and VP3 
support pages 8 through 11 for JIS code. Here, “page” refers to 
16KB units in memory which contain data to be displayed on the 
screen. 


The IBM 5510 system unit has the following optional features and 
provides interfaces for then: 


64KB RAM Card 


increases the system memory size by 64KB to a total of 128KB and 
enables users to work with a higher resolution video mode in VP1. 


128KB RAM Card 
increases the system memory size by 128KB to a total of 256KB and 
holds Address Decode Logic. Up to three cards can be installed 


when the Expansion Unit is used, making the maximum memory size 
512KB. 


Extension Video Card 


makes it possible to display up to 40 Kanji characters across and 
25 lines vertically. Grid Line, 720 x 512 dot two color and 
320 x 512 four color graphic displays are also possible. The 


maximum Video RAM size is 64KB, including the 32KB provided with 
the base systen. 


Diskette Drive Adapter Card 


controls up to three diskette drives. Diskettes are formatted 


to 360 KB in English mode and 720 KB in Native and Extension 
Video mode. 


3-1/2" Diskette Drive 
supports a 3-1/2" 2DD Diskette. 


5-1/4" Diskette Drive 
supports a 5-1/4" 2DD Diskette. 


1. Introduction to the System 


RS-232C Card : 
is a Serial Interface Card which plugs into the IBM 5510 System 
Board and supports Start-Stop transmission. 


RS-232C Cable 
connects the RS-232C Card with a Serial I/0 Unit. 


12” Color Display 
is a pedium resolution Red/Green/Blue/Intensity direct-drive 
display which can display a maximum of 16 colors. 


12" Honochrome Display 

is a high-resolution direct-drive display which is dual-mode 
and can display English, Native and Extension Video modes. 
Operational Frequency can be changed by changing the signal 
transmitted from the System Unit. 


14" Color Display 

is a high resolution Red/Green/Blue/Intensity direct-drive 
display which is dual-mode and can display English, Native 

and Extension Video modes. Operational Frequency can be 

changed by changing the signal transmitted from the system unit. 


Joystick 

is an input device which provides the user with two dimensional 
positioning control. Two push buttons provide the user with 
additional input capability. It is center-loaded and is 
calibrated to 100,000 Ohms. 


TV Adapter 

allows an ordinary home TV set to be connected to the IBM 5510 
Systea. It includes an RF Modulator, When the system unit is 
turned on, the connection is switched from normal TV broad- 
casting. 


Keyboard Cable 

is used to connect the keyboard to the system unit. 

Yhen the keyboard cable is not used, an infrared link provides 
cordless communication between the keyboard and the system unit. 


CMT Cable : 
connects a cassette tape recorder unit with the system unit. 


5512 Printer 

is a desk-top, non-impact printer. The thermal transfer print 
head, consisting of 24 heating elements, makes a 24 x 24 Kanji, 
12 x 24 Hankaku, 16 x 24 PICA, or 12 x 24 ELITE character font 
Batrx. 


5513 Printer 
is a desk-top thermal/matrix printer which uses roll paper. 


1. Introduction to the System 


Printer Cable 
connects printer units with the system unit. 


Expansion Unit 

is the same in size as the system unit and is placed on top of 
the system unit. It contains a Power Unit and allows the user 
to expand the the number of diskette drives to two or three. 
Through installation of an Expansion Board Kit, the number of 
I/0 Channels and the memory size can be increased. 


Expansion Board Kit 


consists of an Expansion Board Adapter and Expansion Board. 
It holds five I/0 Channel slots. 
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2. Base Systen 


The IBM 5510 consists of a System Unit and Keyboard. The key- 
board is provided with an infrared optical link and therefore 
can make key entries without a keyboard cable. It can also 
use a keyboard cable to connect to the system unit. The cable 
is available as an optional feature. 


Various kinds of optional features are available for 
installation with the system unit. Their descriptions are in 
Chapter 4.0 (4.0 System Option). In this chapter, systea 
functions are described based on the System Board, which is the 
fundamental part of the system unit. 


Video displays are described in Chapter 3.0 (Video Subsystem). 
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2. Base System 


Figure 2-1 
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Figure 2-1 System Block Diagram 
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2.1 System Board 
2.1. System Board 


The IBM 5510 System Board is a single board which performs most 
of the system functions and is the nucleus of the system. 

The system board fits horizontally in the base of the system 
unit. It uses double-sided four layered printed circuit boards 
with an internal power/ground plane. It is designed with highly 
integrated circuits. 


The logical circuits use 8088 family dedicated LSI, seven 
custom-made LSI consisting of CMOS gate arrays and various 
I/0 LSI to make the system compact while performing many 
sophisticated functions. The System Board provides the 
following interface connectors for optional features; 


- 64KB RAM Card 
- 128KB RAM Card or Expansion Board Kit 
- Extension Video Card 
- Diskette Drive Adapter 
- ROM Cartridge 
- Keyboard 
- RS-232C Card 
- Display(3 types) 
- TV Adapter 
Light Pen 
- Audio Amplifier(connector only) 
- Cassette Tape Cable 
- Joystick 
- Printer(2 types) 


AC power (+5V, +12V¥, -12V) enters the system board through the 
power supply connector. 
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2. Base System 


Figure 2-2 


System Roard 


- 
Composite 
Monitor TV 






TV set 






Expansion 
Video 






ROM 


Cartridge Display 






128K8 
RAM Card 











Diskette 
Drive 
Adapter 


Serial 1/0 










Parallel 
Interface 






sae 
Ba : -—). 
i Drive C 
i 


Printer 





j ' 1/0 Adapter 
i Drive A 


—~ Drive B 


Remark) —-—: Within System Board 
JXX : Connector Number 


Figure 2-2 I/O Connection Diagram 
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2.1 System Board 





Remark) GA: Gate Array 

ROM Board : System ROM and Kanji Character Generator (CG2) included 
[No [ —Conneeting Feature [No] Connecting Featare 
Jl ROM Cartridge 


Cassette Tape Recorder 
ROM Cartridge 


Audio 
Diskette Drive Printer 
Adapter Joystick (1) 
128KB RAM Card Joystick (2) 
Extension Video Card 


| Display 
64KB RAM Card J16| Keyboard 
Infrared Receiver 


J17|} Power Connector 
RS-232C Card 


Light Pen 
































J2 










Figure 2—3 Connectors on System Board 
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2. Base System 


Figure 2-4 





Card Connector(J3, J4, J5, J6, J8&) 





ROM Cartridge Connector (J1, J2) 


Figure 2-4 Connector. Pin Numbers 
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2.1 System Board 


The nucleus of the system board is the Intel 8088 microprocessor. 
This processor (hereafter called CPU) is software-compatible with 
the 8086 micro-processor. The 8088 supports 16 bit operations, 
including multiplication and division and supports 20 bits of 
addressing (1 megabyte storage). It operates in the minimum mode 
at 4.77 MHz. 


The three programmable timer/counters are provided by an Intel 
8235-5 programmable interval timer and are used by the syster 
in the following manner; 


Channel 0 : Used as a general-purpose timer to provide 
constant time base for implementing a time-of- 
day clock. 


Channel 1 : Used for deserializing the keyboard data and for 
time-of-day overflow during diskette operations. 


Channel 2 +: Used to support the tone generation for the audio 
speaker and to write data to the cassette. 


There are nine prioritized hardware interrupt levels and out of 
them, four are bussed to the system I/O channel for use by 
adapters. The non-maskable interrupt (NMI) of the 8088 is 
attached to the keyboard-interface circuits and receives an 
interrupt for each scan code sent by the keyboard. 


The system board has space for 128K bytes by 8 bits of ROM and 
the ROM is aligned at the top of the 8088's address space. 


The system board makes it possible to process complex screen 


handling and sound generation through its sound generator and 
video subsysten. 
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2. Base System 


2.2. Fundamental System Function 


In this Chapter, fundamental system functions and the hardware 
to support the functions are described. 


2.2.1. System Clock 


The CPU operates in the minimum mode using a 4.77 MHz clock. 

The time of one clock cycle is 210 nsec. Normally, four clock 
cycles are required for a bus cycle, so that an 840 nsec ROM 
memory cycle time is achieved. When RAM memory is shared with 
video memory RAM, write and read cycles will take an average of 
2 wait cycles, leading to an average of 6 clock cycles. The bus 
cycle time is 1.260 micro-seconds. The bus cycle time for I/0 
reads and writes is also 1.260 micro-seconds. The 4.77 MHz 
clock, whose frequency is derived from a 14.31818 MHz crystal 

is divided by 3 for the processor clock, and by 4 to obtain the 
3.58 HHz color burst signal required for color televisions. 

The 1.789 HHz clock, which is divided by 8 is used as a baud 
rate clock of an RS-232C card. 


2.2.2. Interrupt Controller 


Eight hardware levels of interrupts are available for the systen. 
The highest priority interrupt is the NMI in the 8088. The NMI 
is followed by eight prioritized interrupt levels (0 - 7) in the 
8259A Programmable Interrupt Controller. The priority of the 


interrupts are as follovws: 


Priority Interrupt Function 
1 NWI Keyboard Interrupt 
2 IRQ 0 Time Clock Interrupt 
3 IRQ 1 I/0 Channel, Keyboard 


(INT 9 Software Interrupt) 


4 IRQ 2 I/0 Channel 

5 IRQ 3 Asynchronous Port Interrupt 
(RS-232C) 

8 IRQ 4 External I/0 Channel 

7 IRQ 5 Vertical Retrace Interrupt (Video) 

8 IRQ 6 Diskette Interrupt 

9 IRQ 7 I/0 Channel and Printer 
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2.2 Fundamental System Function 


8259A Programming Considerations 


(1) 8259A is initially set up with the following character- 
istics: 


- Buffered Mode 

8088/86 Mode 

Single Mode Master(No cascading is allowed) 

Edge Triggered Mode 

1/0 Address is 20 (Hex) 

can issue Hardware Interrupt types Hex 8(IRQ 0) to 
Hex OF(IRQ 7) 


The following is an example setup:. 


0263 BO 13 MOV AL,13H ; ICW1 - RESET EDGE SENSE 
; CIRCUIT, SET SINGLE MODE 
+ 8259 CHIP AND ICW4 READ 


0265 E6 20 OUT INTAOO,AL 

0267 BO 08 MOV AL,8 3 ICW2 - SET INTERRUPT 
TYPE & = F 

0269 E6 21 OUT INTAO1,AL 

026B BO 09 MOV AL,9 ;ICW4 - SET BUFFERED MODE/MASTER 
AND 8088 MODE 

026D E6 21 OUT INTAO1,AL 


(2) IRQ 1,2,4 and 7 can be used by the I/0 Channel. Care 
should be taken when IRQ1 and IRQ 7 are used, as they are 
shared by several I/0 devices. 


(3) NMI can be masked by operation of port AO. 
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2. Base System 


2.2.3. Parallel Port 


8255 PPI (Programmable Peripheral Interface) is used as one of 
the I/0 Interfaces and supports control of the Keyboard, Timer, 
and Cassette Motor. It also checks whether there is an option 
card or not. Bit Assignments for each Port(A, B, and C) and 
corresponding functions are as follows; 


Port A : For Output 
Bit Description 


PAO : Reserved for Keystroke Storage 


| 
PAT 


Port B : For Output 
Bit Name Description 


PBO Timer 2 Gate This line is routed to the gate input 
of timer 2 on the 8253-5. When this 
bit is "low", the counter operation is 
halted. This bit and PBl (Speaker 
Data) control operation of the 8253-5 


sound source. 


PB1 Speaker Data This bit ANDs “off” the output of the 8253-5 
Timer 2. It can be used to disable the 
8253-5 sound source, or modify its output. 
When this bit is high, it enables the output. 
A "low" value forces the output to 0. 


PB2 Text/Graphics This bit is used to steer data from the 
memory into Video Processor l. 


1 --- Text Modes 
0 --- Graphics Modes 
PB3 Cassette When this bit is a 1, the cassette relay 


Motor Control is open and the cassette motor is off. 
When this bit is a 0 and PB4=0, the 


cassette notor is on. 


2.2 Fundamental System Function 


PB4 Beeper & When this bit is 1, the internal beeper 
Cassette and cassette motor are disabled. 
Control 

PB5 Speaker These bits steer one of 4 sound sources. 
Switch 0,1 The selected sound source is in the display 

PB6 or in the external speaker. Selected 


sound sources are as follows; 


PB6 PBS Sound Sources) oo 
0 0 Timer 2 . 
0 1 Cassette Audio 
1 0 I/O Channel Audio 
1 1 Sound Generator 
PB7 Open Reserved for future use 
Multiplexer +5V 


PBI 
Timer 2 Output 


PB4 





PB3 Motor Control Relay 


Figure 2—5 PB Bit Function 


2-11 


2. Base System 


Port C 

Bit Name 

PCO NHI Latch 
Input 


PC1 


PC2 


PC3 


PC4 


PC5 


PC6 


PC7 


RS-232C Card 


Diskette 
Adapter 


64KB RAM 
Card 


Cassette 
Data 


Timer 2 
Input 


Keyboard 
Data 


Keyboard 
Cable 


For Input 


Description 


This Input comes from a latch which is set 
to a one on the first leading edge of the 
Keyboard Data Streanr. 


When the RS-232C Card is installed, this 
bit is a 0. 


When the Diskette Adapter Card is 
installed, this bit is a 0. 


When the 64KB RAM Card is installed, 
this bit is Low Level. 


If the Cassette Motor Relay is "closed", 
and the Cassette Motor is "on", this pin 
will contain data which has been wave- 
shaped from the cassette. When the 
Cassette Motor Relay is off, The Timer 2 
output will become PC4 input. 


8253-5 Timer 2 input. 


This input contains keyboard data. The 
keyboard data comes from the cable, 
when it is attached, or from the IR 
Receiver Card if the cable is not 
attached. 


When the Keyboard Cable is attached, the 
bit is a 0. 


2.2 Fundamental System Function 


2.2.4. Port AO Output Description 


Port output of I/0 Address AO (Hex) allows NMI interrupt and 
clock input selections. (Reference : 2.2.11 Keyboard Interface) 


Bit 
Bit 7 (NMI Enable) 


Bit 6 (IR Test ENA) 


Bit 5 (Clock 1 
Input 
Selection) 


Description 


When this bit is a one, NMI is enabled. 
When this bit is a zero, NMI is disabled. 


This bit enables the 8253-5 Timer 2 output 
into an IR diode on the IR Receiver Card. 
This information is then wrapped back to 
the the keyboard input. If the cable is 
connected, timer 2 should be set for 40 KHz 
which is the [IR-modulation frequency. This 
feature is used only for a diagnostic test 
of the IR Receiver Card. 


This bit selects input clocks to the 8253-5 
timer 1. A zero selects a 1.1925MHz clock 
input (for deserializing the keyboard data). 
A one selects the timer 0 output to be used 
as the clock input to timer 1. This is used 
to catch timer 0 overflows during diskette 
drive operations, while interrupts are 
masked off. This is then used to update the 
time of day. 
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2. Base System 


2.2.5. Memory 


The IBK 5510 has two kinds of memory, ROM(Read Only Memory) 
and RAN(Random Access Memory). Memory is categorized function- 


ally as follows; 


General-use Memory 
Systea ROH 


Video RAH 
Character Generator 1 (CG1) 


Character Generator 2 (CG2) 
- Gaiji RAH 


General-use memory 


64KB of R/¥ memory resides on the system board. R/ 

be expanded to a 512KB maximum. The standard 64KB ea ais 
consists of eight 64K bit modules and has no parity bit. 
Sources of these memory modules include the Texas Instruments 
THS4164-15 or equivalent. These are dynamic RAM with 150 ns 
access tine. Memory size can be expanded by installing 


additional 64KB or 128KB cards. 


Address space of 00000 - 7FFFF (Hex) is always reserved for 

RAM. Normally, the standard 64KB uses address space of 00000 - 
OFFFF (Hex). If an additional 64 KB memory card is installed 
address space of 00000 - 1FFFF (Hex) is used for the total of — 
128 KB space. The 64 KB system board memory is mapped to the 
EVEX memory address, while the 64 KB additional memory card is 
mapped to the ODD memory address within the 128 KB reserved 
space. When an additional 128KB RAM card is installed, the 
address space will be changed accordingly. 

(Reference : 5.5 Memory Map) 


System ROX 


The ROM subsystem is made up of 128KB of ROM aligned at E0000 - 
FFFFF (Hex) and has the following functions: 


- Pover on Self-Diagnostic test 
- Initialization (ROM, RAM, I/0 Port Configuration set-up) 
- Basic Interpreter 


- BIOS 
- Diskette Boot Strap Loader 


- Kanji Dictionary 
- ROM Cartridge auto-link 


The access time of this ROM Cartridge is 250ns and the cycle 
time is 375ns. 


2.2 [Fundamental System Function 


Video RAM 


The system board has 32KB Video RAM as a standard feature. 

The Video RAM consists of four 16K x 4 modules. These modules 
include the TMS 4416-15 or its equivalent and are dynamic RAM 
with 150ns access time. 


Character Generator (CG1) 


2KB ROM space is reserved for Alphanumeric and Special character 
fonts used in English Mode. 


Character Generator (CG2) 


128KB ROM space is provided to for Kanji, Alphanumeric, Special 
character, Hiragana and Katakana fonts to be used in Native and 
Extension Video Mode. 


Gaiji RAM 


2KB static RAM is reserved for storage of up to 62 fonts (15 x 
16). They can be accessed by Video Processor 2 and 3. The CPU 
can also read/write data. The modules are static RAM with 200ns 
access time. 


General-Use System ROM 
Memory 128KB 
512KB Maximum 


Character Generator 1] 
2KB 

iene a cus 

128KB 


way 


Character Generator 2 
- 128KB 
Video RAM weet ae 
64KB Maximum Gaiji RAM 2KB 


ey 


Figure 2-6 Memory Classification 
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2. Base System 


2.2.6. Memory Space and I/0 Address Setting 

The IBM 5510 is provided with memory s , 

LSI. The memory Space is separated Oa al dedicated cusibos 

addresses each memory block uses are defined eta and the 

The ninimua unit of definition is 32KB. The y the software. 

1/0 addresses. The addresses for most I/0 cio es 19 blocks for 

by software. These controls are performed oe be change 

priate paraneter in I/0 address 1FF (Hex) y setting the appro- 

Parameters are set in two of the control regi t i 

in each block. Memory space and I/0 sddrecers an which reside 
e set by the 


following hardware elements: 


- Status Register 
Block Definition 
Control Register 1(REG1) 


Control! Register 2 (REG2) 


Hethod for setting 


Status is reset by reading Status 


Step 1 

Register in I/O address 1FF (Hex) 
Step 2 Write Bl 

ock definiti i 

I/0 address IFF (Hex) eee 
Step 3 Writ 

é e parameter t i 

in 1/0 address ica ese 
Step4 Write parameter to be set in RE 

in 1/0 address LFF (Hex) ' i 





2.2 Fundamental System Function 


Status Register 


When I/O address 1FF(Hex) is read, the following status is 
obtained. 





Open 


0 : Inserted ROM Cartridge has 
BASE1 ROM wiring 


0 : Inserted ROM Cartridge has 
BASE2 ROM wiring 


0 : Extension Video Adapter 
exists 


Block Definition Value 


Each memory block is defined by Block Definition Value 00 - OA 
(Hex) and I/0 Block by 80 - 93 (Hex). 







ae Memory R , Address 
‘Ss 
Value | Block sae (Default Valued 





P00 1RON7 _[Syaten ROM 
Cartridge D0000~ D7 FFF 
[02 EROWS | Cartridge 
| 05 ~~ | EROM6 [Cartridge F0000~ F 7 FFF 
[06 | EROM7 [Cartridge 
Kanji ROM and Gaiji RAM Font 
| 08 
| 

















General-use Memory (128KB) * Changed by Option 
VRAM 1 {Co-use of general-use Memory & Video RAM B8000~ BF FFF 
VRAM 2 |Video RAM B8000~ BF FFF 


Remark) * --- The total of 64 KB Base and 64 KB Expanded Memory. 


= 
as 
Z 





Figure 2-7 Memory Block & Definition Value 


2. Base Svstem 


Address 
Block Remarks (Default Value) 
Value 


Interrupt Controller 
ee Bo 


Parallel Port 060~067 
A OT 
SOND Sound Generator 

FDC Diskette Drive Adapter 


| _RS-282C Card 
a 
GA2B Gate Array2 (VP2) 3DA 
GA 
LPT aDE 
PGI aD 
| MopM | Opn —s—~—<tsSCid SCQF 


Remark) 1/0 Blocks 80 - 92 are those 1/0 vithin the system unit 
When one of these are selected, bus line of the 
Expansion Unit is separated fron the system bus. 














— 
3S 


87 
88 


8A 
8B 
8C 


8E 
8F 








Figure 2-8 I/0 Block and Definition Value 


2.2 Fundamental System Function 
Address Change 


As the address bits of each memory block or I/0 blocks are 
programmable, their addresses can be changed. 


Block 
Definition Block ON/ I/O Mem. RD WR AI19 Al18 Al17 Al6 AI5 
Value Name OFF 


IROM 7] P 


fo 

[oe EROW 3 | 
[os [EROW 4 
[ou _[EROw 5 | 
[os [EROW 6 | 
al 
Ca 
Ca 











CIOlOJSCOILO/oO/]' VU) VloO 





acl ack mach acl ach Bach ach mach mack mac) 
o|+ 

ee ee eo eee eo acl 
me pepe lope fe le} el] ol oO] 
Hl UlelDlololololt|ttlS 
DWI) Ul] Ul Ol Ul UI UU] Ul 
WlUl ol) Ul] Us Us VU) Ul] Ul Uj, 
TWldl ol] OU] OU] Ul] 'U| VU} 'U]'U|'U 
‘oll acl Macl Mack acl Mac Mack Mack mack mack lac) 


lock Mach Mach Mach E SE wn wn gn ee 





P : Programmable 


Figure 2-9 Memory Address Change 


2. Base System 























a 
| 89 | 8250 
P 
| sc  |GA2A}] P 1 
| 8D |GA2B | P 
| 90 | PG2 Po 
afro 

Ts _[ wonat 
Ds _[erse_| 


~| 0] 0 
| S| S| OX 


Pini) Yo | xy A9 A8 AT AG A5 A4 AZ AZ Al AO 
Value Name | OFF 
Cat we ee ee ee ee ee ee 
ra [es [poe ee 
a a ea a a ae 
a a 
a 
Po. & FF * * & x 
0 0 0 0 oO 0 X x 
7 0 8 0 BD OD * x 


— le | Ul) oO 





ba] 






i) 
_ 
_ 
oS 
_ 
_ 
o|;}o 
o 
oO 


ro 
_ 
- 
Oo 
_ 
_ 
_ 
oO 






_ 
_ 
_ 
—_ 
_ 
_ 
So 
—_ 
oO 


: 






_— 
_ 
_ 
oOo 
—_ 
_ 
Oo 
Oo 
— 






P : Programmable 
X : Neglected 
0, 1: Fixed 


Remarks) In ordar to specify I/0 address of Expansion Unit, 
the bit of Block Definition Value 93 "P” (on/off) 


should be set as l. 


Figure 2-10 1/0 Address Change 


2.2 Fundamental System Function 


Control Register (REG1, REG2) 


Each memory block or each I/O address block has one REG1 and 
one REG2. 


Memory Block Control Register 





D4 D3 D2 D1 DO 
18 


D7 D6 D5 — 
ON/OFF ai[aw|ai| ai] ais [REG 








REG1 

ON/OFF : "1" makes REG1 available 

1/0 >: When "1", this block is allocated to I/0 space 

MEW >: When "1", this block is allocated to memory space 

A19-A15 : These correspond to address lines A19-A15 and set the 
first five High Storage Bits which the memory block 
uses with REG2 A19-A15. 

REG2 

WR > When "1", writable memory 

RD >: When "1", readable memory 


A19-A15 =: REG1 specifies the bit (A19-A15) for comparison with 
the address bus output. When this bit is "1", 
comparison is not performed and when "0", comparison 
is done. When the comparison result is equal, these 
are valid addresses for this memory block. As for 
A1l4-A0, bit shown in the address bus is used as 
available addresses. 


2. Base System 


For instance, if REG] is B7(Hex) and REG2 is 61(Hex), this 
senory block uses addresses B0000-BFFFF (Hex). 







Al8 Ai7 Al6 


Address Bus > 1 
REG 1 ——-> 1 0 1 1 
REG 2 ————> 0 1 1 0 

] 


Avail.address 





1/0 Block Control Register 


D4 D3 D2 D1 po 


The I/0 Block Control Register and Memory Block Control Register 
have the same functions. I/O Address Lines compared are I[/0Q 
Control REG] and REG2 but the extent of the comparison is 

limited to AQ - A3. 


D7 D6 D5 





2.2.7. Expansion Channel 


The Expansion Channel is the means through which the CPU bus lir 
is expanded. It can be connected with various 1/0 adapters whic 
users can develop themselves. 


Major Characteristics 


- 64 Pin Connector is used 

- "READY" signal is available for low-speed I/0 features and 
slower access time memory 

- Maximum load is one standard TTL 

- 128KB RAM card, Expansion Board Adapter and other I/0 featur cm 
are connected. 


2-22 


2.2 Fundamental System Function 


The following describes connector pin(J4): 


- Signal Name Signal Name 
Do oe D1 
be Le 

| 
D6 


ie cae ea oa 
ie 


AO 


A2 LL 
—£_| § [A 


A4 
“a0 2 ear 








| Ale 13 13 Al3 
; ALS 14 14 Al5 
Ee 5V 45 15 +5V 
eS 
| AlB 17 17 Alg 
‘=I0R 18 18 | —I0w 
—MEMR 19 19 |—MEMW 
— HLDA 









-——— ee | 
CPU CLK ; 21 | 21 GND 

10/—M | 22 = 22 DOT CLOCK! 

sae eee 

_ OPEN | 8 23 OPEN 


RE amy 24 2 RESET 


——= 
=EXRD | |—ETSC 
_IRQI | | IRQ2 | 


! “IRQ « 4 | ‘= 2 | “27 





IRQ7. | 
a a 23 | 8 {DEN 
| R/-DT | 

|_ avpio aS: 3 

) AMODE | 

| rs 





>] 


gure 2-11 Expansion Channel Connector (J4) 
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2. Base System 


Remarks) I/0 refers to the direction seen from the systen 


board. 
Each signal is at standard TTL level except for AUDIO. 


Signal 1/0 Description 
poe Se Bere. BE ip a ey 


DO - D7 1/0 Data Lines 0 - 7: These lines provide data 
bus bits 0 to 7 for the processor, memory and 
I/0 Devices. DO is the Least Significant Bit 
(LSB) and D7 is the Most Significant Bit (MSB). 


AO - A19 0 Address Lines 0 - 19: These 20 address lines 
allow access of up to 1 megabyte of memory. 
AO is the least significant bit (LSB) and 
A19 is the most significant bit (MSB). 


-IOR 0 1/0 Read Command: When this command line output 
is "0", it instructs an I/0 device to drive its 
data onto the data bus. This signal may be 
driven by the 8088 microprocessor or by an 
external bus master(such as the DMA controller) 
after it has gained control of the bus. 


-10V 0 1/0 Write Command: When this command line 
output is "0", it instructs an I/0 device to 
read the data on the data bus. This signal 
may be driven by the CPU or by an external 
bus master(such as the DMA controller) after 
it has gained control of the bus. 


~MEUMR 0 Memory Read Command: This command line 
instructs the memory to drive its data onto 


the data bus. 


-MEMW 0 Memory Write Command: When this command line 
output is "0", it instructs the memory to 
store the data present on the data bus. 


ALE 0 ADDRESS LATCH ENABLE: This line provides the 
timing signal to latch the address bus. 


HLDA 0 HOLD ACK : This line indicates to a bus master 
on the channel that -HRQ has been honored and 
that the 8088 has floated its bus and control 


lines. 
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Signal 1/0 
CPU CLK 0 
I0/-M 0 
READY I 
RESET 0 
-EXRD 0 
-ETCS 0 


2.2 J-undamental System Function 


Description 


System Clock: It is a "“devide-by-three” of the 
14.31818 MHz oscillator and has a period of 
210 ns (4.77MHz). The clock has 33 % of the 
duty cycle. 


70 140 ns 70 140 ns 
ns 


I/0 or Memory Status: This status line is 
used to distinguish a memory access from an 
1/0 access. This line should be driven by 

a bus master after it has gained control of 
the bus. If this line is "high", it indicates 
an I/0 access; if this line is “low", it 
allows memory access. 


This line, normally "“high"("ready"), is pulled 
"low"(not ready) by a memory or I/0 device 
to lengthen I/O or memory cycles. It allows 
slower devices to attach to the I/0 channel 
with a minimum of difficulty. Any slow 
device requiring this line should drive it 
low immediately upon detecting a valid 
address and I0/-M signal. Machine cycles 
(1/0 and memory) are extended by an integral 
number and CLK cycles (210 ns). Any bus 
master on the I/0 channel should also honor 
this “ready” line. It is pulled “low” by the 
system board on memory and write cycles and 
outputting to the sound subsysten. 


This line is used to reset or initialize 

system logic upon power-up. This line is 
synchronized to the trailing edge of the 

clock and is “active high". Its duration 
upon power up is 26.5 micro secs. 


EXPANSION BUS READ CONTROL: This line is 
used to control the direction of data flow on 


the oo channel. The read status makes 
it "0". 


EXPANSION BUS Tri-state Control: It is used 
to control the Expansion Bus to Tri-state. 
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2. Base System 


Signal 


IRQ1 
IRQ2 
IRQ4 
IRQ7 


-HRQ 


-DEN 
R/-DT 


AUDIO 


A HODE 


REFC 
DOT CLOCK 


Description 


Interrupt Request 1, 2, 4 and 7: These line 
are used to signal the processor that an I/0 
device requires attention. They are 
prioritized with IRQ1 as the highest priorit 
and IRQ7 as the lowest. An interrupt reques 
is generated by raising an IRQ line fron “lo 
to "high" and holding it high until it 

is acknowledged by the processor. 


Hold Request: This line indicates that 
another bus master is requesting the I/0 
channel. When an I/O channel issues a -HRQ 
signal, the 8088 processor will respond 

to the -HRQ by asserting an HLDA, after it 
lets the data bus and address bus 
relinguish to an external bus master 

(such as the DMA controller). As a -HRQ is 
not an asynchronous signal, it should be 
synchronized to the systen clock. 


DATA ENABLE: This signal makes the data bu sqm 
available. 


This signal is used to control the directiorggm 
of data flow through the transceiver. 


1/0 devices connected to the expansion chan rege 
may provide sound sources to the nultiplexer 
of the sound subsystem which resides on the 
system board. The signal level is 1V P-P. 
This signal is used to make the memory space 
which 128 KB RAM card uses fixed after the 
memory on the board when in English mode. 


This line is used for dynamic RAM refresh. 


14.318 MHz Clock 
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2.2 Fundamental System Function 


2.2.8. Cassette Interface 


The cassette interface is controlled by software. Output from 
the 8253 Timer 2 controls data to be written to the cassette 
recorder. The digital signal read from the cassette is input 
at PC4, 8255A PPI. PB3 and PB4 output controls the relay. 
When the relay is inactive(Motor is disabled), the cassette 
output signal has a wrap feature which connects the output to 
the input. 


Data Format 





af 


: Leader Synchronous Bit Synchronous Byte’ Data CRC Data CRC 


T.1 y "0" 16’ Block | , Block ! = 


Bik Sy SE EE Se EN Oa ee ee NAD 








' Data CRC Trailer 


, Block |, i ML.t" 


Leader FF (Hex) of 256 bytes 
Synchronous bit 1°0” bit 


Synchronous byte "16" (Hex) 

Data Block 256 byte unit Data 

CRC 2 byte check Character (each Data Block) 
Trailer 4 byte FF (Hex) 





Figure 2-12 Cassette Data Format 


- 250us 


bess Sg ~—_} 


h——_ 500us | 


“we al 
ee “ag —______. 


Figure 2-13 Bit Format 


2227 


owe 


ate 


PIATRA ME tn 


ERE PENT BID ts 


fe asa 


2. Base System 


Cassette Tape Write 


Cassette tape vrite is performed from MIC DATA OUT (Timer 2 
output). The cycle of Timer 2 is 0.5ms for bit 0 and is lms 
for bit 1. Data are written in units of 256-byte (Block) 
and when the length of data is shorter than multiplies of 
256-byte, the last available data are repeatedly written to 


complete the block. 


TALS 125 3.9K 


Timer 2 Output Wrap test data 


MIC DATA OUT 





Figure 2-14 Cassette Write 
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2.2 [fundamental System Function 


Cassette Tape Read 


When more than 1/4 of leader is correctly read, the synchronous 
bit ("0") and synchronous byte are read. At the point where 
synchronous bytes are correctly read, data blocks are then read. 
If data are not read correctly up to a point of the synchronous 
bytes, the leader is searched again. 

When data are read, a CRC check is performed for each block. 
Level 0 interrupt is not allowed while reading the cassette tape. 
Data read is input from CASS AUDIO to PC4. 


18K 1M 








0.047 18K PC4 


CASS AUDIO as (i 
a 


Multiplexer 


Figure 2-15 Cassette Read 
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2. Base System 


Motor Control 


When both PB3 and PB4 are "0", the relay is active and the motor 
is turned on. 


+5V +5V 









—PB3 
(MOTOR ON) 





Driver To Motor 








-PB4 
(BEEPER MOTOR) 


Motor Control Relay 


Figure 2-16 Cassette Motor Control 


Hardware Interface 


(wae aah. Ke Oo eee oP INP. OS OER. 
: Pin No. ! Signal Name: 1/0 _ 





fee ee 

ei. a oe 
- 2  ! OPEN = 

; 38 OPEN =| 
4 CASS AUDIO: I 
"5 | MIC DATA OUT O | 
: 6 ;MOTOR CTL — - 
| 7; CASS MTL CTL, — | 
[8 | OPEN 7! 


(System- Side) 


Figure 2-17 Interface Connector (J10) 
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2.2 [fundamental System Function 


2.2.9. Sound Subsysten 


The nucleus of the sound subsystem is an analog multiplexer (MPX) 
which allows 1 to 4 different sound sources to be selected, 
amplified and sent to the audio output. The MPX and amplifier 
are configured so the amplifier's gain is unique to and 
consistent with each sound source. The amplifier is configured 
as a single-pole low pass filter with a 3dB cut-off frequency 

of 4.8 KHz. This filter is used to “round” off the corners of 
the square-wave signals. The output of the amplifier is supplied 
to the display interface and audio interface connector. 

If.an external speaker is used, an external amplifier must be 
used to drive it. The audio output is 1V¥ P-P alternating 
current and can drive a 10K Ohm or greater input impedance. 


Sound source selection depends on the configuration of port bits 
PB5 and PB6of 8255A PPI. Power-on selects Timer 2. 


PB6 PBS Selected Sound Source 
0 0 Timer 2 output 

0 1 Cassette Audio 

1 0 1/0 Channel Audio 

1 1 Sound Generator 


(1) Timer 2 Output 
Beep or simple tone is output. 


(2) Cassette Audio 
Allows use of recorded sound on the cassette tape as the 
sound source. 


(3) I/0 Channel Audio 
Allows the Expansion Channel to connect such I/0 devices 
as a sound synthesizer and have an output in Expansion Channel 
Connector (J4) Pin A30 “Audio” for input to multiplexer. 


(4) Sound Generator 
SN76489A is used. 
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2. Base System 











Timer 2 Output Monitor Display 





Cassette Audio Multi- 
plexer 


(MPX) 


RF Modulator 
1/0 Channel 
Audio 


Sound 


Generator External Amplifier 


(Audio Interface) 


Figure 2-18 Sound Source 


The RF modulator is included in the TV Adapter. It modulat 
the audio signal and sends it with the screen signals to a 
set. 
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2.2 Fundamental System Function 


The IBM 5510 uses SN76489A as its sound generator. Its I/0 
address is CO (Hex). This chip consists of a CPU 


Interface, Control Register, three tone generators, a Noise 
Generator,and an Audio Mixer. It is controlled by software and 
allows 3 simultaneous tone. A 3.579 MHz Clock Input is used. 


is a description of each configured element: 


The following 


3.579MHz o 





D0~D7 






aovjaoquy 


Noise Generator 


Figure 2-19 Sound Generator Block Diagram 
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2. Base System 


CPU Interface 


The system microprocessor interfaces with the SN76489A by means 
of the 8 data lines and 3 control lines (WE,CE and READY). 

WE stands for Write Enable and CE for Chip Enable. 

The SN76489A is controlled by 1 or 2 bytes of data issued by the 
CPU. Each tone generator requires 10 bits of information for 

the frequency. The data transfer is made twice for each byte. 

4 bits of information are required to select the attenuation. 

A 1 byte data transfer is required. It requires 32 clock cycles 
to write data on the register and uses a READY signal for syn- 
chronization. The READY signal becomes “Low Level” at the CE 
leading edge and "High Level" at the end of the data write. 


Control Register 


The sound generator has 8 internal registers which are used to 
control the 3 tone generators and the noise source. During all 
data transfers to the sound generator, the first byte contains a 
three bit field which determines the destination control 

register. The register address codes are as follows; 


Control Register 
Destination 





Tone 1 Frequency 
Tone 1] Attenuator 
Tone 2 Frequency 
Tone 2 Attenuator 
Tone 3 Frequency 


Tone 3 Attenuator 
Noise Control 


Noise Attenuator 





3 2 #1 90 7 #6 
Tro] [lo] x 


MSB 1st byte LSB 2nd byte 


Figure 2-20 Control Register Destination 
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2.2 Fundamental System Function 
Tone Generator 
Each tone generator consists of; 


- Frequency synthesis section (Programmable Counter) 
- Attenuation section (Programmable Attenuator) 


The frequency synthesis section requires 10 bits of information 
(Hex FO - F9) from 2 bytes of data issued from the CPU. 


Data Format (2 byte transfer) 


lst eee —} nd = 
| Register | | Date | 


Sr ea naleaee a Meine 
(1) Register is selected by RO - R2 


Tone 1 Frequency 


Tone 2 Frequency 





Tone 3 Frequency 


(2) Frequency is set by FO - F9 (10 bit binary number). F9 is 
the most significant bit and FO is the least significant bit. 


7 





The frequency can be calculated by the following; 


N 
f = (HZ) 
32n 





Where N=Base clock frequency (3.579MHz) 
n=10 bit binary number (FO - FQ) 


2. Base System 


The following is an example of obtaining a 440HZ frequency: 
3579000 


‘q. = eS 


32n 
= 254 


Bit positions of FQ9 - FO are C@ TTT £17 1 6. 


The attenuator allovs 15 stages of sound volume, ranging from 
0dB to 28dB, based on the 1 byte of data issued from the CPU. 


Data Format (1 byte transfer) 


ia LSB 


rc ao eT 


(1) Register is selected by RO - R3. 


Tone ] Attenuator 





Tone 2 Attenuator 





Tone 3 Attenuator 


(2) Sound volume is set every 2dB each by bits AO - A3. 


—- eS =e we OOO SO 
7moeaqawnrerw#sesso 


1 
1 
1 
1 
1 
1 
1 
1 
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2.2 Fundamental System Function 


Noise Generator 


The noise Generator consists of: 

- Noise Source 

- Attenuator 

and can control the sound tone. (NFO:1, NF1:1 mode) 

The noise source is a shift register with an exclusive -OR 
feedback-network. The feedback network has provisions to 
protect the shift register from being locked in the zero state 
(periodic noise). 


Data Format ( 1 byte transfer) 


MSB LSB 


[1 [R2[Rifro] x| FB NFyNFo 


(1) Register is selected by RO - R2 


Re RY RO 
1 1 O Noise control 
1 1 #1 Noise Attenuator 


(2) The kind of noise is selected by the bit FB 






FB Configuration 
0 “Periodic” Noise 
1 “White” Noise 


(3) Shift rate is set by NF1 and NFO 


N/512 
N/1024 
N/2048 


Tone 3 frequency output 








(4) Attenuator control is the same as the Tone Generator. 


ast 


2. Base System 


Audio Mixer 

The audio mixer sums the three tone-generator outputs and the 
noise generator output. The output buffer will generate up to 
10mA. 


Hardware Interface 






. 
Cm 


a ae: 
| 2 | auoio | 





Figure 2-21 Audio Interface Connector (J11) 


2.2.10. Beep Subsysten 

The system beeper is a small piezoelectric speaker, which 
can be driven from one or two sound sources. 

The two sound sources are as follows; 


- §8255A PPI (PB4) Output 
- 8253-5 Timer 2 Output (Timer clock) 


The input clock for this timer is 1.19MHz. 





Figure 2-22 Beep Circuit 
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2.2 Iundamental System Function 


2.2.11. Keyboard Interface 


The infrared link or keyboard cable provides communications 
between the keyboard and the system unit. 


After the system unit reads serially encoded keyboard data frog 
PC6, the software de-serializes them using the 8253 Timer 1. 





Start Bit Data Bit 
1 ‘ : \ 
: 1 ‘ 0 1 ‘ 
Keyboard i 
Data | | i ' 
l-- 3308 -! ae 


NMI 


‘ 
‘ 
1 
‘ 
i} 
! 
' 
‘ 
‘ 
i) 
' 
' 


ee sae a Seen ee eee Pee, 
Time fr 
5 times sampling at 1 sampling time 


Figure 2-23 Sampling 


The leading edge of the start bit will generate a non-maskable 
interrupt (NMI). Once the processor enters the NMI routine to 
handle the deserialization, the keyboard data line is sampled and 
the processor is waiting to sample the trailing edge of the start 
bit. When the trailing edge of the start bit is sampled, the 
processor will wait for 330 micro-sec and sample the first half 
of the first data bit. The processor then samples the keyboard 
data every half bit cell-time. The sampling interval is 220 
micro-sec. The processor samples each half bit sample 5 times 
and will determine the logical level of the sample by majority 
rule. This enables the processor to discriminate against 
transient glitches and to filter out noise. 
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2. Base System 


Detectable Error Conditions 


The software checks whether the received data has an error or 
There are two kinds of errors, Phase and Parity errors. 


not. 
Error Cause 


Phase Errors The 1st half of the bit-cell sample is not equal 
to the inverse of the 2nd half of the bit-cel] 


sample. 


The received encoded word did not maintain odd 


Parity Errors 
parity. 


Errors will be signaled by the processor with a short 
tone from the beeper or external speaker. 

Output will be made to external speaker, if both of 
PB5 and PB6 are O and to the beeper if PB4 is 0. 


Remark) 


Keyboard Data 


To 8255 PC6 


To 8255 PCO 





NMI Interrupt 






—ICR 
(from Port AO) 


Figure 2-24 Keyboard Interface Block Diagram 
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2.2 Fundamental System Function 


Operational Parameters 


The operational distance from infrared devices to the system 
is 5 meters (line of sight). Operational efficiency can be 
impaired by outside sources. Those sources are, excessively 
bright lights and high voltage lines. A keyboard cable is 
recommended for those instances. 


Port A0 


Port AO is strongly related to the keyboard data handling and 

is described here. When a key is depressed, a serialized scan 
code is sent to the system unit. The latch causes an NMI on the 
first leading edge of the keyboard data if the enable NHI bit 
(port AO bit D7) is on. The 8088 then reads the 8253 timer to 
determine when to interrogate the serial stream. Depending on 
whether the bit is on or off, 1 character of data is deseri- 
alized and the NMI Interrupt service routine resets the NMI 
latch to read the next NMI interrupt. The NMI latch is cleared 
by reading I/0 port AQ(Hex). As the latch can also be read on 
the 8255 PCO, the program can determine if a keystroke occurred 
while NMI was disabled by reading the status latch. For in- 
stance, during certain critical operations such as diskette 

1/0, the processor will mask off the NMI interrupt. As the 
keyboard input during this time cannot be serviced, the NMI latch 
should be checked later and the appropriate action should be 
taken. The system board provides for selection of keyboard data 
from either the cable or the IR receiver board. When the signal 
level -CBL CONNECTED on the keyboard cable connector is "0", 
data are read from the cable and when "1", from the IR receiver 
board. The 8088 processor uses one 8255 PPI bit (PC6) to do the 
software de-serialization of the keyboard. 
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2. Base System 


Infrared Receiver 


The infrared receiver is located in the system unit and has an 
infrared sensitive device that demodulates the signal transmitted 
from the keyboard and sends it to the system. The infrared 
sensitive device is located on the front of the card and receivesamme 
its input through an opening in the front of the system unit box. 
There is also an infrared transmitter mounted on the receiver 

card for diagnostic purposes. 







IR Receiver 












Photo Diode 
(First AMP) 


AGC 
(Second AMP) 












Keyboard Demodulator 


Output 








Test 
Circuit 





Test Stenal (System Ecau cd: 
Figure 2-25 IR Block Diagram 


The infrared receiver is mounted on the system board with a 5-pirf 
connector. 


o 
_ 





(IR-Side) 


Figure 2-26 IR Connector specifications (J7) 
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2.2 Fundamental System Function 


Keyboard Cable Interface 


The keyboard cable connects to the sytem unit connector J16. 
The -CBL CONNECTED signal notifies the system unit that the 
cable is connected. The system unit's IR receiver circuit is 
"disabled" by this signal. When the keyboard cable is used, 
the power is supplied from the system unit. 






















‘ Pin No. 4, _Signal Name Yo 
1 ; +5V 9 
a Aa =a 
‘ rey 2 a ee ae 
= rq T. “onus OR 
4 i ag oll 4 | -CBL KBD DATA _: 1 
i 5 | ~CBL CONNECTED: 1 
6 Open a 


(System Side) — 





-_———s-— ee er) 


Figure 2-27 Keyboard Cable Connector (J16) 
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2. Base System 


2.2.12. Joystick Interface 
Interface connectors are provided for two joysticks. The 1/0 


address is common and is 201 (Hex). 
Vhen the data are read from the joystick, the following data 


are sent on the data bus: 


Switch | Switch | Switch | Switch | Coordinate | Coordi ; 
te | Coordinate | Coord 


xX X 
= Switch Input Resistor Input 






















Svitch Input 


Svitch input is shown in data bits 7,6(or 5,4) when I/0 add 

201 (Hex) is read. Each of the four switch inputs has a IK nine 
pull up resistor connected to +5V. When the button is depressed 
it is read as 0 and when the button is not depressed, it is read 


as l. 
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2.2 Fundamental System Function 
Resistor Input 


The joystick position is indicated by X and Y coordinates which 
are set by the two (for 1 joystick) variable resistors. 

When software writes data (dummy) in I/0 address 201 (Hex), the 
hardware issues two kinds of pulses in accordance with the 
resistor value. This pulse output is shown in data bit 3,2 

(or 1,0) when I/0 address 201(Hex) is read. The software can 
determine the coordinate value based on this. 


The width of the pulse is calculated by the following formula: 
Time = 24.2 micro sec + 0.011 X R gicro sec 


where R is the resistance in ohms. 










Resistor 


X Coordinate Resistor Input Value 
Y Coordinate Resistor Input 


Pulse 
Conversion 


1/0 Write 


CS 


1/O Read 
Data Bus 
DO~ D7 


Buffer 


Switch 1 Input 


Switch 2 Input 


Figure 2-28 Joystick Interface Block Diagran 
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aE BP Ct RE 


2. Base System 


Hardvare Interface 


The joystick interface has two connectors in the rear of the 
system unit to connect two joysticks. 





(System Side) 


Figure 2-29 Joystick Interface Connector (J13, J14) 
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2.2 Kundamental System Iunction 


2.2.13. ROM Cartridge 


When a ROM cartridge is inserted into either one of two identical 
slots in the front of the machine, ROM is added to the syster 
unit or is replaced. 


Each cartridge can hold up to 96 KB ROM. Cartridge selection 

is accomplished by the chip selects, each of which addresses one 
of the high 32KB memory blocks. Each cartridge uses up to three 
of the six chip selects and the selection is determined based on 
the intended use of the cartridge. 


The ROM modules used are 250 ns access time devices. Typical 
modules are the Mostek MK37000, TMM23256, SY23128 or 
equivalent. 


Cartridge ROM Storage Allocations 


Address map of system ROM and ROM cartridge is as follows; 


EROM 3 Cartridge 
roo =E7FFF [| Basi@| Rowe] 













Address 













Figure 2-30 Cartridge ROM Chip Select 


- The system ROM on the board is selected by chip select IROM 7. 
- System ROM address space is E0000 - FFFFF (Hex). 


- Some portions of the address space for ROM cartridges will be 
used by the system ROM and some will not. 
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. Base System 


Normally, application cartridges should e EROM 2 and 

(D0000 - DFFFF). uP EROM 
When EROM 4 - EROM 7 (E0000 - FFFFF) whose address Space is 
shared by the system ROM, is used, addressing Bust be done 
carefully. 


EROM 4 and 5 are used for Language i which wi 
compete with BASIC. si ei ei 


Vhen EROM 6,7 are used for replacement of BIOS, the systen 
characteristics can be changed. In this case, BASE 1 ROM 
(A04 Pin) or BASE 2 ROM (A09 Pin) should be wired to GND 
GND (AQ1 Pin) to notify the systen. 


When ERO 4 - 7 chip selects which will compete with the 
system ROH is used, ROM space allocation of the system ROM 


vill be as follows: 


1. F0000 - FFFFF (64KB) 
2. F8000 - FFFFF (32KB) 
3. All area deletion 


This change of ROM space allocation is made at the time of 
self-diagnostic test right after the system power-on or syst 
reset. 


Vhen tvo cartridges of different modes are used in 
combination, “Error L"” will be displayed. To continue, the 


carriage return key should be pressed. 


2.2 fundamental System Function 


There are some ground rules to follow in making application 
cartridges. The major rules are: 


Conventions 


(1) These conventions should be followed for "Initial Progran 
pee rae program cartridges. These cartridges should 
include: 


55AA (Hex) : For English Mode 

AA55 (Hex) : For Native and Extension Video Mode 
Length 

Jump to initializing code 

00 (Hex) 
CRC Bytes 













2 
3,4,5 
6 

Last 2 bytes 










1. Locations 0 and 1 are used to check whether there is a 
cartridge inserted during self-diagnostic test. 55AA (Hex) 
or AA55 (Hex) indicates that a cartridge is inserted. 


2. Location 2 contains a length indicator representing the 
entire address space taken by the ROM on the cartridge. The 
algorithm for determining the contents of this byte is 
(ROM data size/512). The contents of this byte are used 
by the CRC check routine to determine how much ROM to 
check. Address space for a ROM cartridge is on a 2048 byte 
boundary. 


3. Locations 3, 4, and 5 contain a Jump call which is used to 
jump during an _ initialization routine. For cartridge 
programs that are “IPL-able” (Basic or Assembler programs), 
this routine should set the INT 18 vector to point to 
their entry points. Other types of cartridges should merely 
return to the caller. Setting the INT 18 (Hex) vector will 
enable transfer of control to the cartridge program by’ the 
IPL routine. 


4. Location 6 should be 00. 


5. CRC byte: The last two locations of the address space used 
by the cartridge must be blank. CRC characters will be 
placed in these bytes when the cartridge is built. For the 
CRC algorithm, refer to the routine at label "CRC Check” in 
the BIOS listing. 
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2. 


(2) 


Base System 


g words and run under 


For cartridges which include DOS eouane followed: 


DOS, the following conventions should b 


Location ; Contents 
Pee iinet 


eee TE a 


—_—_——_- 


| 
0,1 | 55AA (Hes) : For English Mode | 
| AA55 (Hex) : For Native and Extension Video Mode | 
| 2 | Length | 
| 9.5 : Jump to initializing code 
6 | The length of the command word | 
Z i Command name 

Y Location of jump, when command name is typed 


xX The length of the next command word, or 00(Hex) when no more 
command words exist. 


| Last 2 bytes j CRC Bytes 
a ae, _ 
Locations 0 and 1 are used to check whether there is a 
cartridge inserted during self-diagnostic test. 55AA (Hex) 


or AAS5S (Hex) indicates that a cartridge is inserted. 


| 
| 
| 
! 
aceite —— 


Location 2 contains a length indicator representing the 

entire address space taken by the ROM on the cartridge. The 
algorithm for determining the contnts of this byte is 

(ROM data size/512). The contents of this byte are used by 

the CRC check routine to determine how much ROM to checum 
Address space for a ROM cartridge is on a 2048 byte boundary 


Location 3 contains a Jump call which is used to jump during 
an initialization routine. (There might be instances where 


only FAR RETURN call exists.) 


Locations 6 - Y are command name pointers. If a cartridge 
has a routine called “Test” at location OFB5 (Hex. offset 
from the start of the segment that the cartridge is in) 

that needs to be executed when “Test” is entered as a DOS 
command, the entries (in Hex) at locations 6 - Y would be: 


Location 6 04 (4 byte length command name) 
Location 2 54(T), 45(E), 53(S), 54(T) TE ST 
Location Y B50F (offset 3; OFB5) 


Until the count field changes to 00, which occurs after 
the last name pointer (6-Y), the next name pointer will 


be set. 
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(3) 


2.2 Fundamental System function 


CRC byte: The last two locations of the address space used 
by the cartridge must be blank. CRC characters will be 
placed in these bytes when the cartridge is built. For the 
CRC algorithm, refer to the routine at label “CRC Check” in 
the BIOS listing. 


The cartridge chip selects should specify EROM2 or EROM3, 
when the cartridge is designed to run application prograags 
which are written in the Basic language, because the Basic 
Interpreter addresses E0000 (Hex). When the Basic Inter- 
preter is activated, a check is made to see if there is a 
cartridge application at D0000 (Hex). When there is a 
cartridge application and its format is correct, the appli- 
cation is loaded into RAM and run. 


The format for interpretable BASIC code must be as follows: 


| Location Contents ' 


) 01 55AA (Hex) : For English Mode | 
AASS (Hex) : For Native and Extension Video Mode | 
2 Length | 

3 CB (Hex) | 

| 4 AA (Hex) 
1 5 155 (Hex) 
| 6 00 (Hex) | 
| 7 FF (Hex) for unprotected Basic Program | 
FE (Hex) for protected Basic Program | 

| 8 Starting address of Basic Source Code 
| i 


n FF (Hex). Padding to next 2048 byte boundary 
| Last 2 bytes CRC Bytes 


Locations 0 and 1 are used to check whether there is a 
cartridge inserted during self-diagnostice test. 55AA (Hex) 
or AASS (Hex) indicates that a cartridge is inserted. 


Location 2 contains a length indicator representing the 

entire address space taken by the ROM on the cartridge. The 
algorithm for determining the contents of this byte is 

(ROM data size/512). The contents of this byte are used by 

the CRC check routine to determine how much ROM to. check. 
Address space for the ROM cartridge is on a 2048 byte boundary. 
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2. Base System 


3. Location 3 aust be CB (Hex. Far Return instruction). 


4. Locations 4 and 5 contain the word AA55 (Hex). This is 
used by the Basic Interpreter to check for the presence of 


a Basic Application cartridge. 


5. Location 6 must be 00. 


Location 7 can either FF (Hex) to indicate an unprotected 
Basic Program, or FE (Hex) to indicate a protected progran. 


7. Location 8 must be the start of the Basic Application 
program. 
8. CRC byte : The last two locations of the address space used 


by the cartridge must be blank. CRC characters will be 
placed in these bytes when the cartridge is built. 













[row | ewmme700 | ERONA 
[roi | eworerrr® | ERoms 






Figure 2-31 ROM Cartridge 
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2.2 Fundamental System Function 


Hardware Interface 


There are two slots for ROM cartridge insertion and they both 
have the same function. The following is a description of pin 
allocations and signals: 


[sient aoe | | | Sil Name 


So See 
TcanTRIOGE RESET| | @ | enon 









rae 
~ 


on 


—BASE 2 ROM 


1} | 
lool M2) 
| a 
m|oO 
mila 
— | oO 
a 
Oo 
= 
w 


te 
o 







erowe | |__| —ERONG | 
ev | | Oe | 


Figure 2-32 ROM Cartridge Connector (J1,J2) 
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2. Base System 


1. 1/0 is referred to as “System-side" view. 
eee Each signal is at a standard TTL level. 


Signal 1/0 Description 

AO - Al4 0 Processor Address line AO - Al4 

D0 - D7 I Processor Data lines 

-EROW2 - 7 0 These chip select lines are used to 


select ROS modules. 


-BASE 1 ROH I When wired to AO] pin (GND), -ERON7 is 
made available. Addresses F8000 - 
FFFFF (Hex) are used by the ROM cart- 
ridge. 


-BASE 2 ROM I When wired to AO1 pin (GND), -EROM6 is 
made available. Addresses F0000 - 
F7FFF (Hex) are used by the ROM cart- 


ridge. 
-CARTRIDGE I This input when “low" causes a reset to 
RESET the system. The system will remain 
reset until this line is brought back tc 
"high". This tab is usually wired with 


an L shaped land pattern to the GND at 
A02 which provides a momentary "reset" 
when a cartridge is inserted or removed 


-CTWR 0 Memory Write Signal (open collector). 


2-54 


2.2 Fundamental System Function 


2.2.14. Printer Interface 


Centronics specifications for an 8 bit parallel interface are 
provided. 


25pin 
Connector 
8 





Data Latch 





Buffer 


Address 






Data Write 


Write Control 


Status Read 


X10 





Control 
Latch Driver 


Command 
Decoder 






Buffer 


z Enable 
Enable 





SLCT IN 
STROBE 
AUTO 
FDXT 
INIT 


ERROR 
SLCT 
PE 
ACK 
BUSY 






















Reset 


Figure 2-33 Printer Interface Block Diagran 


2-55 


2. Base System 


The interrupt level is 7. To make it possible to interrupt, 
control latch bit 4 should be changed to 1. 









Bus IRQ 
Level 7 Interrupt 


Control Bit 4 


Figure 2-34 Printer Interrupt 


1/0 Addresses are as follows: 


0 pecneee Allocation 
(Hex) 


aa | Sate 
Reserved 


Remarks) Address line A2 is not decoded and therefore either on 
of two I/0 addresses are to be used. 








The folloving descriptions apply when the IBM 5513 Printer is 
connected with the printer interface: 


Data Latch (1/0 address 378 or 37C) 
Printer output data are temporarily kept in the Data Latch. 
Status (1/0 address 379 or 37D) 


Input data read at I/0 address 379 or 37D contain the following 
printer status: 


Bit 7 (BUSY): Vhen "0", a printer cannot accept data. 
Following are instances where "0" is set: 


- 1. Data Transfer 


2. Printing 
3. An error occurs 
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Bit 


Bit 
Bit 
Bit 


Bit 


Bit 


6 (ACK): 


5 (PE): 

4 (SELECT): 
3 (ERROR): 
2 (KJ-CD): 


1,0: 


2.2 undamental System Function 


When the printer finishes accepting data, 
it will return the signal -ACK to notify 
the system that it got ready to accept the 
next data. 

When the printer paper runs out, "1" is set. 
When the printer is selected, "1" is set. 


When a printer error occurs, "0" is set. 


When "1", connection to an Image Printer 
is assume. 


Open 


Control Latch (address 37A or 37E) containes the printer control 
signal. 


Bit 


Bit 


Bit 3 (SELECT IN): 


Bit 


Bit 1 (AUTO FD): 


Bit 


7, 6. 5 : 
4 (INTR): 


2 (INIT): 


0 (STROBE): 


Open 
When "1", an interrupt is possible (Level 7). 


When "1", it is possible to control the 
printer from the CPU. 


Vhen "0", the printer is initialized. 


(More than 50 microseconds is required.) 


When "1", a line feed is performed 
after each line is printed. 


5 microsecond pulse (level "1") allows 
sending of data for this duration. 


2. Base System 


Hardware Interface 


The connector used is a D shaped connector and the signal level 
is at standard TTL. 










Sin 


al Name 
aoe 
2-9 


—STROBE oO | 
DATA 0-7 
—ACK 


To] 

a 
a ee 
Pa [ser 








(System Side) 






ris [ error — 














U.5us Minimum 





DATA 
— STROBE 


Figure 2-36 Timing Chart 


2.2 Iundamental System Iunction 


2.3. Keyboard 


The cordless keyboard is battery powered and interfaces to the 
system unit with an infrared (IR) optical link. There are two 
types of keyboards. One is a 83-key (Compact Keyboard) and the 
other is a 102-key (Full Keyboard). The keys are arranged in a 
standard typewriter layout with the addition of function keys 
and cursor keys. All keys are typamatic keys. (When a key is 
pressed for more than 0.6 seconds, that key code is repeatedly 
sent out at a speed of 11 characters per second.) The 
microprocessor in the keyboard is normally in a standby-povwer- 
down mode until a key is depressed. When an optional keyboard 
cable is used, power is supplied from the system unit and 
signals are transmitted via the cable. 


ES BAGBA A688 


PREFER EERAPERRE AE BBP 
RREEREEEEEEEL TE 6 aaal 
E88 ECEREEEEK Ha AEA 
Eacegeyeweneres ol al 
SB BS) eee ee al 


Figure 2-37 Full Keyboard 


ES GG880 28e8ee8 


Sear enaeee 
Beecederereey 
eT 
F) BEYER 


Figure 2-38 Compact Keyboard 


2. Base System 


Transpitter 


Serially encoded scan codes are transmitted to the system unit 


with a bit cell of 440 micro-sec. 
is transmitted, 
infrared link is used, 
ratio) carrier burst signals. 


code 


(Odd parity) 


they are added with 11 stop bits. 


| 11 Stop Bits | 


[s[oofoifoa 


—e] je Bit Cen 


Data ="2E° 
Cable Data | 


Parity = ‘1° 


Jrfofrfrfrfotrpolofr] 


Infrared Data 


Cable | Bit “t | 


eS 


220s ke— 
440us 


lofrared | Biv | 


40KHz 50% 


(ae Cycle 
_|- 62. ssl 
440ps 


aa 220,: kb 
440,05 
| Bit “0° | 


Mi 40KHz 50° 

) 
220ys A Duty Cycle 
: Sars 


4404. s 


Figure 2-39 Keyboard Data Transmission Format 


After each scan 
When 


logical 1 contains a 40 KHz(50 &% duty 


2.3 Kev board 
Micro Processor 


The keyboard contains a microprocessor and its functions are as 
follows: 


- Suppress Chattering 

- Scan Code Conversion 

- Typamatic 

- N Key Roll-over 

- Simultaneous Keystroke check 

- From parallel to serialized Scan Code Conversion 
- Biphase Modulation 


When keys are not pressed, the keyboard is in a standby-power 
down node. 


Scan Code 


Each key is assigned a scan code and when a key is pressed or 
released, serially encoded codes are sent to the system unit. 
The scan code when a key is released, is obtained by adding 

80 (Hex) to the scan code when a key is pressed. For instance, 
the scan code of "ESC" when pressed is "01" and is "81" when 
released. (Reference : Appendix C) 


Error Detect 


The keyboard has an N Key Roll-over function. Every combination 
is possible at N = 2 and when at N = 3, more than 95 % will be 
correctly processed. When Keys of unavailable combination are 
pressed, scan code 55 (Hex) is sent to the system unit as a 
phantom key and notifies it that the keystrokes are in error. 

In this case nothing will appear on the display or incorrect 
words will be displayed. 
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2. Base System 


2.4. Power Unit 


The power unit resides in the system box and provides 
current power to a system board, a diskette drive and 
fan. The output is +5V, +12V, -12V. 


Power Unit within an Expansion Unit 


~12V 

+12V 

'5V> Expansion 
GND Board 
GNO 






GND 


GND 
-5V Drive 


Diskette 


lav 

+12V 

-5V System 
GNO Board 
GNO 


GND Diskette 
GND Drive 
-5V 


Figure 2-40 Power Unit Logic Diagram 
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direct 
cooling 


2.2 ‘fundamental System [unction 


Power Specifications 


— 














+a 
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3. Video Subsysten 


The video subsystem allows the IBM color display, a wide variety 
of television-frequency monitors, or ordinary home TV sets to 
display characters and graphics. It can operate in black-and- 
white as well as in color mode and provides a lightpen interface. 
In this chapter, an overall description of the VSS is mentioned 
first, followed by descriptions of the functions of the three 
video processors (VP1, VP2 and VP3). 
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3. Video Subsystem 


3.1. Introduction 


The video subsystem is implemented using a CRT controller and 
a video gate array. It contains three video processors. 


Video processor 1 (VP1) is used both in English and in Native 
node. It can process alphanumerics and special characters 

(8 x 8 dot) which are compatible with PCjr. It can also process 
a maximum of 640 x 200 dot 4 color graphics. 


Video processor 2 (VP2) is used in Native mode. It can 

process Kanji, Hiragana, full and half-size Katakana characters, 
alphanumerics, special characters and a maximum of 640 x 200 

dot 4 color graphics. 


Video processor 3 (VP3) is contained in an optional Exten- 

sion Video Card and is used in Extension Video mode. It can 
process Kanji, Hiragana, full and half-size Katakana characters, 
alpha-numerics, special characters, grid lines which are 


compatible vith the IBM Multistation 5550 and a maximum of 720 
x 512 dot two color graphics. 


There are four video frequencies available depending on 
operational aode. They are as follows: 


3.5 MHz > 160 x 200 dot 
7 Hz > 320 x 200 dot 
14. KHz > 640 x 200 dot 
20 =z : 720 x 512 dot 
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| 64K RAM | 













| CG 1 
64K --J AN 
RAM Spec. char. 


VRAM 1 


Video Processor 1 
(VP 1) 


Display 
Address 
plexer 





Video Processor 2 
(VP 2) 


CG 2 
Kanji 


Hiragana Gaiji 
Katakana RAM 
AN 


special char. 





7 Video Processor 3 
1 (VP 3) : 
L H 


Remarks) 1. CG +: Character Generator 
2. --- : Option 
3. AN : Alphanumerics 


Figure 3-1 Video Subsystem Block Diagran 
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3.1 Introduction 


3. Video Subsystem 


3.2. Video Subsystem Memory Usage 


The base video color/graphics subsystem accesses 64K bytes of 
system read/write memory (RAH) and 32K bytes of video RAM. 
When an optional RAM card (64 KB) and an Extension Video Card 
(32 KB video RAM included) are installed, video RAM space is 
expanded. 


The memory used by the VSS is separated into VRAM 1 and VRANM 

2. VRAN 1 consists of 64 KB memory on the system board which 
is provided as a Standard feature and 64 KB of expanded memory. 
VRAH 2 is 64 KB of video RAM (32 KB of expanded memory). 

The reading/writing of video RAM is usually performed by first 
specifying the page and by using the virtual address. 


If an additional 128 KB of memory is added, it can not be 

accessed by the VSS and cannot be used as video RAM. When 192K Bem 
of expanded memory (one 64KB RAN card and one 128KB RAM card) 

is added, the address space of the 128KB expansion comes first, 
followed by that of the 64KB on the system board and the 64KB 
expansion card (Reference: 5.5 Memory Map). 


The memory for displaying screens by the VSS (video RAM) uses t hoe 
following three concepts: 


- Virtual Address 
- Page 
- Page Register 


Virtual Addresses 


B8000 - BFFFF (Hex) are virtual addresses for VP1 and VP2. 
AQOOO-AFFFF (Hex) are virtual address for VP3. The memory for 
these addresses does not physically exist. When a data 
read/write is performed from the CPU to these addresses, the 
read/write is performed on the pages (any of 0 - B) which are 
specified by the CPU page register. 


Page 


A page is a memory block separated into 16 KB nite It is part 


of a total of 192 KB memory which : 
memory and 64 KB of expanded men >. eee OF G4 KB ot Nese (vee 


ory, i 
1) plus 64 KB of Video RAM (VRAM 2)! te ee eee 
with 1, 2 or 4 pages. The number of pages n is ee jie lat 
a screen depends on the number of ool necessary to 
resolution. Four pages are neg ors and the display 9 dote 


2 color or 360 x 512 dot 4 elo aco display a 720 x 51 
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3.2 Video Subsystem Memory Usage 









Address 
FFFFF 










C0000 
B8000 






CPU 


Page 


Remarks) The memory addresses shown above are correct for the 
case where only 64KB of expanded memory is installed. 
(Reference : 5.5 Memory Map) 


Figure 3-2 Video Memory Map 
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3. Video Subsystem 


Page Register 


Pages 0-7 are allocated for VRAM 1, while pages 8-B are for 
VRAN 2. The pages are selected by the page register. The I/0 
address for VRAH 1 is 3DF (Hex) and for VRAM 2 is 3D9 (Hex). 
Both are write-only 8 bit registers. There are two kinds of 
page registers, the CPU Page Register and the CRT Page Register. 


- CPU Page Register ; 
specifies “page” for read/write from CPU to video RAM. 


- CRT Page Register ; 
specifies "page" for display on the screen. 














Page Register 1 Page Register 2 
(I/O address 3DF) (I/O address 3D9) 


| CRT Page CRT Page 
| CRT Page 0-7 specified 
' CRT Page 
| CPU Page 
| CPU Page 
| CPU Page 
| 
| 
















Remarks 


lad Page 
8-B specified 


















ro) 
i 
ro) 








CPU Page 
0-7 specified 














ieee Page 
8-B specified 


ore OM = O&O 





Display Mode 
Selection 

Display Mode 
Selection 


Figure 3-3 Page Register 
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3.2 Video Subsystem Memory Usage 


Bits 0 - 2 

Which page in VRAM 1 (16 KB/page) to display is determined 
by these three bits in page register 1. 

Which page in VRAM 2 (16 KB/page) to display is determined 
by these three bits in page register 2. 


Bits 3 - 5 

These three bits select the page for the data transfer in case 
the data reside at virtual addresses B8000-BFFFF (Hex). In 
Extension Video mode, bits 3 and 4 should be set to "0" and 
virtual addresses of AQQOQO-AFFFF (Hex) are used. 


Bit 6, 7 (Only for VP 1) 
VP1 display mode is selected. 


| Bit 7, Bit 6 Meaning . 


0 0 ' All text modes 

0 1 ' Low resolution graphics mode 

1 0 Open 
1 1 i High resolution graphics mode 


& ee ne eee | 





Low Resolution Graphics Modes: 


- 160 x 200 dots 16 colors 
- 320 x 200 dots 4 colors 
- 640 x 200 dots 2 colors 


High Resolution Graphics Modes: 


- 320 x 200 dots 16 colors 
- 640 x 200 dots 4 colors 


The CPU page register allows pages other than that being 
displayed to be selected and to be read/written. A change of 
the contents of the CPU register does not affect the displaying 
Screen, but when the contents of the CRT page register are 
changed, the screen being displayed will change. Page changes 
are performed by the CRT page register by BIOS at the time of 
vertical line retrace of the display raster. Because of this, 
you can use page changes effectively to achieve an animation 
effect without garbling the screen. 


(Reference: 2.2.6 Memory Space and I/O Address Setting) 
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3. Video Subsystem 


3.3. Character Generator 


The Video Subsystem has two different character generators: 
Character Generator 1 (CG1) and Character Generator 2 (CG2). 


3.3.1. Charactor Generator 1 (CG1) 


CG1 consists of 2 KB of storage, for alphanumerics and special] 
characters and is used only by VP1. One character consists of 
8 x 8 dots. CG1 has a 350 ns access time/350 ns cycle-time. 

An NW2364 (or equivalent) is used. 


The kinds of characters contained in CGl are as follows: 


16 special characters for games 

15 characters for word processor editing 
96 ASCII graphic characters 

48 English characters 

48 graphic characters for business use 
16 symbols 

15 scientific characters 


3.3.2. Character Generator 2 (CG2) 


CG2, used by VP2 and VP3,uses 128 KB of ROM. 
The following are its characteristics: 


1. The IBM 5510 uses the JIS Level 1 Kanji character set. 
(G2 contains Hankaku (half-size)characters of 8 x 16 dots 
such as alphanumerics, special characters and Katakana, and 
Lenkaku (full-size) characters of 16 x 16 dots such as 
Hiragana and JIS Level 1 character set Kanji. CG2 contains 


8 x 8 alpha/numerics, special characters and Katakana which 
are used for 80 x 25 text mode display by VP2. 


2. ins Guba of four 32 KB ROMs of type TM23256(or equiva- 
ent 


3. Access time and cycle-time are both 250 ns. 


4. (G2 can be accessed from the yp2 and VP3 code buffer and 


fonts can be read through BIQS, . ji 
characters in graphics mode, (G9 - ae ii ct Aion! pale 
is written on the video RAM. . y BIOS 3m 
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3.3 Character Generator 


In order to distinguish one-byte (Hankaku) codes from two- 

byte (Zenkaku) code, 256KB of virtual address space are 

ey The codes are then compressed 128KB of Kanji ROM 
CG2). 


When a Kanji is written on video RAM, the hardware uses 
the Kanji code to point to a ROM Kanji address and the 
character at that address is displayed. 


In memory, CG2 is allocated to 80000 - BFFFF. 
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3. Video Subsystem 


3.4. Display Function of VP1 and VP2 
VP1 and VP2 have the following two display modes: 


- Text rode 
- Graphics mode 


The Graphic displaying functions of VP1 and VP2 are the same, 
but their text displaying functions are different: 


VP1/VP2 Displaying functions 






! 40 char. X 25 lines (AN) 20 char. X 11 lines (Kanji) 
Display 80 % X25 4% (AN)*¥! 40 + X11 4% (7 ) 
| 40 X 25 (ANK) 

| 80 X 25 (ANK) 

| 160 X200 dot 16 colors | 

: 320X200 + 4 + 

| 320 X200 + 16 + x 
! 


' Graphics 
Display 







The same as VP]1 
640 X200 +» 2 » 


} 
! 
| 
640 X200 +» 4 4% & 











Character ; Alphanumeric JIS Level 1 Kanji 
: display Special Characters (16 X 16 dot) 
_ possible (8 X 8 dot) Hiragana (16 X 16 dot) 


Katakana, Alphanumeric, 
Special Char. (16 X 16 or 
8 X 16 dot) 


Katakana, Alphanumeric, 


Special Char. (8 X 8 dot) 


Super- : : | : 
| aes Graphics display only Graphics and Text display 


es ee ee a ee 





Remarks) 1. ¢ indicates that 64 ; 
for VPI. are ce KB expanded memory is required 
2. AN stands for Alphan . Hs 
and Katakana. wmeric and ANK for Alphanumer! 


Figure 3-4 VP1 and VP2 Display Function 
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3.4 Display Function of VP1 and VP2 
3.4.1. VP1 Text Display 


In color-text mode, 16 colors are available either for the 
foreground or the background. The number of background colors, 
however, becomes 8 when “blink” is used. One of 16 colors is 
available for use in the text mode screen border. 


The character generator contains 256 character fonts in its 2 KB 
ROM (CG1). 


The display character codes are stored in even addresses, while 


their character attributes are stored in the odd addresses next 
to then. 


Video RAM Addresses 


0005+ 


Character Code Attribute | Character Code Attribute Character Code 


The right-half of Zenkaku Character or 
One character of Hankaku character 


The left-half of Zenkaku (full-size) character or 


One character of Hankaku (half-size) character 


VP1 Attributes 
(1) Blink is possible 


In the mode control 2 register, a "1" makes blink possible. 


The number of background colors, however, is reduced to a 
maximum of 8. 


MSB LSB 
: G 5 4 3 2 l 0 
B PA2 PAl PAO PA3 PA2 PAl PAO 


Foreground color (Palette address) 


Background color (Palette address) 


Blink control 


3. Video Subsystem 
(2) Blink is not possible 


MSB LSB 
7 6 5 4 3 2 1 0 
PA3 PA2 PAl PAO PA3 PA2 PA] PAO 


Foreground color 
(Palette address) 


Background color 
(Palette address) 


3.4.2. VP2 Text Display 
VP2 Attributes 
(1) Blink is possible 


In the VP2 mode control 1 register, if bit 6 is "0", it is 
possible to display alphanumeric mode characters. (8 x 8 dots 
to display one character. Reference: 3.4.4 Video Gate Array.) 
In this display mode, an attribute has the same meaning as in 
VP1. 


MSB LSB 
7 6 5 4 3 2 1 0 
ZN PA2 PAl PAO 2nd PA2 PA] PAO 


) 


Foreground color 
(Palette address) 
Zenkaku character 
0 : Ist byte 

1: 2nd byte 

Background color 
(Palette address) 


Character 
0 : Hankaku 
1 : Zenkaku 
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3.4 Display Function of VP1 and VP2 
3.4.3. VP1 & VP2 Graphics Display 


VP1 and VP2 support the following six graphics modes: 


Graphics Mode 1 


Graphics mode 1 displays on an ordinary TY set, 12” color display 
or 14" color display and has the following characteristics: 


- 160 dot horizontal and 200 dot vertical display 
- 16 colors are available for each dot 


- 16 KB memory per screen are necessary, as the color is speci- 
fied for each dot 


- 1 byte is required to specify 2 dots 
- This corresponds to Screen Mode 1 in Basic. 


MSB LSB 
7 6 5 4 3 2 1 0 


PA3_PA2 PAl PAO PA3 PA2 PAl PAO 


nS | 


Ist display dot 2nd display dot 


Graphics Node 2 


Graphics mode 2 displays on an ordinary TV set, 12” color display 
or 14" color display and has the following characteristics: 

- 320 dot horizontal and 200 dot vertical display 
4 out of 16 colors can be displayed 


16 KB memory per screen are necessary, as the color is speci- 
fied for each dot 


1 byte is required to specify 4 dots 
This corresponds to Screen Mode 2 in Basic. 


MSB LSB 
7 6 5 4 3 2 1 0 
PA] PAO, PAL PAO PAI PAO PAI] PAO 

Ist 2nd 3rd 4th 
display display display display 
dot dot dot dot 
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3. Video Subsystem 


Graphics Hode 3 


i i igh- i hics and 
aphics node 3 displays high resolution 2 color grap 
i: ces Ls only on high-resolution displays. This mode has 
the following characteristics: 


640 dot horizontal and 200 dot vertical display 
2 out of 16 colors can be displayed 


16 KB memory per screen are necessary, as the color is speci- 
fied for each dot 


1 byte is required to specify 8 dots 
This corresponds to Screen Mode 3 in Basic. 


MSB LSB 
7 66 5 4 3 2 1 0 
PAO PAO PAO PAO PAO PAO PAO Pao 


ae dot 


7th dot 
6th dot 
5th dot 
4th dot 
3rd dot 
2nd dot 
Ist dot 


Graphics Hode 4 


Graphics mode 4 displays on 
or 14" color display and has the following chara 


an ordinary TV set, 12" color disp] aay 
cteristics: 


320 dot horizontal and 200 dot vertical] display 

16 colors are available for display 

32 KB memory per screen are nec eti~ 
fied for each dot “seary, as the color fs sp 

1 byte is required to Specify 2 

64 KB expanded memory jg required fey VPI 

This corresponds to Screen Mode 4 in Basic 


MSB 


LSB 
fa St & ee Ff 
PA3 PAZ PAl PAO PA3 PA? pay PAg 
eS | 


Ist display dot 2nd display dot 


3.4 Display Function of VP1 and VP2 


Graphics Mode 5 


Graphics mode 5 can display only on high-resolution displays 
and has the following characteristics: 


640 dot horizontal and 200 dot vertical display 
4 out of 16 colors can be displayed 


32 KB memory per ‘screen are necessary, as the color is speci- 
fied for each dot 


64 KB expanded memory is required for VP1 
2 bytes are required to specify 8 dots 
This corresponds to Screen Mode 5 in Basic. 


MSB LSB 
byte 7 6 5 4 3 2 1 0 
Even PAO PAO PAO PAO PAO PAO PAO PAO 
Odd PAl PAl PAL PAl PAl PAl PAl PAl 


8th dot 
7th dot 
6th dot 
5th dot 
4th dot 
3rd dot 
2nd dot 
Ist dot 


[ 


3. Video Subsystem 


Graphics Mode 6 


Graphics node 6 can display only on a high-resolution display. 
This mode is achieved by combining two screens. One is screen 
mode 5 of VP1 and the other is screen mode 5 of VP2. 


has the following characteristics: 


640 dot horizontal and 200 dot vertical display 
16 colors can be displayed 


64 KB memory per screen are necessary, as the color is speci- 


fied for each dot 

64 KB expanded memory is necessary 

4 bytes are required to specify 8 dots 

This corresponds to Screen Mode 6 in Basic. 


The lowest 2 bits of the palette address a dt e % 
value in VP1 video RAM. re used to set the 


MSB LSB 
byte 7 6 5 4 3 2 1 0 
Even PAO PAO PAO PAO PAO PAO PAO PAO 
Odd PAl PAl PAl PAl PAl PAl PA] PAI 


| eer 8th dot 


7th dot 
6th dot 
5th dot 
4th dot 
3rd dot 
2nd dot 
lst dot 
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This mode 


3.4 Display Function of VP1 and VP2 


The highest 2 bits of the palette address are used to set the 
value in VP2 video RAM. 


MSB LSB 
a a a er ee ee or 
Even PA2 PA2 PA2 PA2 PA2 PA2 PA2 PA2 
Odd PA3 PA3 PA3 PA3 PA3 PA3 PA3 PA3 


| ee dot 

7th dot 
ees 
Sth dot 

4th dot 

3rd dot 

2nd dot 


lst dot 


In graphics mode 6, methods of specifying the palette address 


differs from those of graphics modes 1 through 5. 


Mode 1—5 address Mode 6 address Hex. Value 
PA3 PA2 PAl PAO PA3 PA2 PAl PAQ 





3. Video Subsystem 


3.4.4. Video Gate Array 


The video gate array controls the video functions and the 1/0 
address is 3DA (Hex). The gate array for VP1 and VP2 has 8 kinc 


of internal registers. There are internal registers for each 0% 
VP1 and VP2 and also ones used commonly by VP1 and VP2. 


To contro! read/write to a register, a flip-flop latch is used. 
Each time a write is performed to an I/0 register, address/data 
flip-flop latch will be reversed. When a read is performed, 
this flip-flop changes to “address status”. 


i Write 2 Write a 


I/O address Register Data 
3DA address 





The following are descriptions of the registers: 


Internal Register Address 


The addresses for VP1 and VP2 are the same. When a register for 
VP1 is accessed, however, the "P" bit of memory block GA2A shoul 
be "1". Similarly, when a register for VP2 is accessed the "P"” 
bit of memory block GA2B should be "1", (Reference 2.2.6 Memory 
Space and I/0 Address Setting) 


; Address(Hex) | Register Name 





00 Mode control 1 register (separate) 

01 ; Palette mask register (separate) et 
| 02 : Border color register (common) I 
>; — 
i 03 i_Mode control 2 register (separate) 
1 04 : Reset register (common) 4 
fo 
i 05 | Transparent palette register (for VP only) | 
coe coset } 
SS : 7 aS 
i 06 : Superimpose control register (common) 

10~1F | Palette register (common) iad: 
Te het | 
Remarks) separate --- separately useg by vp 

common ----- componly used by VP 1 and VP2 
1 and vP2 


Mode 


This 
gate 


By, 


peice 
| 


! 


NY on fw nw! 'o! 


w 
=e 
ct 


Bit 
Bit 


Bit 


! 
4 


i 
ce. 


-"ifden ankle 


: 16 color graphics 


3.4 Display Function of VP1 and VP2 


Control 1 Register 


is a write-only 8 bit register and the address in the video 
array is 00 (Hex). 


it. VP1 function “T vp2 function 








- - Souunmemieeerent oo Reet | 
i High to low bandwidth | High to low bandwidth | 
: a een es — 

raphics/Text , Graphics/Text 





jae os 
| Video enable 


_——— —}  -_.. 


a 


_{ 1 color graphics | 





a ~ VRAM 2 Kanji/AN mode 





— Super 16 color 


The high video bandwidth display requires it to be "1". 
The following display modes require the high video 
bandwidth. 


An optional 64 KB expanded RAM card is required for VP1. 


- 80 char. x 25 lines text mode 
- 640 x 200 dot 4 color graphics 
- 320 x 200 dot 16 color graphis 


" 


1” for all graphics modes, "0" for text mode. 


Always "0". 


"1" makes the video signal available. "0" makes it not 
available and the screen becomes border color. 


"1" for 160 x 200 dot 16 color graphics and 320 x 200 
dot 16 color graphics. 


For VP2. "1" makes it possible to display Kanji charac- 
ters using VRAM 2. When it is "0" and bit 1 is "0", 


80 chars. x 25 lines text display (ANK) is possible 
using VP2. 


For VP2. "1" makes it possible to display 640 x 200 dot 
16 color graphics (screen mode 6). In this case, as 
both VRAM 1 and VRAM 2 are used, superimpose is not 
possible. 


3. Video Subsystem 


Palette Hask Register 


This is a write-only 8 bit register and the address in the vide 
gate array is 01 (Hex). "0" makes it possible to mask the 


palette. 


Bit ; VP1 function 
Mask bit 0 Mask bit 0 

Extended video 

Video bandwidth control 


Bit 0- 3 : "O" masks palette register address bit. 










Bit 4: "1" makes VP1 access VRAN 1. 
Bit 5: "1" makes VP2 access VRAM 2. 
Bit 6 : "1" makes VP3 access VRAM 3. 


Bit 7 : This changes the video bandwidth. "0" sets 14 Mig 


while "1" sets 20 MHz. 


Border Color Register 


This is a write-only 4 bit register whose address in the video 
gate array is 02 (Hex). The four bits correspond to R, G, B ance 


I and the border color is fixed by their combination. 


VP1, VP2 












B (Blue) 
1 | G (Green) 

2 1|R (Red) 

3 | 1 (Intensity) 
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3.4 Display Function of VP1 and VP2 


Mode Control 2 Register 






is a write-only register whose address in the video gate 
is 03 (Hex). 









VP 2 function 


Blinking (0” in Kanji) 
always “0” 


VP 1 function 
always ‘‘0” 
Blinking 


always 6 0” 





















2 color graphics 2 color graphics 
= | English mode 





>: When "1", the attribute byte in text display has the 
following meaning: 


MSB LSB 
7 6 5 4 3 2 1 0 
B PA2 PAl PAO PA3 PA2 PAl PAO 


Foreground color 
Background color 
Blinking 


When "O", the attribute byte in text display has the 
following meaning: 


MSB LSB 


t 6 R) 4 3 2 1 a 


PAS PAZ PAL PAQ PA3 PA2 PAL Pao 


ue 


Foreground color 
Background color 


In graphics mode, when the control 2 register bit 1 is 
"1", the palette (PA3) high bit address is replaced by 
character the blink rate and for this, 2 colors will be 
displayed alternately. If the palette of the higher 
half and the lower half are the same, the color remains 
unchanged. If they are different, two colors will be 
displayed alternately in accordance with the blink rate. 
To cause this, only 8 colors are possible and bit 3 of 
the palette mask register becomes inactive. 
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3. Video Subsystem 


Bit 3: "1" when in 640 x 200 2 color graphics mode. 


Bit 4 : "1" when in English mode. The memory space for the 128 
KB expanded RAN card is placed after that of the 64 KB 
memory on the system board and the 64 KB expanded RAM. 
"O" when in Native and Extended Video mode. In this 
case, memory space for the 128 KB expanded RAM is always 
placed after memory address 20000 (Hex). 


Reset Register 


This is a write-only 2 bit register whose address in the gate 
array is 04 (Hex). 


0 | Asynchronous Reset 






Synchronous Reset 


Bit 0 : "1" issues an asynchronous reset in the video gate array 
and stops all memory cycles. All output signals are 
tri-stated and memory is cleared. This reset should be 


issued only once after power-on and then the synchronous 
reset should be used. 


Bit 1 : "1" issues a synchronous reset in the video gate array 
and stops all memory cycles. All output signals stop. 
Vhen a synchronous reset is made after a memory refresh 
at the time of a display mode change, the contents 
of the gate array mode control register and the CRT 


control register will be changed. After the synchronous 
reset is released, a memory refresh is done. 


In this way, the memory contents will not be changed 
even at the time of display pode change. 


Transparent Palette Register 


This is a register for VP1 only and specifies which palette 
register will become transparent. The address in the gate array 
is 05 (Hex). 


Bit | Function 


0 | Register Select 0 
Register Select 1 
Register Select 2 
Register Select 3 
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3.4 Display Function of VP1 and VP2 
Superimpose Control Register 


The address in the gate array is 06 (Hex). It controls super- 
imposing of VRAM 1 and VRAM 2. 


Function 


Priority Control 


Transparent Control 
Mode Control 1 
Mode Control 2 





Bit 3, 2 = 11 --- OR 
10 --- AND 
01 --- XOR 
00 --- has the following meanings depending on bits 
0 and 1. 





oe i 7 


VRAM 1 VRAM 2 NO 
poe tT vRAM2 | VRAM 1 
VRAM 1 VRAM 2 YES 


VRAM 2 VRAM 1 























Background color is 
displayed in the 


foreground 
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3. Video Subsystem 


Palette Register 


This is a write-only 4 bit register. The combination of the 4 
bits selects a color. There are 16 registers and the addresses 
in the video gate array are 10 - 1F (Hex). 

Each address has a corresponding color code. 


: Color Code | Palette Register 


(Hex) | Address (Hex) | 
0 10 


— 


_ 
i) 


— 
~ 


1D 


MONO DWDF Down awmn & ww = 


eal 
— 
7" 


Figure 3-5 Palette Register and Color Code 


3.4 Display Function of VP1 and VP2 











000 
Purple 

Pao 1 1_| Bright Light Blue | 

1 32 1 


Bright Yellow 
Pata] Bright Whit 


0 
0 





[oo i 0_| Gree 
eS: 


Figure 3-6 Palette Register and the color displayed 


When the palette is loaded, the video is in a "display disable” 
status and the color on the screen is set depending on the 
contents of the register which the processor specifies. 

When the program finishes loading the palette, the video changes 
again to a “display enable” status. 
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3. Video Subsystem 


3.4.5. Superismpose 


VP1 and VP2 operate on the same clock at 14.31818 MHz. The two 
video signals can be imposed using the mixer. The video mixer 
includes a 4 bit x 16 word palette. The mixer sets the priority 
of VP1 and VP2 and allows screens to be imposed using such logic 
operations as AND, OR, or XOR. 


ae Kanji ANK | 160x | 320x | 640x | ANK | 320x | 640 | Kanji 
ia Blox | 40x | 200! 200! 2001 sox | 200 200 | 40x 
ar 5 25 }16C |4c |2C a 5 5 a 
160% 200 x | x 
16C 


0 Xx | a 
0 C 





Remarks) © ---- Imposition Possible 
X ---- Impossible 
AN --- Alphanumeric, Special Chap 
ANK -- Alph ic, S aE LOE 
oe ot epee pecial Character, Katakana 


Figure 3-7 Combinations for Superimposa 
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3.4 Display Function of VP1 and VP2 


3.4.6. Video RAM and Display Screen Relationships 


The size of video RAM necessary to display graphics depends on 
what is being displayed. 


The following displays require two banks of memory, each of 
which is 8000 bytes: 


- Graphics mode 1 (160 x 200 dot 16 colors) : 2 dots/byte 
- Graphics mode 2 (320 x 200 dot 4 colors) : 4 dots/byte 
- Graphics mode 3 (640 x 200 dot 2 colors) : 8 dots/byte 


|_—______—_______— 80 bytes /line ————_} 


neo | 
Ea 





Remark) The value in the rectangle indicates the relative 
address (Hex) of the video RAM. 


Figure 3-8 Video RAM and the screen (1 of 2) 


3. Video Subsystem 


The following displays require four banks of memory, each of 
which is 8000 bytes. 


- Graphics mode 4 (320 x 200 dot 16 colors) 
- Graphics mode 5 (640 x 200 dot 4 colors) 


|-—_—____—_——_le0 bytes/line————____J 





Remark) The value in the rectangle indicates the relative 
address (Hex) of the video RAM, 


Figure 3-8 Video RAM and the Screen (2 of 2) 
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3.5 VP3 Display Function 


3.5. VP3 Display Function 


VP3 is a video processor for Extension Video mode and is 
included in an optional Extension Video card. 


3.5.1. VP3 Text Display 
VP3 supports display of the following types of text 


- Kanji, Hiragana 
Zenkaku(Full-size) 16 x 16 dot, 40 characters x 25 lines 


- Katakana, Alphanumerics, Special Characters 
Zenkaku(Full-size) 16 x 16 dot, 40 characters x 25 lines 
Hankaku (Half-size) 8 x 16 dot, 80 characters x 25 lines 

- Vertical and Horizontal Grid lines 


Attributes differ between monochrome and color displays. 


Monochrome display attributes: 


MSB LSB 


7 6 5 4 3 2 1 0 
[8 [ws] we vopwry wry eR] on 





Character 
BQ Messe Hankaku 
] Peseeee Zenkaku 
When Zenkaku 
SQ Perse 1st byte 
Messe 2nd byte 


Reverse video 
Intensity 

Grid line (vertical ) 
Grid Line (horizontal) 
Underline 

Blink 
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3. Video Subsystem 


Color Display Attributes: 


MSB LSB 


7 6 R) 4 3 2 1 0 


Character 
0) “esses Hankaku 
| Meseeee Zenkaku 
When Zenkaku 
SQ Meseeee lst byte 
ee Dien 2nd byte 


Reverse Video 
Color : “0” for Red 
Grid line (vertical ) 


| : Grid Line (horizontal) 
| Color : “0” for Green 
Color : 


> “0” for Blue 


Remarks) 1. The combination of bits 3, 6 and 7 makes it possible 
to display 8 colors. 


2. Display is not possible when all of bits 2, 3, 6 and 
7 are "1". 
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3.5 VP3 Display Function 


3.5.2. VP3 Graphics Display 


In VP3 graphics display, the address space of A0000 - AFFFF (Hex) 
allocated as the video RAM virtual addresses. 


VP3 supports the following two graphics modes: 


- Mode 1 : 360 x 512 dot 4 colors 
- Mode 2 : 720 x 512 dot 2 colors 


Mode 1 
Mode 1 graphics display has the following characteristics: 


360 horizontal x 512 vertical dot display screen 

- 4 out of 16 colors can be displayed at one tine 

- 46,080 bytes of memory are required, as the color is 
specified for each dot. 

- 1 byte specifies 4 dots. 


MSB LSB 
‘ G 3 4 3 2 ] 0 
PA} PAO PAT PAO PAL PAO PAl1 PAO 
lst 2 nd 3rd 4th 
display display display display 
dot dot dot dot 
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3. Video Subsystem 


Mode 2 
Mode 2 graphics display has the following characteristics: 


- 720 horizontal x 512 vertical dot display screen 

- 2 out of 16 colors can be diplayed at one time 

- 46,080 bytes of memory are required, as the color is 
specified for each dot. 

1 byte specifies 8 dots. 


MSB LSB 
7 6 5 4 3 2 1 0 
PAO PAO PAO PAO PAO PAO PAO PAO 


8th dot 
7th dot 
6th dot 
5th dot 
4th dot 
3rd dot 
2nd dot 
lst dot 


| 
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3.5 VP3 Display Function 
3.5.3. Gate Array 


The VP3 gate array is contained in an optional Extension Video 
Card and the I/0 address is 3DD (Hex). The gate array has eight 
internal registers whose internal addresses are 00 - 07 (Hex). 
The internal registers perform various controls on VP3. 


Write to internal register 


Step 1 Read (Dummy) at I/0 address 3DD (Hex) 


Step 2 
> Write internal register address 


at I/0 address 3DD (Hex). 


Step 3 
Write the internal register data 
which was specified in the above 
step 2 at I/0 address 3DD (Hex). 
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3. Video Subsystem 


Register 0 


The internal address is 00 (Hex). When any data are written 
in this register, a write to the internal register is made 


possible. 
Register 1 


The internal address is 01 (Hex). When any data are written 
in this register, a write to the interna] register is made 
impossible. Registers other than the palette register are 
cleared. 


Register 2 
The internal address is 02 (Hex). 


MSB LSB 


Pfs] s}s] sj 2tifo | 


Cursor mode selection (Mono. text only ) 


“0” : CRITIC Guess 


“1” > Character Box Reverse 
Display mode 
“OO” = Text 


“1” > Graphics 
Synchronous Pulse 
“0” : impossible 
“1” = possible 
Video Pulse 
“0” = impossible 
“1” = possible 
Open 
Cursor Length 
“0” > Hankaku length 
“1” > Zenkaku length 
Open 
Open 


In color node ("1" at bit 7 of Register 5), only sh at bit 0 
is valid. 
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3.5 VP3 Display Function 
Register 3 


This register contains the information for setting the color in the 
palette register. The internal address is 03 (Hex). 


I (Intensity) 


Open (0) 
Palette register address 





Palette register address 


Bit 7, 63 
00 Palette register 0 
01 Palette register 1 
10 Palette register 2 
11 Palette register 3 


The palette registers 0 through 3 can be used in 360 x 512 dot 
graphics display. The palette registers 0 and 1 can be used 
in 720 x 512 dot graphics display. 


Register 4 


The internal address is 04 (Hex). A write is performed against 
this register to make the clock available (any data vill do). 
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3. Video Subsystem 


Register 5 


The internal address is 05 (Hex). 


Grid line color : B (Blue) 
Grid line color : G (Green) 
Grid line color : R (Red) 
Grid line color : | (Intensity) 


Foreground Intensity 
(Color text, Mono-graphics ) 
Display 





“0” = Mono. mode 
“1” = Color mode 


Register 6 


The internal address is 06 (Hex). 


MSB LSB 

t]e]s{4] 3f2tifo | 
Reserved 
Reserved 
Reserved 
Resolution 


“0” : 360 X 512 dot 4 colors 
“1" 5 720 X 512 dot 2 colors 
Reserved 
Reserved 
Reserved 
Reserved 
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3.5 VP3 Display Function 


Register 7 


The internal address is 07 (Hex). 


Background color : B (Blue) 
Background color : G (Green) 
Background color : R (Red) 
Background color : I (Intensity) 





Display Mode Selection 


The VP3 display mode is set by the combination of the bits as 
follows: 


Ls Register 2, bit 1 --- X 
2. Register 5, bit 7 --- Y 
3. Register 6, bit 3 --- Z 


Display mode 








Mono. Text 


Color Text 
Mono. Graphics 





Color Graphics (mode 1) 


Color Graphics (ted 2) 
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3. Video Subsystem 


3.5.4. Video RAM and Display Screen Relationships 


Tvo banks of memory each of 23,040 bytes are used to display the 
following: 


- Graphics mode 1 (360 x 512 dot, 4 colors) 
- Graphics mode 2 (720 x 512 dot, 2 colors) 


| _________99 bytes/line —————______ 





Remark) The value in the rectangle indicates the absolute 
address (Hex) of the video RAM. 


Figure 3-9 Video RAH and the screen (VP3) 
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3.6 CRT Controller 


3.6. CRT Controller 


The HD46505 is used as the CRT Controller (CRTC). It has 19 
accessible internal registers. One of these registers, the 
Index register, is actually used as a pointer to the other 18 
registers. It is a write-only register and the I/0 address is 
3D4 (Hex). In order to write data in any of the 18 registers, 
the Index register is first loaded with the necessary pointer. 
Then, the Data register is loaded with the information to be 
placed in the selected register. The data register is loaded 
from the processor by executing an OUT instruction to I/0 
address 3D5 (Hex). 


The following are the relationships between the modes and the 
registers: 








VP 1& VP 2 


Register 
Text Graphics 


3 
— Low igh] Text | Graphic 
aes 'y 40x25 | 80x25 | Band|Band 
TS 








ain NO 








a|> 


} 
! 
1 


jmio:a 


















a—_ foe 
= s n 
‘ 


Lightpen data (low Address) : Read-only 


Remark) All register values are given in Hexadecinal. 


Figure 3-10 Display and CRTC Register Value 


3. Video Subsystem 


3.7. Light Pen Interface 


The light pen interface is designed for RGBI (Red, Green, 


Blue, 


Intensity). Due to timing differences depending on different 
display types, the row/colugn value returned from the CRT may 
vary. These differences must be compensated for through 


software. 


The following show the light pen data read sequences: 


Read CRTC 
R16, R17 


Reset 
LP Strobe 
Latch 





Read I/0 address 3DA (Hex) 
Bit 1 : LP strobe latch 
Bit 2 : -LP SV 


0 : Light Pen switch is on. 
1 : Light Pen switch is not pressed. 


0 : Light Pen is not lighted. 
1: Light Pen is lighted and address 
data are in R16 and Ri7 of CRTC. 


Write data in I/0 address 3DB (Hex). 
(Any data will do.) 


3.7 Light Pen Interface 


Hardware Interface 


A light pen is connected to a five pin connector on the back of 
the system unit. 


—LPEN INPUT 


+5V 
—LPEN SW 





(System Side) 


Figure 3-11 Light Pen Interface Connector (J9) 


3. Video Subsystem 


3.8. Video Subsystem I/0 Addresses 
In Native Mode, I/0 addresses used by the Video Subsystem are 


initialized with the following but they can be changed by 
the software: 


Address 
(Hex. ) 








io A8 AT AG AS AY AZ AZ Al AO Register 


VP1/2 Gate Array 
Light Pen Latch Clear 




















ee Light Pen Latch Set 
,3D0,3D2 CRTC Index Register 


1 3D4.3D6 





CRTC Data Register 





Page Register 


VP3 Gate Array 


Figure 3—12 Video I/O Addresses 
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3.9 Hardware Interface 


3.9. Hardware Interface 


This interface provides power to an optional TV Adapter. The 
signal level is standard TTL but the audio output operates with 
a 1V Peak-to-Peak signal biased at OV which can drive a 10 K Oha 
or greater input impedance. 





ft 0 

8 2_i 3 ' — HSYNC O 

(amy 4 !-VSYNC 0 

15 9 5 H -L. SW O 

6 l 0 

(System Side) | ; B 0 
Ps GND = 

as GND = 

i 10 _ iG O 

1 COLOR CLOCK =O 

ae Boas re) 

1 13 | POT Loch OO 

AUDIO 0 


Figure 3—13 Display Interface (J15) 
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4. System Options 


The IBM 5510 system provides connectors on the system board 

for optional feature installation. In this Chapter, optional 
features and their connection to the system are described. 

I/0 devices can be connected to the Expansion Channel connectors. 


4. System Options 


4.1. 64KB RAM Card 


To display 80 characters x 25 lines in text mode, or 640 x 200 
dots in 4 colors or 320 x 200 dots in 16 colors in graphics 
mode, the system RAM size should be expanded to 128KB through 
installtion of this option. This card consists of one board 
and connects to a 50 pin connector on the system board. 

(Only one 64KB card can be installed.) 

When this card is inserted, the addressing method is changed. 
This memory option uses the ODD memory space, while the system 
memory is decoded as the EVEN memory. When an additional 128KB 
of RAM is installed, the addresses will again be changed. 
(Reference : 5.5 Memory Map) 

Memory refresh is performed on the system board logic. 





Figure 4—1 64KB RAM Card 
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4.1 64KB RAM Card 


The following are the connector specifications for the JX 64KB 
RAM Card. 


Signal 





Figure 4-2 64KB RAM Card Connector Specifications (J6) 
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4. System Options 


I/0 refers to the view from the card side. 


AO 


-DISABLE 
EDATA 


SAT1 


GACO - GAC7 


DO - D7 


V1AO - V1A7 


VIDEO MEMR 


-AGDP 


-DIS CASO 


CAS1 
~LCG 


GATE 


1/0 


1/0 


Description 


Row Address Strobe. This timing pulse 
sets the row address for the RAM modules. 


Address line AO. When this bit is "1", 
the 64KB RAM card is selected. 


When the expansion RAM card is installed 
and the microprocessor is reading an odd 
byte of data, the expansion card tri- 
states the latch for an even byte of data 
on the system board using this line. 


This signal indicates that the expansion 
RAM card should latch up data from the 
expansion RAM into the attribute latch. 


These data lines contain VP1 data from 
the attribute latch. 


Data lines DO - D7. 


These are multiplexed address lines and 
contain the row, column, and CRT 
addresses. 


This signal when high indicates that the 
video RAM is being accessed. 


This line when low indicates that a CPU 
RAM cycle is occurring. 


; B 
This line is used to disable the system 
board CASO when a system aLehO Re Oe 
write is occurring in the expans! 
RAM. 


Column Address Strobe 1 
This line is used to instruct the data 
board that attributes or geraP ion RAM 
should be read from the expans 


card. 


t. 
This line becomes the -LCG outP¥ 
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Signal 


SPL1 


-64KB CDIN 


1/0 


4.1 64KB RAM Card 


~~] 
mm, 
me me a a a a ae a a a a a a ee 


This lite instructs the weacry that the 


ie see write cycle is occur- 


This line instructs the expansion RAM 
card to latch the data from the 


expansion RAM into the microprocessor 
latch. 


When a 64KB expansion RAM card is 
Inserted, this line is low. 
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4. System Options 


4.2. 128KB RAM Card 


The 128KB RAM card expands the system's memory size by 128KB 
increments up to 512KB maximum. The 128KB RAM card plugs into 
the I/0 Expansion Connector on the system board or Expansion 
unit. This mesory is 150ns dynamic RAM. Addres decode and 
refresh logic are included on this card. 

One card can be installed in the base system. When the Expan- 
sion unit is installed, a total of three cards can be installed. 
When installing the 128KB RAM cards, an address decoder jumper 
should be connected. 


128 KB RAM Jumper Address Address 
Card Range (English Mode) 
| 1 __| _+00000~1FFFF | 20000~3FFFF 


20000~3FFFF | 40000~5FFFF 
40000~SFFFF | 60000~7FFFF 












Figure 4-3 128KBR RAM Card and Jumper 


When the 128KB RAM card is installed with the jumper, base t 
nemory addresses are placed after the 128KB RAM addresses 9 
the initial self-diagnostic power-on test or system reS@-- |.) 
vie base memory addresses, however, will not change in En® 


(Reference: 2.2.7 Expansion Channel, 5.5 Memory Map) 
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4.3 Extension Video Card 


4.3. Extensjon Video eae 


2 F Card consists of p 

The Extension Video ; @ gate array for Video 
Processor 3 (VP3)» . Fiecticn tert aaa a 32KB Expansion Video 
RAM. Enhanced video func ya Extension Video mode) becomes 
possible when the Extension Video Card, Extension Video Mode 


Cartridge and the high-resolution display (12" monochrome or 
installed. 


14" color) are 





Figure 4—4 Extension Video Card 
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4. System Options 


The following are the connector pin assignments for the Extension 
Video Card: 










< 
~] 
a 


9 
@/— 


<i< </< 
ie) 9/9 
= o|N 
a 


vo11 
013 


= 


+5V 


_ 
~ 
= 


2) 
Zz 
e) 


NCCLK3 






HSYC 


RPT3 


RST3 
OSsT3 
osc3 


© 
il 
N 


N 


—RESET 


WwW Ww N 
N o ~N 


f 
N 








Figu = 
re 4-5 Connector for Extension Video Card (J5) 
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1/0 refers t° the 
1/0 


Signal Name 


VDO - VD15 
-RAS 2 


-CAS 2 


-W10E 


-~W100 


-GP10 
-32K CD IN 


VDO - vD15 
-SX03 


NCCLK3 
DSPTO 


CUSR 
VSYNC 
HSYN¢ 


I 


1/0 
I 


4.3 Extension Video Card 


view from the card side 


Description 


These lines are the multiplexed address of 
the expansion Video RAM. 


Data lines DO - pqs5 


Row Address Strobe. This line instructs the 
Extension Video Card to latch up the address 
on the first MPX'd address. 


Column Address Strobe. This line instructs 
the expansion VRAM to latch up the address 
on the second MPX'd address. 


This line instructs the expansion VRAH to 
write the even addresses of the expansion 
VRAM. 


This line instructs the expansion VRAH to 
write the odd addresses of the expansion 
VRAH. 


This line instructs the expansion VRAM to- 
gate out the expansion VRAM on a read option. 


When an extension video card is inserted, 
this signal is low. 


Video RAM I/0 Data Bus line. 


When this signal is low, the VP3 gate array 
is selected. 


Inverted signal for"GATEE” (A35 pin) 


i Timing signal from CRTC. 
See Bik. tle contents of VRAN read are 


displayed 
Video signal to display the cursor. 


Vertical synchronous eiane) “neo CE 


Horizontal synchronous signal from CRTC 
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4, System Options 
S gnal Name 1/0 Description FS a eT area a 
CB MMR Rh 

ps These lines are raster add ee oe pe 

RAO - RA4 : and are available in text ors from CRTC 
are decoded and then the ragz. RAO - RA4 
displayed in a character box fr to be 
Interlace mode is used. 1S determined. 

0 This line is a timing sj : 

PRT 3 which of the CRTC, CPy or ene” determine 
accesses VRAM2. resh 

20N 0 20MHz clock output 

BOR sd : Eee VER ata reset requests for 

DSPT 3 0 This line is used to correct th 
timing from CRTC to VRAM. This sienal. 
is derived by delaying “DSPTO" (a20 Pin) 
by one character. 

RST 3 0 RAS Time 

GRMN 3 0 When VP3 is in graphics mode, this signal 
is high. 

DST 3 0 This line is used as a timing pulse to 
keep the timing of memory timing data 
with the character generator timing. 

CSC 3 0 This line is used as a chip select signal 
of a character generator. 

GDO - GD7 I These lines are image data signals for 
screen display. 

-RESET I System Reset Signal 

-I0W I I/O Write signal 

~ TOR I I/0 Read signal 

DO - 

D7 1/0 Data bus DO - D7 


4.3 Extension Video Card 


Signe) Wane 270 Seamebetios 
DUSW I Wren this signal is high, VP3 operation is 
EVS, -R. When lov, the signal lines EHS, 
, » “G, -B, -T float. 
-B 0 Blue signal to CRT. When consecutive 


vertical lines are displayed, the frequency 
becomes maximun. 


(1OMHZ? Applied the same as the following 


-I, -R, -G) 

a 0 Intensity signal to CRT. 

-R 0 Red signal to CRT. 

-G 0 Green signal to CRT. 

EHS 0 When the DUSW signal is high and bit 2 of 
VP3 gate array register 2 is "1" 
(synchronous), the HSYNC signal is output. 

EVS 0 When the DUSW signal is high and bit 2 of 


VP3 gate array register 2 is st oa 
(synchronous), the VSYNC signal is output. 
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4. System Options 
4.4. Diskette Drive Adapter 


: ; dapter consists of a single 
The diskette drive * system unit connector (go 2 ;board (card) 


and is connected to : Pj 
signal cable. It is eae bl - ple diskettn drives” 
through two kinds of sina - 4 * Bae tS Supplied to each 
diskette drive via the diskette Orive adapter conneomrs- 


the JPD765 or equivalent and 


y Modulation (MFM). 1S designed for 


The adapter uses 
Modified Frequenc 


The following are descriptions of its components: 


DOR (Digital Output Register) 


The digital output register (DOR) is a write-only 8 pj ist 
used to control] the three diskette drive motors and eh tiebeiied of 
the diskette drives. The I/0 address is F2 (Hex), 


Drive A Selection 

Drive B Selection 

Drive C Selection 

Open 

Open 

Watchdog Timer Enable 
Watchdog Timer Trigger 
Reset 





Bit 0 (Drive A Selection) tor 
"1" activates drive A signal path and turns on the oO . 
0" deactivates it and turns off the motor. 


Bit 1 (Drive B Selection) — 
1" activates drive B signal path and tu 


0" deactivates it and turns off the motor. 


rns on the 
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4.4 Diskette Drive Adapter 


Bit 2 4" activates drive C sigy 
i 


i at turns on the motor. 
“Q" deactivates it and tur Path and 


NS off the motor. 
(WATCHDOG TIMER CONTROL) 


"y" activates functions of WaTcHpOG TIMER CYCLE and 
allows interrupts. 


wg" deactivates functions of yATCHDOG TIMER CYCLE and 
rejects interrupts. 
Bit 6 (WATCHDOG TIMER TRIGGER) 


By alternating 1 and 0 being written, the timer cycle 
gets started. 


_ set) 
Bit 7 ne resets diskette controller. 


"Qo" releases the reset status of the diskette controller. 
Watchdog Timer 
The Watchdog Timer (WDT) is a one-to-three second timer 
eed for output to IRQ 6 (Interrupt Level 6) of the 8259A 
PIC. The Watchdog Timer is used for the system unit to watch 
the stopped status of the adapter. 


Diskette Controller 


There are two kinds of registers: 







-————_ 


Register I/O Address 


-—— 


Status Register | F4 
Data Register | F5 










Status Register 


The 8-bit Status register which can be read contains the status 
inf 


Ormation of the Diskette Controller. 
Data Register 
Data transmission between the diskette and the CPU are performed 


through : i i Commands and parameters which 
thi = ster. on 3 
are Eabawieved bateccs the CPU and the diskette controller are 


te . . 
™"Porarjly Stored in this register. 
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4. System Options 


: . tions 
Programming Considera 


Ws 


te controller is initialized with th 
e ter system power uP. Parameters 
s which the interrupt vector jf 


e following 
are stored 
(Hex) 


The disket 
parameters af 
in the addressé 
indicates. 











Parameter 
(Hex) 






Remarks 







512 Bytes/Sector 
Sectors/Track (9 sector) 
Always ’ 1’ (32ms) 
4ms/step 






Head Unload 
Head Step Rate 
Head Load Time 
Format Gap 














Minimum Head Load Time (4ms) 








Non-DMA Mode 
Fill byte for Format 


Oo 
_ 





BIOS uses the following commands for the diskette drive 
adapter. 


= SPECIFY 

- SEEK 

- RECALIBRATE 

- SENSE INTERRUPT STATUS 
- SENSE DRIVE STATUS 

- READ DATA 

- WRITE DATA 

- FORMAT TRACK 


Head Load 


When a diskette is correctly inserted in a diskette S casieils 
and the drive is selected, the head is automatically 
Programming for head load is, therefore, not Meee ee weer 
Read/Write commands cannot be accepted until after , 

onds of head load. 


Interrupt 
° terrupt 
The systen Should not allow other interrupts than This is 
sere 6 (IRQ6 : used by diskette drive adapter). | read/ 
ue to the strict time limitations during diskette 


write. 
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Figure 4-6 


System ait Pewee 


P17 
L 


To the System Board 


+5V 
ww43 (Uv 


P43 


Pr) J43 


se 


System Board 


i 


J22 [fjestntoesced 


ral 


|| 21 : 
Signal Cable ai ih 


Diskette 
Drive 
Adapter 


Expansion 
Unit Power 







Figur 
© 4-6 Diskette Drive Connections 
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J39 J40 J41 J42 


Terminal Board 


” Signal Cable 


—~-—--—-+-—---— 
I--7- 


c 
me 
il She 

(eo 


4.4 Diskette Drive Adapter 


Drive A 
i 


Drive B 
t 
| 


(<0) 


Cooling Fan 






Cooling Fan 


4. System Options 


Interface Connector 


The adapter is provided with the signal cable eonnector and 


power-supply connectors. 





J21 : Signal Cable Connector 

J22 : Signal Cable Connector (Drive A, B) 

J23 = Signal Cable Connector (Drive C) 

J43.: Power-supply Connector (From the Power Unit) 
J44 : Power-supply Connector (To the Cooling Fan) 
J45 : Power-supply Connector (To the Drive A) 

J46 : Power-supply Connector (To the Drive B) 


Power for the diskette drive C is supplied from the power 
In the Expansion Unit. 


Figure 4-7 The connector on the diskette drive adapter 
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unit 


4.4 Diskette Drive Adapter 


ce 
System inter ?? ? 
connected using the dedic 


The adapter 4) on the system board. Welles Cable to the 
connector ( and their descriptions: ng are the pin 


assignmen 


0 


> n 

—|~N os 
aq 
S 
& 


—lOW 






(7) 
z 
Oo 


Figure 4-8 Connector for Diskette Drive Adapter (J3) 
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4. System Options 


I/0 refers to 


ee ee ww we ewe een 


-RESET 


DSKT INTR 


-FDC CS 


AQ 


1/0 


1/0 


the view from the card side. 


Description 
These eight lines form a bus 


through which al] 
c 
and data are transfernng status 


These lines are 


: addre ines 
used in register oe 118 


Selection. 


Data are written in the register by 
the trailing edge of this signal. 


This line is used to read the 
contents of the register. 


This line is used to reset the 
controller and to clear DOR. 


This line becomes "high" by time-out 
of WATCHDOG TIMER. 


This line remains “low” while the 
CPU performs read/write to a 
diskette drive adapter 


Address line AQ. 
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4,4 Diskette Drive Adapter 


ce 
Drive Interf? 


e provided on the Card f : 
ers af ; , or connection to the 
Two CORN EE ve. One is a ae BY neta akekts davies ‘es, tee 
dtd eater (Figs. 4 , nd the 
system u . : 


= . '€ other is for the 
y sya in an Expansion unit (Fig, 4-9, 2 of 2). 
ted a at standard TTL levels, 
Signals ar 
prive A Adapter Drive B 
Adapter EN? no sty 
Signal 
INDEX 


Motor ON B 
Drive Select A 
Drive Selec: B 
Motor ON A 
Direction 

Step Pulse 
Write Data 
Write Enable 
Track U 
Wrue Protect 
Read Data 
Select Head 





Remarks) 1. Odd number pins from 5 through 33 are gid, wine, Bees 


, 1 through 4 are open. 


2 is connected to drive A, 
to drive B. 


vhile CN3 is connected 


i 2) 
Figure 4-9 Diskette Drive Signal Cable Ch oF 
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Remarks) 1. 


4. System Options 


Adapter 
Signal 
INDEX 
Open 
Drive Select C 
Open 
Motor ON C 
Direction 
Step Pulse 
Write Data 
Write Enable 
Track 0 
Write Protect 
Read Data 
Select Head 





Adapter 
CN 4 
Pin 


Drive-side 
Signal 
INDEX 
Open 

Drive Select 
Open 

Motor ON 
Direction 
Step Pulse 
Write Data 
Write Enable 
Track 0 
Write Protect 
Read Data 
Select Head 


Odd number pins from 5 through 33 are GND, 


1 through 4 are open. 
2. CN5 is connected to drive C. 


Figure 4-9 Diskette Drive Signal Cable (2 of 2) 
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and 


pins 


4.4 Diskette Drive Adapter 


I/0 refers to the view from the adapter side. 


Signal 
-DRIVE SELECT 
-MOTOR ON 


-STEP PULSE 


-DIRECTION 


-WRITE DATA 


-SELECT HEAD 


- INDEX 


-WRITE PROTECT 


-TRACK 0 


-READ DATA 


-WRITE ENABLE 


1/0 


Description 


This line is used to select the 
diskette drive. 


This line is used to turn on the 
drive motor. 


This line is used to move the head 
by 1 cylinder. 


This line is used to set the moving 
direction of the head. When this 
line is low, the head moves inward. 


When WRITE ENABLE (pin 24) is low, 
the change of the signal is written 
on the diskette. 


When “high”, diskette side 1 is 
selected : When “low”, diskette 
side 2 is selected. 


Each time the diskette goes round, 
one pulse (index pulse) is issued. 


This line is used to indicate that 
the diskette is write-protected. 


This line is used to indicate that 
the head is located at track 0. 


The selected drive must supply a 
pulse on this line each time when 
magnetic flux change is encountered 
on the diskette. 


Vhen “low”, a data write to the 
diskette is possible. 
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4. System Options 


Power Supply Connector 


The power supply connector provides each drive with direct current 
from the power unit. It also provides the cooling fan with +12V. 





+12 V 






J43, J45, J46 


Figure 4-10 Power Supply Connector on the Diskette Adapter 
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4. 
By 


5. 
characteristics: 


4.5 Diskette Drive 


5. Diskette Drive 


installing an optional diskette drive, the IBM 5510 can be 
expanded to include a maximum of three 3.5" diskette drives 
or two 3.5" and 


25” diskettes 


one 5.25" diskette drives. Both 3.5” and 
have the same format and have the following 


Double-sided double-density 
- 80 tracks per 


9 sectors per 
512 bytes per 
Seek time 4ms 
Write-protect 


- Cooling fan 
Track 00 sensor 


Index sensor 
+5VDC, +12VDC 


side 
track 
sector 
per track 
sensor 


used 
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4. System Options 


4.6. TV Adapter 


The TV adapter includes the RF Modulator and allows an ordinary 
TV set to be used as a display by getting the RGBI direct video 
signal through the encoder and modulating it to the frequencies 
of channel 1 or channel 2. 

The adapter has two switches, one for changing the channel 
(channel 1 or 2) and the other for color mode (B/W or color). 
The RF modulator output is automatically directed to the TV 

set at the time of system power-on. When the system unit is 
turned off, the normal TV broadcasting signal is received. 
pe output becomes the external output as a composite video 
signal. 







3.58MHz_ 11 \V TV Antenna 










B/W Color. 





10° 
Channel 


RF Converter - 


To TV Set 


Figure 4—11 TV Adapter 
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4.7 Keyboard Cable 
4.7. Keyboard Cable 


The IBM 5510 Cordless Keyboard can be attached to the 
the optional Keyboard Cable. When the keyboard cable 
connected, the signal level of -CBL CONNECTED becomes 
(0 Volt) and the system unit's infrared (IR) receiver 
is disabled, allowing keyboard input via the keyboard 


JX using 
is 

"low" 
circuit 
cable. 








+5V 
FG 
Keyboard GND ) 3 System Board 
[' -CBL KBD DATA )» 4 
- CBL CONNECTED 





Figure 4—12 Keyboard Cable 


System Options 
RS-232C Card 


RS-232C card allows asynchronous communication under the 
ogram control. It contains an INS8250A LSI chip. 






Address AO ~A2 
EIA 
DRIVER 


Data Bus 


Interrupt Signal 


EIA 
Clock RECEIVER 
(1.7895MHZ) 





25 Pin 


Control Signal Connector 


Figure 4—13 RS-232C Card Block Diagram 


The following is a standard send/receive data format of asynchronous 
communications: 


DO 01 02 D3 04 DS D6 D7 


: Parity 
Bit 











Mark 


Stop Mark 
Status 


Bit Status 


Figure 4—14 Asynchronous Communication Data Format 
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4.8 RS-232C Card 


Following are the programming considerations and the necessary 
data for use with the IBM JX. 


1. When a diskette read/write is performed, asynchronous 
communications can not be made. (Interrupts are prohibited.) 


2. The speed of asynchronous communication is up to 4800 bps. 


A speed below 1200 bps is recommended when keyboard data are 
received. 


3% Consecutive I/0 operations to the 8250A should not be made in 
view of the necessary I/0 time for the 8250A. An interval of 


more than 15 clocks is necessary. 
4. The hardware interrupt level is "3". 


5. 8250A pin 34 (OUT1) and pin 31 (OUT2) are not used. 


6. 1/0 addresses are as follows: 


I/O Address 





iH Register DLAB Status 

2 Bs TX Buffer ~~~—~—”—SdDLAB=0 (Write) _ 
2h a RX Buffer DLAB =v (Read) 
248 Divisor Latch(LSB) DLAB- 1 

2ha Divisor Latch(MSB) DLAB= } 

2ky 


Interrupt Enable Register DLAB=0 
Interrupt Identification 
Registers 


2A 


2kb l.ine Control Register 


EY Modem Contrel Register 
2b l.ine Satus Register 

i IEE Modem Status Register 
SEE Seratch Register 


Figure 4—15 8250 I/O Addresses 
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4. System Options 


7. 


Samp 


PROC 
HOV 
MOV 
OUT 
JHP 
MOV 
MOV 
OUT 
JHP 
HOV 
HOV 
OUT 
JHP 
HOV 
HOV 


OUT 
JMP 
HOV 
IN 
ENDP 


The following Assembler language prograg initializes 
8250A. Operating conditions are: 


1200 bps 
8 bits 


le program: 


NEAR 
AL, 80H 
DX, 2FBH 
DX, AL 
$+2 

DX, 2F8H 
AL, 5DH 
DX, AL 
$+2 

DX, 2F9H 
AL, OOH 
DX, AL 
$+2 

DX, 2FBH 
AL, OBH 


DX, AL 
$+2 
DX,2F8H 
AL, DX 


1 stop bit 
Odd parity 


we we we we 


SET DLAB=1 
To Line Control Register 


I/0 Delay 
LSB of Divisor Latch 
LSB Value 


I/0 Delay 
MSB of Divisor Latch 


I/0 Delay 

Line Control Register 

8 Bits/Word, 1 Stop Bit, 
Odd Parity, DLAB = 0 


I/0 Delay 
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4.8 RS-232C Card 


8. RS-232C card connector specifications are as follows: 















[si | Le | oe 
Eames 
ees os 
a ee a 
ee ee a 
Pg ee eo 
rr eee ee 2 ee 
Tseniaccom] 7 | 7 | Oren | 
Teauocux |e |e | reser _] 
Tseniainta | 9 | 0 | -sas0cs_ 
f-ioR,—id|st0sSs|_—st0—sd[-1ow_ id 
a Ta a 
Pye |e ev 
aa a A 
OT 
- Open 1515] Oven 
PGND] 16 | 16 =| GND 





Figure 4—16 RS-232C Card Connector (J8) 
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4, System Options 


Signal Name 1/0 Des rE OY oa Sc geiinng oe 

DO - D7 1/0 Data Lines DO - D7. 

A0,1,2,9 I Address Lines AO, Al, A2, and AQ. 

-SERIAL CD IN 0 When an RS-232C card is inserted, 
this signal becomes "low" 

BAUD CLOCK I 1.7895 MHz Clock input. 

RESET I Signal for RS-232C card reset. 

SERIAL INTR 0 Interrupt request signal. 

-8250 CS I 8250 LSI Chip Select Signal. 

-I0R I I/O Read 

-10V I I/O Write 


9. This card provides an EIA RS-232C electrically compatible 
interface for connection to external devices. 






areas bata 
a [ReceIve bata | 
[4 | Reavest ro Sex| 
[s_[ctean 70 sexo | 
[on Ser Renny 


Signal Level 


Valid signal levels for 
all pins except 1 and 7 
are: 

+:+3V~+15V 
—:-—3V~-15V 















CARRIER DETECT 
=a DATA TERMINAL READY 






Figure 4—17 RS-232C External Interface 


) 


\ 


4.8 RS-232C Card 
10. Baud Rate Generator 


The baud rate generator which resides within the 8250A generates 
the clock signal that is the basis for data transfer speed (baud 


rate) by dividing the 1.7895MHz clock input by the programmable 
divisor. 


The output clock frequency of the baud rate generator should be 
set with the product of 16 multiplied by the baud rate. 
The divisor of the baud rate generator is calculated as follows: 


Divisor = (1.7895X10°) + (Baud Rate X16) 


Sample: 
Required Divisor Value Vari 
Baud Rate (Hex) BESEAGD 
50 0.006 
75 
0.023 


134.5 167 0.054 


12 0.050 

























O00 03B 0.140 


100 


0” 
9 





{sou O17 
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4. System Options 


4.9. RS-232C Cable 


This IBM 5510 optional feature is provided with a 25-pin, "D" 
shaped connector. The cable is used to connect the RS-232C 
card with serial and asynchronous communication devices. 








t) a 
P00 000000000 6 
p900000000009 


25 


(Reference : 4.8 RS-232C Card) 


Figure 4—18 RS-232C Cable 
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4.10 Display 
4.10. Display 


There are three types of displays: 


- 12” Color Display 
- 12” Monochrome Display 
- 14” Color Display 


The 12” Monochrome or 14" Color display is required for operation 
in Extension Video Mode. These are dual-scan displays and they 
work in all operational modes. The 12" color display can be used 
in Native and English modes. 


Their characteristics are as follows: 















Contents 





12” Color | 14” Color ; 12” Mono. 
| 14.318 MHz! 20.000 MHz _ =, 20.000 MHz 


| '14.318MHz | 14.318 MHz 
Vertical Scan i 59.92 Hz | 76 .68 Hz ' 76.68 Hz | 

| 59.92 Hz : 59.92 Hz { 
Horizontal Scan | 15.700 KHz | 21.930 KHz 


"21.930KHz | 


Video Frequency 








| '15.700KHz | 15.700KHz_ | 
No. of Colors 16 Color | 16 Color ' Gray Scale 16} 
Dots (Graphics) | 640 X 200 | 720 X 512 * | 720 X 512 ¥ | 
| 1640 X 200 +640 x 200 | 
Dots (Text) | 640 x 200 he x 6 * 720 X 525 * | i 
x : 640 X 200 
Characters (Hankaku) | 80X11 | 8X 25 + 80 X 25 | 


| sxll 'gsxu | 
Character Box 8 X 18 9 X 21 oa 9 X 21 
_(Hankaku) _ 8 X 18 ; 8 X 18 | 


Remark) * is for Extension Video Mode. 
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4. System Options 


4.11. CHT Cable 


The CHT cable connects the system unit with a cassette 


recorder. 







2 1 

4 CASS MTR CTRI7) 
3 

5 

: 6 

7 


Connector pin assignments are as follows: 


CASS AUDIO(4) 


GNDII: 
MIC DATA OUT(5) 
GND(1) 

MOTOR CTL'6: 


Figure 4—19 Cassette Cable Pin Assignments 
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4.12 Joystick 


4.12. Joystick 


The joystick is an input device with the location control 
function indicated in X/Y coordinates. It consists of two 
Switches and two potentiometers. By moving the operational 
stick vertically (Y coordinate) or horizontally (X coordinate), 
each potentiometer varies within a range from 0 to 100K Ohms. 
A maximum of two joysticks can be installed and they are con- 
nected to connector J13 (joystick 1) and J14 (joystick 2). 


+5 (5)—~< Gaal 
oord. 
RX (3) —~< 100K 
. Y Coord. 
RY (4) —< 100KQ 
Switch | —x— 
SW1ili—< 
Switch 2 —xr— 
SW 2(2} — 
GN D\(6) ~< 


Y Coord. X Coord. 





Switch 1 


Figure 4—20 Joystick 
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4. System Options 


4.13. Expansion Board 


The Expansion Board is connected to the I/0 channel via the 
expansion adapter. There are five 64-pin connectors on the 
board. The pin assignments are the same as those for the I/0 
channel. (Reference: 2.2.7 Expansion Channel) 





Power Connector 





Figure 4—21 Expansion Board and Pin Assignments 
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4.10 Expansion Unit 


4.14. Expansion Unit 


The expansion unit contains a power unit whose power capacity is 
the same as that of the system unit. An expansion board and 
diskette drive C (either 3.5” or 5.25”) can be optionally 
installed. Alternating current is supplied from the connector 
on the system unit. 





Figure 4—22 Expansion Unit 
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5. Software 


This chapter contains information about system software, 
especially information about putting BIOS to practical use. 


5. Software 


5.1. Software Structure 


The IBM 5510 is utilized by the FORTRAN, PASCAL, ASSEMBLER, and 
BASIC programming languages in Native or Extension Video mode. 
interface between software and hardware. 


BIOS is the 






—_———_— em ewe a oe ee ee 


Application 


Application 
Application 
Application 


me W DO 


Application | 


FORTRAN 


| Compiler | 


_—— ee ee ee Ce oe Oo 














i ee eee — High level 


Language 
Interface 










MACRO 


ASSEM. 
BLER 







PASCAL BASIC 













Compiler Interpreter 










— DOS Function Calls 
Interface 


_ BIOS 
Interface 


__ Hardware 
Interface 






Joystick Sound Light pen 


by Assembly Language or High level Language using 
hardware interface 

by Assembly Language using BIOS interface 

by Assembly Language using DOS interface 

by High level Language 


Figure 5-1 Software structure 
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5.2 System Software 


5.2. System Software 


The Basic Input/Output System (BIOS) of JX Native mode resides 

in ROM on the system board and provides device level control 

for the major I/0 devices in the system. In Extension Video mode, 
the initialization routines, video I/O and keyboard I/0 routines 
are replaced by code which resides in the optional Extension 
Video mode cartridge. The other BIOS routines are shared with 
Native mode. In English mode, the initialization routines 

are replaced by code which resides in the optional English mode 
cartridge. The value at address FFFFE indicates whether English 
mode or one of the other two modes is currently active. 









Mode Contents of Address FFFFE (Hex) 


English mode FD (Hex) 
Native mode / Extension Video mode ED (Hex) 


Distinction between Native or Extension Video mode is made 
possible by reading the AL register after issuing INT 11. 





Bit 5,4 in AL 
10 : Extension video mode 
0 1: Native mode 


Figure 5-2 shows a map of-systen software routines in ROK. 
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5. Software 


English mode Native mode 


BASIC BASIC 


F 0000 
English mode 
BIOS 
Native mode 
English mode 


BASIC 


dictionary 


Native mode 
BIOS 


English mode 


BIOS 
FFFFF 


Figure 5-2 System Software Map 
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Extension Video 














Extension 
Video mode 
BIOS 


Extension 
Video mode 


BASIC 


Native mode 
BASIC 


Native mode 


dictionary 


Native mode 
BIOS 


5.3 BIOS Usage 
5.3. BIOS Usage 
Access to BIOS is made through the software interrupts. ; 
All data and parameters passed to and from the BIOS routines go 


through the registers of the MPU(8088). 


If a BIOS routine supports several possible functions, the AH 
register indicates the desired function. 


For example, the following code can be used to set or to read the 
time-of-day. 


To set time-of-day: 


MOV AH, 1 > function is to set time-of-day 
MOV CX, {HIGH COUNT] 
MOV DX, [LOW COUNT] 


INT 1AH + software intrrupt 

To read time-of-day: ( CX and DX get values of TOD ) 
MOV AH, 0 > function is to read time-of-day 
INT 1AH > software interrupt 


Generally, the BIOS routines save all registers except for AX 
and the flags. 


BIOS Programming Guidelines 


Lis To invoke the BIOS code use Software interrupts. 
Do not ‘hard code’ BIOS addresses into applications. The internal 


workings and absolute addresses in BIOS are subject to change 
without notice. 


2. When any error is detected in diskette operation, the 
diskette drive adapter must be reset before retrying the operation. 
A specified number of retries should be required on diskette "read” 
to insure that the problem is not due to motor start-up. 


3s When altering I/0 port bit values, change only those bits 
which are necessary to the current task. Upon completion, restore 
the original environment. Failure to adhere to this practice may 
cause incompatibility between present and future systems. 


5. Software 


The following are the BIOS interrupt vectors explained in this 
chapter. 


Vector Address Type of Function 
baie mci, UUM oe a 
40-43 10 Video I1/0 
44-47 11 System configuration 
48-4B 12 Memory size definition 
4C-4F 13 Diskette 1/0 
50-53 14 ASYNC port I/0 
54-57 15 Cassette I/0 
58-5B 16 Keyboard I/0 
5C-5F 17 Printer 1/0 
60-63 18 Resident (ROM) BASIC 
64-67 19 System reset 
68-6B 1A Time of Day 
6C-6F 1B Keyboard Break address 
10-73 1C Timer 
74-77 1D Video parameter 
718-7B 1E Diskette Parmeter 
49 Conversion table 
7A Dictionary pointer 
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5.3 BIOS Usage 


Application Program 





aor 
ae eae mR: BOS 4 Conde xem 


a 








Software es a 
Interrupts oa Qieses 


{BM BIO. COM 











Interpreter 











Hardware | NMI : Diskette drive 
! 


ee mca . Timer “6 ZB [oo] 


CRT Joystick Cassette 


/ Tape Recorder 


Parallel I/O 
Serial I/O 


e.g. Printer 


Figure 5-3 Software Interrupt Architecture 
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5. Software 


5.3.1. Native Mode BIOS Interrupts 


TYPE 10 Video I/0 


This vector points 


to the the code to be executed when video I/0 
The function 


operation is needed. 


value placed in the AH r 
( AH )= 0 >: SET MODE 
( AL ) MODE 

0 40X 25 
1 40X 25 
2 80X 25 
3 80X 25 
4 320X200 
5 320X200 
6 640X200 

7 Not used 
8 160X200 
9 320X200 
A 640X200 

B Not used 

C Not used 

D Not used 

E Not used 

F Not used 
10 20X 11 
11 20X 11 
12 40X 11 
13 40X 11 
14 320X200 
15 320X200 
16 640X200 

17 Not used 
18 160X200 
19 320X200 
1A 640X200 
1B 640X200 

REMARKS ) 
ANK : 
KJ Kan 


egister. 


The 
des 
Whe 
are 


16 
16 
16 
16 
4 
4 
2 


16 
16 
4 


1 1 & 00 OO Oo Oo 


— 
= OO 


16 


Alphanumeric, 


ji 
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AL 
ired 
n AL 

not 


color 
color 
color 
color 
color 
color 
color 


color 
color 
color 


color 
color 
color 
color 
color 
color 
color 


color 
color 
color 
color 


performed depends 


on the 


register is used to set the 


video display mode. 
VRAM contents 


bit 7 is "1", 
cleared. 


ANK 
ANK 
ANK 
ANK 
(40X25 
(40X25 
(80X25 


(20X25 
(40X25 
(80X25 


KJ 
KJ 
KJ 
KJ 
(20X11 
(20X11 
(40X11 


(10X11 
(20X11 
(40X11 
(40X11 


Special character, 


ANK) 
ANK) 
ANK) 


ANK) 
ANK) 
ANK) 


KJ) 
KJ) 
KJ) 


KJ) 
KJ) 
KJ) 
KJ) 


Katakana 


( AH )= 1 
( AH )= 2 
( AH )= 3 
( AH )= 4 


5.3 BIOS Usage 


Set cursor type. The cursor type is. specified 
by the following bits in the CX register: 


Bit 14,13 = 00 Non-Blink 
= 01 Non-Display 
= 10 Blink at 4 times per second 
= 11 Blink at 2 times per second 
Blinking is not supported in graphics mode. 
Bit 12-8 Start line of the cursor in a 
character box 
Bit 4-0 End line of the cursor in a 


character box 


Set Cursor. position. The cursor position 
(row,col) is specified by values in ( DH,DL ). 
A sub page (16 KB page is further separated into 
1 KB or 2 KB units) is specified in (BH). 

In graphics mode,a sub page is set to 00 in(BH). 
(0,0) indicates the home (upper left) position. 


Read cursor position. When sub-page number is 
specified in (BH), the current cursor position 
(DH=row,DL=col ) and the cursor type (CH,CL) 
are read in. 


Read Light pen position. 

(AL)=0 : Light pen switch is not pressed. 
(AL)=1 : Valid light pen value is in registers. 
(DH,DL) : light-pen position (row,col) 

(CH) > raster value (0-199) 

(BH) > column value (0-319,0-639) 
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5. Software 


( AH )= 5 Select active page. 

(AL) =00-OF : sub-page ( 16 KB page is further 

separated into 1 KB or 2 KB units ) is specified. 

(AL)=80 : Read CRT/CPU page-registers 

(AL)=81 : Write the contents of (BL) to CPU 
page-register. CPU page mode is 
specified in (CL). 

(AL)=82 : Write the contents of (BH) 
to CRT page-register 

(AL)=83 : Write the contents of (BL) and (BH) 
to CPU and CRT page-registers. 
CPU page mode is specified in (CL). 


( AH )= 6 Scroll display upward. (CH,CL) specifies the 
upper left corner of the portion to be scrolled 
(CH=row,CL=column). (DH,DL) is the lower right 
corner (DH=row,DL=column). AL is the number’ of 
lines to be scrolled. BH holds the attributes 
for the space left. 

AL=0 clears the area defined by CX and DX. 


( AH )= 7 Scrolls display downward. Same as ( AH )= 6. 


( AH )= 8 Read a character ( into AL ) and its attributes 
(into AH ) at the current cursor position. 
A sub page is specified in (BH). 
Full size characters return the following 
attributes: 


lst byte 1XXX OXXX (left half of a character ) 
2nd byte 1XXX 1XXX (right half of a character) 


The attributes returned are the same as those 
written when specifying ( AH )= 9. 


All the attributes are supported in graphics mode. 
In color graphics mode, the color attribute bits 


of AH have no affect on the color of the 
characters. 


( AH )= 9 


( AH 


y= A 


5.3 BIOS Usage 


Writes one or more copies of the character in AL 
and its attributes in BL starting at the current 
cursor position. CX contains a count of the number 
of characters to be written. 

The attributes of full size characters change 
after the 2nd byte is written. 


The meanings of the attribute bits are explained 
in Chapter 3, " 3.4 Display function of VP1 and 
VP2 " 


Write characters only. Same as (AH)=9 , except 
that attributes are not written. 
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5. Software 


Set a color in the pa 
Specify in BL the col 
the specified palette 


( AH )= 


lette. 
or number to be assigned 
number. 








(BH) =0 Set color number for background 
(BH)=1 : Select the palette number to be used 
i color 2-color 4-color 8-color , 16-color 
a BL=0) BL=1|BI-=0| BL=l 
me a free light blue] blue ; blue | 
| red |purple green. green | 
i white | light blue fbive | light blu light blue 
red _| red 
| purple | purple 
yellow yellow 
+ | ! white | white 


Remarks) Color number 0 specifies bo 
80X11 character mode. 
In graphics mode, color num 
background color. 


pines 
“T bright be 
| bright green 
i a bright light blue 


| ; bright red 


i bright purple 






‘ bright yellow 
i bright white 





rder color in 40X11 or 


ber 0 specifies border and 


to 


( AH )= C 
( AH )= D 
( AH )= E 
( AH )= F 


5.3 BIOS Usage 


Write a dot. (DX,CX) specifies the bit position 
(row,column) where the dot is to be written. 

(0,0) represents the home position on the display. 
Both the row and the column numbers are in units 
of dots, not characters. In color mode, AL 
specifies the palette number for the color dot 

to be written. 

If the eighth bit (bit 7) in AL is specified as 0, 
the value of AL will be written directly. If the 
value in bit 7 is set to 1 , however, the current 
value of the dot will be XOR'ed (exclusive OR) 
with bit 0 and the result will be written. 

This function works only in graphics mode. 


Read a dot. (DX,CX) specifies the (row,col) 
of the dot position to be read ( both the row and 
column number are in units of dots, not 


characters ). The dot value (on/off) of a dot is 


read into AL. The function only works in graphics 
node. 


ASCII teletype routine for output. 

Writes a character in the cursor position and 
advances the cursor. If the cursor is already in 
the rightmost position in line 10, the screen is 
scrolled upward. 


The character to be written is specified in AL. 


In graphics mode, color is specified in (BL). 
THe status/mode symbols line is located outside 
the screen scroll area. 


If the cursor is at the last position ina rov 
and a full size character is to be written, a 
space is entered at the last position, and the 


character is written at the first position in the 
next line. 


This function also works in graphics mode. 


Get the current display status. AL receives the 
current mode, AH receives the number of character 


columns displayed and BH receives the nuaber of 
the sub-page. 


5. Software 


( AH )=10 


( AH )=11-12 


( AH )=13 


Set Palette Register. Set the parameter in (AL). 


(AL)=0 : Specifies the number (OOH-OFH) of the 
Palette register in (BL), and the color 
number in (BH). 


(AL)=1 +: Sets contents of (BH) in the boreder 
color register. 


(AL)=2 += Sets the palette register and the border 
color register. ES:DX points to a 17 
byte list. Bytes 0-15 are written to 
palette registers 0-15. Byte 16 is 
written to the boreder color register. 


Reserved 
Request a character font. Return the character 
font for the specified character in the 


user-designated memory location. CX must hold the 
internal code of the requested character. CH must 
be 0 for half size characters. AL must be 0. 
The font will be placed in the memory location 
designated by ( ES:BX ). 
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5.3 BIOS Usage 


( AH )=14 Superimpose 


(AL)= 0: 


(AL)= 1 
(AL)= 2 : 
(AL)= 3 
(AL)= 4 : 


Mode is specified in (BH). VRAM is not 
cleared if bit 7 of (BH) is 1. 

(BH) =0-3 not used 

(BH) =4 320X200 4 colors : 40X25 ANK 
(BH) =5 320X200 4 colors : 40X25 ANK 
(BH) =6 640X200 2 colors : 80X25 ANK 
(BH) =7 not used 

(BH) =8 160X200 16 colors: 20X25 ANK 
(BH) =9 320X200 16 colors: 40X25 ANK 
(BH) =A 640X200 4 colors 

(BH) =B-13 not used 

(BH)=14 320X200 4 colors : 20X11 KANJI 
(BH)=15 320X200 4 colors : 20X11 KANJI 
(BH)=16 640X200 2 colors : 40X11 KANJI 
(BH)=17 not used 

(BH)=18 160X200 16 colors: 10X11 KANJI 
(BH)=19 320X200 16 colors: 20X11 KANJI 
(BH)=1A 640X200 4 colors : 40X11 KANJI 


(BH)=1 ‘°Superimpose is set to enable 
(BH) =0 Superimpose is set to disable 


(BH) =0 VRAM 1 is set for a 
foreground page. 


Set a transparent color to the palette 
register specified in (BH). 


Set superimpose mode through (BH). 
(BH) =0 priority 


(BH) =1 XOR 
(BH)=2 AND 
(BH)=3 OR 


5. Software 


TYPE 11 Device Configuration Status 


The device configuration status is returned in AX. 
The information specified by the bits in AX is listed below: 


Bit 15,14 Number of printers (usually 1 is returned) 

Bit 13 Serial printer is connected when 1 

Bit 12 Game I/0 is connected when 1 

Bit 11-9 Number of ASYNC communication ports connected 
Bit 8 Hard-disk unit is connected 

Bit 7,6 Number of diskette drives (besides A) 

Bit 5,4 Video mode initialized ( always 01 )# 

Bit 3,2 RAM size on board ( always 11 ) 

Bit 1 Reserved 

Bit 0 IPLed from a diskette drive 


= Native or Extension Video mode is identified by a 1 
in bit 4. In Native mode it is always 1. 


TYPE 12 Get Memory Size 


Memory size is set in AX in 1K-byte units. 


TYPE 13 Diskette I/0 
Executes different functions based on the value in AH. 


( AH )= 0 Reset the diskette systen. Bits 5-0 in DL must 
be set to the drive number. 
Set bit 7 to 0 when diskette drive units are 
connected, and set bit 6 to 0 (40 tracks) or 1 (80 
tracks). Set bit 7 to 1 when a hard disk unit 


is connected. 


5.3 BIOS Usage 


( AH )= 1 Read the system status. The DL setting is the same 


( 
( 


AH 


AH 
AH 
AH 


as for (AH)=0. The status from the last operation, 
returned in AL, is described below. 


Value(Hex) Operation status 


80 Time out 


40 Bad seek operation 
30 No hard disk (only when bit 7 of DL is 1) 
20 Device out of order 


10 CRC (Cyclic Redundancy Check) error found 
in reading a diskette 


04 Desired sectors not found 

03 Attempt to write to a write-protected disk 
02 Address mark not found 

01 Incorrect command 


y= 2-7 Set registers as follows: 


(AL) Number of sectors ( value unchecked, not used 
by FORMAT ) 
(CH) track number (0-79, value unchecked) 
(CL) sector number (value unchecked, not used by FORMAT) 
(DH) head number (0-1, value unchecked) 
(DL) drive nuaber (0-3, value checked) 
bit 7 =0 identifies a diskette drive, 
bit 6 =1 identifies double track access. 


(ES:BX) buffer location ( not required for checking) 


) =2 Read sectors 
)=3 Write sectors 
)=4 Check sectors 


5. Software 


( AH )= 5 


( AH )= 6-7 


Format sectors. The buffer pointer (ES:BX) must 
point to the set of address marks of a track. Each 
address mark consists of 4 bytes (C,H,R,N), where 


C stands for track, H for head number, R for 
sector number, and N for number of bytes ( 00=128, 
01=256, 02=512, 03=1024) within a sector. Each 
sector in a track must have a corresponding 
address mark, which helps locate the desired 
sector in a read/write operation. 


Reserved 


If the transfer of data succeeds, the carry flag (CF)=0 will be 


returned. 


If not, (CF)=1 is returned, and the status is returned 


in (AH) as when (AH)=1. 

For read, write, and check operations, only AX and the carry flag 
value will be altered. The number of sectors actually read will 
be returned in AL, but this value is meaningless when a time-out 
occurs or the system is reset with (AH)= 0. The contents of AH 
cannot be guaranteed in the latter case. 


When an error message is received, retry after resetting the 
diskette adapter. More than 10 retries are required. 





5.3 BIOS Usage 
TYPE 14 ASYNC Communication Port Input/Output 


This routine provides byte stream I/0 to the communication 
ports as designated by the following parameters. Port number 
(0-1) is specified in DX. 


( AH )= 0 Initializes the communications port as specified 
in AL : 
baud rate parity stop bits character length 
BIT 765 4 3 2 1 0 
000 -110 X 0 -none 0 -1 bit 10 -7 bits 
001 -150 0 1 -odd 1 -2 bits 1 1 -8 bits 
010 -300 1 1 -even 
011 -600 
10 0 -1200 
101 -2400 
110 -4800 
1 11 -9800 


The DTR signal will be ON upon completion of initialization. 
When the routine exits, the AL value will be set ina cal] 
for communications status (AH=3). 


( AH )= 1 Send the character in AL over the communications 
line. The contents of AL are preserved. 


If the character can not be transmitted, bit 7 of 
AH is set to 1. Otherwise, the current line status 


will be returned by the remaining bits as when 
(AH) =3. 


( AH )= 2 Receive a character from the communications line 
into AL, before returning to the caller. On exit 
AH has the current line status, as set by the 
Status routine (AH=3), except that the only bits 
left on are the error bits (7,4,3,2,1). 


5. Software 


( AH )= 3 


Returns port status in AX. 


AH will contain the communications line status 
as shown below: 


bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 


Sor NWF OO 


time out 

transmitter shift register is empty 
transaitter holding register is empty 
break detect 

framing error 

parity error 

overrun error 

data ready 


AL will contain the modem status as follows: 


bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 


or NWhOIOs) 


data carrier detect 

ring indicator 

data set ready 

clear to send 

data carrier detect status changed 
ring indicator end 

data set ready changed 

clear to send changed 
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5.3 BIOS Usage 


TYPE 15 Cassette Input/Output 


The function is specified in AH as follows: 


( AH )= 0 Turn Cassette motor on 
( AH )= 1 Turn Cassette motor off 
( AH )= 2 Read data from the cassette tape unit. 


(ES,BX) contains the pointer to the data buffer. 
(CX) contains the number of data to be read. 


The registers and the values returned are 
as. follows: 


ES:BX : buffer address of the last byte read 


plus 1 
DX >: the number of actual bytes read 
AH > =1 when CRC error is detected 


=2 when no signal is detected 
=4 when no leader is detected 

CY > carry flag =0 no error is detected 
carry flag =1 some error is detected 


( AH )= 3 Write data to the cassette tape unit. 


(ES:BX) contains the pointer to the data buffer. 
(CX) contains the number of data to be written. 


The registers and the values returned are 
as follows: 


ES:BX : buffer address of the last byte written 
plus 1 

Al > Any other than the above values causes 
(CY)=1 and (AH)= 80 to be returned. 
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TYPE 16 


Keyboard Input/Output 


Executes one of the following functions as indicated by AH: 


( AH )= 0 


Reads next character. Reads a character from the 
ea and puts the following codes into AH and 


Data type AH AL 
l-byte character scan code ASCII code 
2-byte char. lst-byte scan code lst-byte 
2-byte char. 2nd-byte scan code 2nd-byte 
function key, etc. pseudo scan 00 
code 

input JIS 8 bit code 00 pseudo scan 
with ALT key pressed . code 
Kanji lst-byte FF lst-byte 

2nd-byte FF 2nd-byte 


by Kana-Kan conversion 


If more data remain in the buffer, the initial data are returned. 
Otherwise, the routine stays active for the new data input. 


( AH )= 1 


(ZF) =1 
(ZF) =0 


Indicate if a .character is available to be 
read. ZF (zero flag) will be set as follows, to 
indicate whether data have been transmitted into 
the buffer or not: 


no character is in the buffer for reading 
character is in the buffer for reading 


When (ZF) =0, the next character will be sent 
to AX. The character remains unchanged in the 
buffer until a call is made with (AH)=0 to read 


the next character. 
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( AH )= 2 
( AH )= 3 
( AH )= 4 


5.3 BIOS Usage 


Reads shift status. Current shift status is sent 
to AL and AH as follows: 


AL register 


bit 7 = 1 Insert mode 

bit 6 = ] CAPS Lock pressed 

bit 5 Unused 

bit 4 =1 Scroll Lock pressed 

bit 3 = 1 ALT key pressed 

bit 2 =1 Control key pressed 

bit 1-0= 01 Right-shift key pressed 
bit 1-0= 10 Left-shift key pressed 


AH register 


bit 7-3 Unused 

bit 2-1 =00 Alphanumeric shift 
=01 Katakana shift 
=10 Hiragana shift 

bit 0 =] Full size mode 
=0 Half size mode 


Sets typamatic rate 


AL=0 Return to default values 

AL=1 Increase initial delay 

AL=2 Slow typamatic rate by one half 
AL=3 Combine AL=1 and AL=2 

AL=4 Disable typamatic 


AL=0 Turn keyboard click off 
AL=1 Turn keyboard click on 
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( AH )= 5 
( AH )= 6 
( AH )= 7 
( AH )= 85 


Alters keyboard status or 


mode. Sets desired 


status or mode in AL. 


Status/Mode symbols displayed are altered. 


AL register 


bit 7-6 =00 Shift out Kanji-mode 
=01 Shift in Kanji-mode 
=10 Shift Kanji-mode in or out 
=11 Not switched 
bit 5-4 =00 CAPS Lock off 
=01 CAPS Lock on 
=10 Switch CAPS Lock on or off 
=11 Not swithed 
bit 3-2 =00 Alphanumeric shift 
=01 Katakana shift 
=10 Hiragana shift 
=11 Not changed 
bit 1-0 =00 Half size mode 
=01 Full size mode 
=10 Switch Half/Full-size mode 
=11 Not switched 
Reserved 


Status/symbol line and Kana-Kanji conversion 


possible or 


impossible. 


Bit 0= 0 Kana-Kanji conversion is possible 


( default ). 
= 1 Kana-Kanji conversion is impossible 
Bit 1= 0 Access to the indicator line is 
possible. ( default ) 
= 1 Access to the indicator line is 
impossible. 
When the screen mode is reset , these parameters 
will revert to the default values. 


Same as (AH)=5, except status/mode symbols 


displayed are not altered. 
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5.3 BIOS Usage 


DEPE 17 Printer I/0 


The printer BIOS supports the IBM 5512 Thermal Transfer Printer 
( hereafter called PT-2 ) and the IBM 5513 Thermal Paper Printer 
( hereafter called PT-1 ). When the printer is called by (AH)=0, 
the entire contents of AL are printed to the PT-2 printer. 

The situation may not be the same as PT-1. ; 

Descriptions of PT-1 output when called by (AH)=0 are provided 
followed by a description of the BIOS common to both printers. 


When PT-1 is connected and BIOS is called by AH=0, the contents 
of AL determines whether they are character code, control code 
Or data. As for the multiple number of bytes of control code, 
the control code sequence should strictly be followed at the 
time of BIOS process. 


Character codes for sending one byte (ANK) or two byte characters 

should be IBM internal codes. 

The character font output to the printer is an image of what was 

obtained by a request for a Video BIOS character font. 

The characters use Hankaku 7 X 16 dot and Zenkaku for 15 X 16 

font patterns. 

The printer output is performed in units of one line. The data 

are stored in the BIOS character buffer until the printing 

COmmands such as LF, FF are received. 

At the time when BIOS receives printing commands, character 

patterns for one line are output to the printer as image data. 

For this reason, characters and image data can not reside within 

the same line. ( In this case, a line is automatically fed.) 

The PT-1 uses an 8 dot print head. 16 dot vertical printing 

requires the head to move twice. 

Printed characters can be large or small characters. A change 

ska One size to the other must be made at the beginning of a 
ine. 

Small characters are the default. 
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Control codes used are those for the IBM 5553/5557 printers and 
some of these differ from those of the PT-1. BIOS converts then 
to PT-1 codes. Due to the PT-1 hardware limitations, those 
codes which BIOS can not convert are replaced by blanks. 


Out of the IBM 5553/5557 control codes, the following are 
converted by BIOS: 


1) CAN : Cancellation 
After the image buffer or code buffer within BIOS are 
cleared, the CAN code is output to the printer. 


2) CR : Carriage Return 
Because the PT-1 automatically issues an LF, the CR 
code is neglected within BIOS. 


3) LF : Line Feed 
An LF is taken as a print command and after data 


in the buffer are output to the printer, the LF is 


performed. 
The PT-1 automatically issues an LF. 


4) FF >: Page Change 
FF is taken as a print command and after data in the 


buffer are output to the printer, the page change is 
performed. 


5) SP : Space 
One Hankaku character space corresponds to one space 


output. 


6) ESC ¥ 1: Single length image data transfer 
( graphics image handling code ) 
This is used when graphics image data are sent. 
Conversion is made as follows: ( 2 byte code data 
transfer mode should be followed. ) 


ESC ¥ 1 N1 N2 D1 D2 D3 D4 ..... D(2 X N1N2) 
is converted to 

ESC L N1 N2 D1 D3 D5 ....D(2 X N1N2)-1 
+LF 


+CR 
+ESC L N1 N2 D2 D4 D6 ....D(2 X NIN2) 


> |5]>| Image data (ODD) . i 
2] +] Image data (EVEN) i 







MSB 






LSB 
MSB 


LSB 


5.3 BIOS Usage 


7) ESC % 2 : Double length image transfer ( graphics 
image handling code ) 


This is used in graphics image data transfer as follovs: 
(2 byte data transfer mode should be followed.) 


ESC % 2 N1 N2 D1 D2 D3 D4 ....D(2 X N1N2) 


is converted to 


ESC L N1' N2' D1 D1 D3 D3..D(2 X N1N2)-1 D(2 X NIN2)~-1 


+LF 
+CR 
*ESC L NI’ N2* D2 D2 D4 D4..D(2 X NIN2) D(2 X N1N2) 





MSB 





3 3] Image data (ODD) 


214/41] Image data (EVEN) 


LSB 
MSB 
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8) 


9) 


10) 


ESC ¥ 3: Horizontal skip ( graphics image handling code ) 


This is a command to skip the dots specified and is 
converted as follows: 


ESC % 3 Nl N2 

is converted to 

ESC 1 N1 N2 00 00 00 00 ..... 00 00 
NiN2 


ESC ¥ 5 : Vertical skip ( graphics image handling code ) 


This is a command to feed the paper vertically for 
the number of dots specified. As the PT-1 is unable 
to process dots, the conversion is made as follows: 


ESC % 5 N1 N2 
is converted to 
ESC 0 ( NIN2 / 13 ) 


The actual paper feed is made in units of 1/9 inch 
(2.82 mm), N1IN2 / 13 times (rounded). 

( 2 inch maximum ( 50.8mm ) ) 

Where NIN2 / 13 is less than 2, the value is rounded 


up to 2. 


ESC % 6 : Set CR point ( graphics image handling code ) 


This is a command to move the print-begin-position 
the dots specified and is converted as follows: 


ESC % 6 N1 N2 


is converted to 


CR ( carriage return ) 
+ESC L NIN2 00 00 00 00 00 00 00 00 00 00 


N1N2 


11) ESC & 9 : Set Line Space 
¢ The number of line spaces when LF is received is set 
N by the value of N1N2 as follows: 

0 SNIN2 < 13 cvvees 1/9 inch LF 2 Times 
13 SNIN2 < 26 ---- 1/9 inch LF 3 Times 
26 S NIN2 < 39 --- 1/9 inch LF 4 Times 
39 S NIN2 < 52 weer 1/9 inch LF 5 Times 
52 S NIN2 <) 65 -- 1/9 inch LF 6 Times 
65 S NIN2 < 78 we 1/9 inch LF 7 Times 
78 S NIN2 < 9] «+e 1/9 inch LF 8 Times 
91 SNIN2 < 104 «++ 1/9 inch LF 9 Times 
104 S NINQ <ccsrsssssseeees 1/9 inch LF 10 Times 

12) ESC F > Set page length 

¢ This is a command to set the length of a page with 
6 LPI for small characters and 3 LPI for large 
characters. Conversion is made as follovs: 
ESC F N1 N2 
is converted to 
G ESC C N1 N2 ( N1 N2 < 126 (SMALL) ,63 (LARGE) ) 
When N1IN2 is greater than 126 or 63, the value is 
forced to 126 or 63. 
13) ESC E£ > Set ANK Enlargement 
2 When this command is received, a double size 
character will be printed. 
14) Esc | > Release ANK Enlargement 


When this command is received, ESC £ is released and 
the normal size characters will be printed thereafter. 
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15) FS : Fixed length image transfer ( graphics image 
handling code ) 


When this command is received, the same image transfer 
commands ( ESC ¥ 1 , ESC % 2 ) as those most recently 
issued and the image data transfer using data numbers 
will be initiated. 


16) Other control codes 


The following control codes do not have meaning to 
the PT-1 and are neglected by BIOS. In this case, 
commands which consist of single or multiple bytes 
neglect all the bytes which the command takes as 
valid. The printer waits for the next control code 
to be presented. 











No. of bytes for 
Command generation 






Control Code overlooked - 




























CR CARRIAGE RETURN 







BS BACK SPACE 
DC 1 SELECT 
DC 3 DESELECT 





HORIZONTAL REVERSE SKIP 
VERTICAL REVERSE INDEX 


ESC %4N1N2 
ESC %8N1N2 












ESC %B BIDIRECTIONAL PRINT 

ESC %U NORMAL PRINT 

ESC S SHEET FEED 

ESC V SHEET EJECT 

ESC O HIGH SPEED PRINT START 
ESC P HIGH SPEED PRINT RELEASE 
ESC ( 3 BYTE DATA TRANSFER 


ESC ) 2 BYTE DATA TRANSFER 


REMARKS) 1. As ESC % 1, ESC % 2, ESC % 3, ESC ¥ 5, ESC % 6,FS 
are operated within BIOS as the graphics image handling 
codes, another LF is added when thay are used together 
with character data. 


2. When ESC % 1, ESC % 2, ESC % 3, ESC ¥ 6 as_ used, 
the total of NIN2 within a line should not exceed 
1120 dots, larger values are ignored. 


3. When multiple ESC commands are received, the first 
ESC is valid and other ESC are ignored until a code 
other than ESC is issued. 


5.3 BIOS Usage 


The value in AH indicates to BIOS which of the following 


functions to execute. 
PT-1 and PT-2 have the same function unless otherwise stated. 


When returning to the calling program, DX must be 0. AH vill 
contain status values, while other registers remain unchanged. 


( AH )= 0 Prints the character specified in AL. 
A hex 7F (DEL) prints a special character. 
Also sends control codes to the printer through AL. 
In processing output data, there are differences 
between PT-1 and PT-2, as stated before. 


CAH )= 1 Initializes the printer. Initializes the hardware, 
resets the software status, and then sets’ the 
initial control values, as shown below. 

PT-1 values are in parentheses. 
- Alphanumeric 10 (12) characters per inch 
- Kanji 5 (6) characters per inch 
- Line feed 6 (4.5) lines per inch 
- Page length 66 (49.5) lines per page 
- Speed normal 
( AH )= Print character SMALL character 
= 2 Reads status-l. Reads printer status into AH 
as follows: 
bit 7 =0 In use. 
bit 6 Reserved 
bit 5 =] Out of paper (EOF) or paper jam in the 
automatic sheet feed. 
bit 4 2] Printer ready. 
nt §. < An error such as EOF, printer 
disconnected, CANCEL key pressed or 
time-out has occurred. 
bit 2,1=1 Reserved 
bit 0 =] Time out. The printer is taking an 
abnormally long period of time to print 
characters. 
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Reads the printer status into AH 








( AH )= 3 Reads status-2. é 
as follows: @ 
bit 7 Always “1" 
bit 6,5 Unused 
bit 4,3 =11 7.5 LPI 
10 6 LPI 
01 5 LPI 
00 4 LPI 
bit 2,1 =11 7.5/15 CPI 
=10 6, 7718: 35 Cre 
=01 6/12 CPI 
=00 5/10 CPI 
bit 0 =1 PT-1 is connected 
=0 PT-2 is connected 
( AH )= 4 Prints contents of AL register directly. 
( AH )= 5 Prints double wide. Same as in (AH) =0 except that @® 


the horizontal size of the character is doubled. 


( AH )= 6-A Unused 


( AH )= B Prints a line (including associated attributes) 
in Extension Video mode. ( PT-2 only ) 
Prints the character string in the character 
buffer indicated by ES:DI. The nth character in 
the character buffer will be printed with the nth 
attribute in the attribute buffer. The length of 
the buffer is specified in CX. 





The attributes for this function are one or two 
byte values indicating how characters are printed. 
The meaning of each bit in an attribute byte are 
as follows: 


bit Meaning 

7 Reserved. Must be set to 0. 

6 Underline 

5 Reserved. 
4 
3 





Reserved. Must be set to 0. 
12 Vertical grid line 
=00 None 
=01 Single solid line 
=10 Heavy solid line 
=11 Single dotted line 
1,0 Horizontal grid line 


The values are the same as for a vertical 
grid line. 
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A one-byte attribute is needed for a half-size 
character; a 2-byte attribute is needed for a full-size 
character. Horizontal lines are printed above the 
characters involved: vertical lines are printed to the 
left of the characters involved. 


After the number of bytes specified in the CX register 
1S printed, BIOS will automatically print a carriage 
return character and a line feed character unless the 
character buffer ends with a carriage return character 
Or a line-feed character, or both. Thus the character 
buffer must contain al] the characters to be printed 
In one line. The control characters that can be 
Included in the character buffer are limited to the 
Carriage return, line-feed, ESC [and ESC] that are used 
at the end of the character buffer. 


Sets printer control values. 
The control values are specified in AL as follows. 


(AL) Specified control value 
0 Reset printer default values. See (AH)=1. 


1 Change character pitch 


(BH) =90 5 Full size characters/inch 
(BH) =78 6 Full size characters/inch 
(BH)=6C 6.7 Full size characters/inch 
(BH) =60 7.5 Full size characters/inch 


The value for half size characters is double 
that of full size characters. 


2 Change line feed pitch 
(BH)=1E 4 (3) lines per inch 
(BH)=18 5 (3) lines per inch 
(BH)=14 6 (3) lines per inch 
(BH)=10 7.5 (4.5) lines per inch 


3 Change page length. 
(BX) nuaber of lines per page 
(based on 6 lines/inch) 


4 Set double/normal speed rode. 
(BH) =0 set double speed node 
(BH) =1 set normal speed mode 
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5 Set unidirectional/bidirectional printing mode 
( PT-2 only ) 
(BH) =0 set unidirectional printing mode 
(BH) =1 set bidirectional printing mode 





6 Change printing character ( PT-1 only ) 
(BH)= 0 SMALL character 
(BH)= 1 LARGE character 


’ 


TYPE 18 ROM BASIC 
This interrupt executes a BASIC program. 


TYPE 19 System reset 





DOS is restarted by the BOOT program, or by issuing 
INT 18. 


TYPE 1A Timer Support. Reads or sets the time as specified 
in AH. 


( AH )= 0 Reads the current value of the time-of-day counter 
and returns the following: 





CX most significant word of count 
DX least significant word of count 
AL=0 count has not passed 24 hours since the 


last time it was read 
AL<>0 24 hours have passed 


( AH )= 1 Set time-of-day counter to the value specified in 
the CX and DX registers. 


Cx most significant word of count 

DX least significant word of count 

note: Counting rate is 1193180/65536 per sec,i.e., 
there are 18.2 counts per sec. 
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5.3.2. Extension Video Mode BIOS Interrupts 


INT10, INT11, and INT16 have different meanings in Extension 
Video mode from in Native mode. An explanation of these three 
interrupts in Extension Video mode are as follovs. 

Refer to chapter 3 " 3.5 VP3 Display Function ", for more 
information on Extension Video mode. 


TYPE 10 Display Input/Output 


Execute the following functions as specified in AH. 


( AH )= 0 Set mode. Sets display mode as specified in AL. 
(AL) Mode 
0-7 Reserved 
8 80X25 mono character mode (initial mode) 
9 720X512 mono graphics mode 
80X25 characters displayed 
10 Reserved 
11 360X512 4 color graphics 


40X25 characters displayed 
- double size character width 
- palette 11 used for character color 
- palette 00 used for background color 
- normal size characters printed except 
for screen print. 
- All palettes, except palette 0 are 


printed. 
Refer to(AH)=11, "set palette color”. 
12-13 Reserved 
14 80X25 color characters 
( AK )= 1 Set cursor-type. The cursor type is specified by 
bits in the CX register. 
bit 14,13 =00 non-blink 
=01 non-display 
=10 blink at 4 times per second 
=11 blink at 2 times per second 


Blinking is not supported in graphics node. 


bit 12-8 start line of the cursor in a character 
box 
bit 4-0 end line of cursor in a character box 


CH 
cl— 
2 
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( AH )= 2 
( AH )= 3 
( AH )= 4 
( AH )= 5 
( AH )= 6 
( AH )= 7 
( AH )= 8 


Set cursor position. The cursor. position 
(row,col) is specified by values in ( DH,DL ). 
(0,0) indicates the home (upper left) position. 


Read cursor position. (DH,DL) contains the 
current cursor position ( DH=row,DL=col ). 
(CH,CL) contain the cursor type. 


Reserved 
Reserved 


Scrolls display upward. (CH,CL) specifies the 
upper left corner of the position to be scrolled 
(CH=row,CL=column), (DH,DL) the lower right corner 
(DH=row,DL=column), AL the number of lines to be 
scrolled, and BH the attributes for the space left. 
AL=0 clears the area defined by CX and DX. 


Scrolls display downward. Same as ( AH )=6. 


Reads the character at the current cursor position 
into AL and its attributes into AH. 


Full-size characters return the following 
attributes. 


lst-byte XXXX XX01 
2nd-byte XXXX XX11 


The attributes returned are the same as those 
written by ( AH )=9. 


All attributes are supported in graphics mode. 


In color graphics mode the color attribute bits 
of AH have no affect on the color of the 
characters. 
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( AH )= 9 
( AH )= A 
( AH )= B 
( AH )=C 


5.3 BIOS Usage 


Writes cursor posision attributes and characters. 
Characters to write in AL and their attributes, 
with the number of characters indicated units of 
half-size characters, should be specified in CX. 
For full-size characters, the attributes change 
after the 2nd byte is written. 


Bit 1 or 0 of the attribute is set depending on 
the contents’ of the AL register. 


Half-size character XXXX XXXO 
Full-size character 
lst byte XXXX XX01 
2nd byte XXXX XX11 


All the attributes except high-intensity and blink 
are supported in graphics” mode. 


In color graphics mode, the color attribute bits 
of BL have no affect on the color of the 
characters. 


Write character only. Same as (AH)=9, except that 
attributes are not written ( nothing specified in 
BL ). 


Set a color in the palette. Specify in BH 
the palette number to be set (0-3). Specify in BL 
the color number ( 0-15 ) to be assigned to the 
specified palette number. 


Write a dot. (DX, CX) specifies the bit 
position (row,column) where the dot is to be 
written, (0,0) represents the home position on the 
display. Both the row and the column number are 
in units of dots, not characters. 

In color mode, AL specifies the palette number (0- 
3) for the color dot to be written. 

In monochrome graphics mode, bit 0 or 1 is 
specified in AL. If the eighth bit (bit 7) in AL is 
specified as 0, the value in bit 0 (or bit 0,1) of 
AL will be written directly. 

If the value in bit 7 is set to 1, however, the 
XOR (exclusive OR ) value of the current value and 
the value of bit 0 in AL will be written. 


This function works only in graphics mode. 
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( AH )= D 
( AH )= E 
( AH )= F 
( AH )=10 


Read a dot. (DX,CX) specify the (row, column) 
of the dot position to be read ( both the row and 
column number are in units of dots, not 


characters). The dot value (on /off) is read into 
bit 0 (or 0,1) of AL. 


This function only works in graphics mode. 


ASCII teletype routine for output. 

Writes a character at the cursor position and 
advances the cursor. If the cursor is already in 
the rightmost position in line 24, the screen is 


scrolled upward. 
The character to be written is specified in AL. 


If the cursor is at the last position in a row 
and a full-size character is to be written, 
a space is placed at this position and at the lst 
position in the next row the full-size character 


is written. 


This function also works in graphics mode. 


Get the current display status. AL receives the 
current mode and AH _ receives the number of 
character columns displayed. 


Request a font pattern. Returns the font 
pattern for the specified character in the user- 
designated memory location. CX must hold the 
internal code of.the requested character. CH must 
must be 0 for half-size characters. AL must be 0. 
Fonts will be placed in the memory location 
designated by (EX:BX), as follows: 


8 
ES:BX? Li | 





Li6é 
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( AH )=11 


TYPE 22 


5.3 BIOS Usage 


Sets the display attributes. The display 
attributes are specified in BH as follows: 


(BH) Display attributes 
bit 6 =1 display in high-intensity 
bit 3-0 grid line color (0-15). The colors are 


the same as those described in “Setting 
the palette ". 


Device Configuration Status 


The device configuration status is returned in AX. 
The information, specified by the bits in AX, is listed below: 


bit 
bit 
bit 


bit 


bit 
bit 


4 


15,14 Number of printers (usually 1 is returned) 

13 =1 Reserved 

12 Reserved 

11-9 Number of ASYNC cogmunication ports connected 
8 =1 Reserved 

7,6 Number of diskette drives 

5,4 Video mode initialized ( always =10 )# 

3,2 Type of display 


=00 12 inch monochrome display( always =00 ) 
Reserved 
Reserved (=1 diskette drive is connected) 


or 


* Extension mode is identified by checking bits 5 and 4 


for values of 1 and 0, respectively. 


RAM addresses 700-701 (Hex) are reserved for system use 


in 


TYPE 16 


Extension Video mode. 


Keyboard Input/Output 


One of the following functions is executed depending on the 


value in 


( AH )= 0 


AH: 


Reads next character. Reads a character from the 
keyboard and puts the following codes into AH 
and AL. 
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If more data remain in the buffer, the initial data are returned. 












Data type 


| AH AL 

1 byte code character 

2 byte code ist byte 

E byte code 2nd byte | scan code 2nd byte 

Function key, etc. pseudo scan 

JIS code Using ALT key | code 

JIS-8 bit code input ae! 
scan code 

Kanji lst byte Ist byte 

by kana-kan 2nd byte | FF 2nd byte 

conversion 















Otherwise, the routine stays active for the next data input. 


( AH )= 1 


(ZF) =1 
(ZF) =0 


( AH )= 2 


Indicates if a JIS-8 bit code character is 
available to be read. ZF (zero flag) will be set 
as follows, to indicate whether data have been 
transmitted into the buffer or not: 


No character is in the buffer for reading 
Character is in the buffer for reading 


When (ZF)=0, the next character will be sent to 
AX. The character remains unchanged in the buffer 
until a call is made with (AH)}=0 to read the next 
character. 


Reads shift status. Current shift status is sent 
to AL and AH as follows: 


AL register 


bit 7 = 1 insert mode 

bit 6 = 1 CAPS Lock pressed 

bit 5 unused 

bit 4 = 1 Scroll Lock pressed 

bit 3 = 1 ALT key pressed 

bit 2 = 1 Control key pressed 

bit 1,0= 01 right shift key pressed 
= 10 left shift key pressed 
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( AH )= 3 
( AH )= 4 
( AH )= 5 
( AH )= 6 
( AH )= 7 


AH register 


bit 7-3 

bit 2,1 =00 
=01 
=10 

bit 0 =1 
=0 


Clicker on : 


5.3 BIOS Usage 


Unused 
Alphanumeric shift 
Katakana shift 
Hiragana shift 
Full-size node 
Half-size mode 


Causes the speaker to generate sound 


with frequencies of 31-32767 Hz as specified 


Clicker off : 


Alters keyboard status or mode. 
status or mode in AL. 


AL register 


bit 7-6 =00 
=01 
=10 
=11 
bit 5-4 =00 
=01 
=10 
=11 
bit 3-2 =00 
=01 
=10 
=11 
bit 1-0 =00 
=01 
=10 
=11 


Status/Mode symbols displayed 


Reserved 


Kana-to-Kanji conversion and 
line possible or impossible. 


Turns keyboard click off. 


Shift out Kanji-node 

Shift in Kanji-mode 

Shift Kanji-mode in or out 
Do not switch 

CAPS Lock off 

CAPS Lock on 

Switch CAPS Lock on or off 
Do not switch 

Alphanumeric shift 
Katakana shift 

Hiragana shift 

Do not change shift status 
Half-size mode 

Full-size mode 

Switch Half/Full size mode 
Do not switch 
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Sets desired 


are altered. 


status/node symbol 


5. Software 


AL 
Bit 0 = Kana-to-Kanji conversion is enabled & 
(default) 
=] Kana-to-Kanji conversion is disabled 
Bit 1 =0 Indicator line is enabled (default) 
=] Indicator line is disabled 


When display mode is reset, these parameter are 
reset to default values. 


( AH )=85 Same as (AH)=5, except that status/mode symbols 
displayed are not altered. 


@ 


@ 
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Srouas 


The 
use: 


INT 5 


INT 1B 


INT 1C 


INT 1D 


following are descriptions of the BIOS routines for 


5.3 BIOS Usage 


Interrupt Routines For Special Use 


special 
: Screen print 


When screen prints, either in Native mode or 


Extension Video mode are required the screen mode 
(character or graphics mode ) is automatically set 
for the printer, and the printing is done in the 
correct mode. The printing direction for character 
mode is the same as that displayed. For the graphics 
mode, the printing line is rotated 90 degrees. 


Keyboard Break Address 


This vector points to the code to be executed when 
Break is pressed on the keyboard. The vector is 
invoked while responding to the keyboard interrupt, 
and control should be returned through an IRET 
instruction. The POWER-ON routines initialize this 
vector to an IRET instruction, so that nothing occurs 


when Break is pressed unless the application program 
sets a different value. 


Control may be retained by this routine, with the 
following problem. The ‘Break’ may have occurred 
during interrupt processing, so that one or more ‘End 
of Interrupt’ commands must be issued in case an 
operation was underway at the time. 


> Timer 


This vector points to the code to be executed on every 
system-clock tick. This vector is invoked while 
responding to the ‘timer’ interrupt, and control should 
be returned through an IRET instruction. 


The 
POWER-ON routines initialize this vector to point to 


an IRET instruction, so that nothing occurs unless the 
application modifies the pointer. It is the 


responsibility of the application to save and restore 
all registers that are modified. 


> Video Parameter 

This vector points to a data region containing the 
parameters required for the initialization of the CRT 
Controller. Note that there are six separate tables, 
and all six must be reproduced if all modes of 
operation ( ANK, Graphics, Kanji ) are supported. 

The POWER-ON routines initialize this vector to point 
to the parameters contained in the ROM video-routines. 
It is recommended that if a programmer wishes to use a 
different parameter table, that the table contained 


in 
ROM be copied to RAM and just modify the values needed 
for the application. 
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5. Software 


INT 1E 


INT 1F 


INT 49 


INT 7A 


: Diskette Parameter 

This vector points to a data region containing the 
parameters required for the diskette drive. The 
POWER-ON routines initialize the vector to point to 
the parameters contained in the ROM DISKETTE-routine. 
It is recommended that if a programmer wishes to use 
a different parameter table, that the table contained 
in ROM be copied to RAM and just modify the values 
needed for the application. The motor start-up-time 
parameter (parameter 10) is overridden by BIOS to 
force a 500-ms delay (value 04) if the parameter value 
is less than 04. 


: RESERVED 


: Conversion Table 

This interrupt contains the address of a table used to 
translate non-keyboard scan-codes (scan codes fron 
56(Hex) to 69(Hex).) If Interrupt hex 48 detects a 
scan code between 56 - 69 (Hex) it translates it using 
the table pointed to by Interrupt Hex 49. The 
address that Interrupt Hex 49 points to can be changed 
by users to point to their own table if different 
translations are required. 


Pointer To Dictionary 
This routine includes pointers to the dictionary for 


Kana-to-Kanji conversion. 
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5.4 Keyboard Scan Code 
5.4. Keyboard Scan Codes 


Scan codes are used to transfer keyboard data to the system unit. 
A different scan code is generated by pushing or releasing a key. 
Functions not represented by a single keystroke can be achieved 
by pressing two or more keys simultaneously. The BIOS keyboard 
routine converts them and returns one single character code. 

BIOS sends scan codes and converted character codes to the CPU. 


The BIOS routines for processing keyboard data are INT2, INT48, 
INT49, INT16, INT9, INT78, INT79, and INT7A. 
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5. Software 


5.9. 


RAM for general use can be expanded to a 512KB maximum. 
The memory space allocation is referred to in Chapter 2, 


Memory Map 


Memory Space and I/O address Setting.” 


00000 


10000 


80000 
88000 
88800 
A0000 


B0000 
B8000 


C0000 
D0000 


E0000 


FFFFF 


Remarks ) 


Figure 5-4 





Native mode : 
i Extension 


English mode ideo mode 


Base RAM 


Expansion 


— Same as the Character 
left column Generator 2 
80000 


8 X 8ANK 
8 X16, 16X16 
NON- KANJI 


User Font 


VRAM 
(Graphics) 


VRAM VRAM virtual 

virtual 

address address (Text) 

BFFFF 

ROM reserved 
ROM cartridge] Same as the 
System left column 
ROM 
on Board 


The map of addresses 00000-80000 (Hex) 
depending on whether or not a 128KB RAM 


installed. Refer to Figure 5-5 and 


Memory Map 





ROM 0 


ROM | 


ROM 2 


ROM 3 


" 


changes 
card 
5-6. 


is 


2.2.6 


‘@ 


as 


(@ 


(@ 


(@ 


(@ 





Meaning of abbreviations : 
@® 64K :64KB Base Memory 
© 64K :64KB RAM Card 
© 128K : 128KB RAM Card 
EVEN : Even address used 
ODD : Odd address used 


Figure 5—5 Memory Space (Native and Extension Video mode) 
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.5.5 Memory Map 


5. Software 


: b memory and 64K bytes of expansion 
Ear arta Peet at addresses 00000-FFFFF (Hex). 
a 


00000 


t 
| VEN! ODD 


10000 © 


20000 


30000 


40000 


50000 


60000 


70000 





80000 


Meaning of abbreviations : 
64K :64KB Base Memory 
© 64K :64KB RAM Card 
© 128K :128KB RAM Card 
EVEN : Even address used 
ODD =: Odd address used 


Figure 5—6 Memory Space (English mode) 
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(@ 


(@ 


(e 





5.6 I/O Map 


5.6. I/0 Map 


I/0 addresses are initialized as follows. Addresses can be 
changed for some I/0. The relocation of I/0 addresses is 
referred to in Chapter 2, " 2.2.6 Memory Space and I/0 Address 
Setting”. 


170 Name 


1X Reserved 

20 8259 PIC 

21 8259 PIC 

40 8253 Timer 1 

41 8253 Timer 2 

42 8253 Timer 3 

43 8253 Mode 

60 8255 Port A 

61 8255 Port B 

62 8255 Port C 

63 8255 Control 

AO NMI Control 

CO 76489A Sound generator 
F2 ; Diskette controller 

F4 Diskette status register 
F5 Diskette data register 
1FF Gate Array-08 

201 Joystick 

278 Reserved 

279 Reserved 

27A Reserved 

2F8-2FF | 8250 register addresses 
32X Reserved 

378,37C | Parallel interface 
379,37D | Parallel interface (status) 
Parallel interface (command) 






















































Figure 5—7 I/O Addresses (1 of 2) 
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5. Software 












Address 
3D0,2,4,6 | CRTC address registers 
| 3D1,3.5,7 | CRTC data registers 







3D8 Reserved 
1 3D9 Page register 2 
| 3DA Video Gate Array VP1, VP2 
| 3DB Clear light pen latch 
| 3DC Set light pen latch 
| 3DD Video gate array VP3 

3DE | Light pen gate 





Page register 1 
Reserved 





Figure 5—7 I/O Addresses (2 of 2) 


®@ 
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6. Compatibility 


This chapter describes points to keep in mind to maintain 
compatibility among the IBM 5510, IBM 5550 and PCir systems. 
The differences among these systems are also described. 


To have compatibility between the IBM 5510 and PCjr, it is 
necessary to operate the IBM 5510 in English mode. 


In order to 
be compatible with the IBM Multistation 5550, the 5510 must be 
operated in Extension Video mode. 


ROM cartridges are available 
for changing the mode of operation. 


It is recommended that an application program use only the BIOS 
and DOS interrupt interfaces in order to achieve compatibility 


with the PCjr and IBM 5550, since absolute addresses vary among 
the three machines. 


There are several factors to keep in mind to maintain compati- 
bility. They are: 


Unequal Configurations 


. Hardware Differences 


1 
2 
3 Diskette Compatibility 
D 


iscussions of these topics follow. 
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6. Compatibility 


6.1. Unequal Configurations 


From the configuration/hardware point of view, there exist 
some functions which the IBM 5550 has, while the IBM 5510 does 
not have. Application programs which call for those functions 
might not work on the IBM 5510. The following are functions 
unique to the IBM 5550: 


1. Hardware 
- 5550 ROM Function 
- DMA 
- 1024 x 768 dot display function 
- IBM 5550 unique key-tops 
- IBM 5550 unique printer function 


2. BIOS 
- 1024 x 768 dot graphics mode 
- Hard Disk 

3. DOS 


- User fonts of 63 or more characters 
- Hard disk support commands (SWITCH, BACKUP, RESTORE) 
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6.2 Hardware Differences 
6.2. Hardware Differences 


The IBM 5510, PCjr, and the IBM 5550 differ in hardware design 
and there might be instances where application program compati- 
bility is not maintained because of the differences in the 
hardware. Figure 6-1 shows the hardware features of the IBM 
5550 and PCjr compared with those of the IBM 5510. 

Due to different shapes in connectors, some hardware might need 
modification before being used, but when the hardware is func- 
tionally compatible, it is classified as compatible. 


Comparison 





Hardware/Function _ 























+ 5550 PC-jr 
" User Memory ‘ at 7 2a & * 
‘Compact Keyboard XH 
' Full Keyboard x* N/A 
‘Diskette I Drive Geka —— 7 * x * 
"Printer Interface _ eae x * iz 
RS-232C Interface 5% = 
~ Joystick Interface WA SG 
~ Cassette | Interface : N/A € 
"Color Graphics _ co . 
“Light Pen N/A iad 
8253 Timer — : 
_ Interrupt Controller _ co * “a 
_ Beep ‘Subsystem ae = 
" Sound “Generator N/A x 
“ROM Cartridge Interface, N/A. 
Remarks) © --- Compatible 
X --- Incompatible 
= --- With Conditions (Mentioned hereafter) 


N/A - Not Applicable 


Figure 6-1 Hardware Configuration Comparison 
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6. Compatibility 


Hardware Differences from PCjr 


1. 


User RAH 
PCjr always shares the user RAM with the video RAM, while the 


IBM 5510 has dedicated video RAM and only utilizes user RAM 
as video RAM in special cases. When a program uses video 
pages 0 through 7 on the 5510 system, user memory of 16 KB 
per page is required. Pages 8 through B (Hex) are areas for 
the dedicated video RAM and when these are accessed, user RAM 
is not used. 


Diskette Drive 
- JBM 5510 : 80 tracks/side or 
40 tracks/side, 3.5" or 5.25" 


- PCjr : 40 tracks/side, 5.25" 


The size difference between the 3.5" and 5.25" diskettes 
makes physical compatibility impossible, but the diskette 
formats are compatible. 


Keyboard 
The IBM 5510 keyboard has added keys for Kanji handling but 


other keys are compatible with the PCjr keyboard. 


Sound Generator 
The IBM 5510 and the PCjr use compatible chips. 


RS-232C Card 
This is provided as a standard feature on the PCjr, while on 


the IBM 5510, it is an optional feature. English mode 
applications using either COM1 or COH2 mode should have this 


optional feature to run on the IBM 5510. 
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6.2 Hardware Differences 


Hardware Differences from IBM 5550 


is 


User RAM 


The IBM 5510 has the concept of multiple pages and can have 
up to 12 pages, while the IBM 5550 does not (one page is 
assumed). The memory maps for the two systems are different. 
However, if an application program accesses the hardware 
through BIOS calls, the memory map differences should be 
unimportant. Memory size should also be taken into account 
when considering compatibility because the minimum memory 
size of the IBM 5550 is larger than that of the 5510. 


Diskette Operation 


The IBM 5510 does not have DMA capability, while the IBH 
5550 has. The IBM 5510 uses a level 6 hardware interrupt. 
When diskette I/0 takes place, the entire system is masked 


and other 1/0 devices are inactivated (operator keystrokes 
and RS-232C etc.). 


Keyboard 


The IBM 5510 keyboard scan codes differ from those of the IBM 
IBM 5550. Compatibility is maintained by using interrupt 
type 16 (keystroke read). The keyboard operation, however, 


differs due to differences in the nusber and the functions of 
the keytops. 


Video Display Function 


There is quite a high degree of compatibility between the IBM 
5550 and Extension Video mode, but the font sizes of the two 
systems differ. The IBM 5550 has a wrap function for 

displaying screens, while the IBM 5510 does not. 


Kanji Font 


The IBM 5510 requires 32 bytes/character, while the IBM 5550 
requires 72 bytes/character. 


Dictionary 


The IBM 5510 dictionary resides in ROM, while the IBM 
5550 dictionary resides on a diskette and is loaded into RAM 
on demand. 


RS-232C Interface 


The IBM 5550 supports up to 9600 BPS communications through 
use of DHA, while the IBM 5510 supports up to 4800 BPS 
communications through use of a level 3 interrupt. When 
diskette 1/0 takes place, interrupts other than level 6 are 


rejected and therefore, RS-232C interface I/0 will not 
occur. 


Timer (8253) Input 
The IBM 5510 clock is 1.19 MHz, while that of the IBM 5550 is 
2.0 MHz. 
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6. Compability 


9. 


10. 


11. 


Both systems use a 8259A PIC, but as the interrupt level 
assignments for the two systems differ, there might be 
instances where compatibility is not maintained. 


Interrupt Controller 


Beep ; 
As there is a difference in the frequency of the Timer Input 


clock between the two systems, their beep sounds are slightly 
different. 

Timing 

When an IBM 5550 application program is dependent on the 
processing speed or timing, it might not run on the IBM 5510. 
In this case, the program should be modified in accordance 
with the IBM 5510 specifications. In developing application 
programs, the following points should be taken into 
consideration: 


- The processing speed differs with the size and type of @ 
merory in which an application program is running. 


Processing Speed Memory for the progran 


Fast ROM 


128 KB RAM Card 





64 KB memory on the system board & 
64 KB expanded memory 


64 KB memory on the board when it is 
functioning as video RAM and 64 KB of 


Slow expanded memory 
- The highest degree of application compatibility can be 
achieved by using a common high level! language and (@ 


accessing the system only through BIOS and DOS interrupts. 
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6.3 Diskette Compatibility 
6.3. Diskette Compatibility 


When a 5.25" diskette drive is installed in an Expansion Unit, 
there will be instances where the PCjr or the IBM 5550 is 
completely compatible with the IBM 5510. When only 3.5” diskette 
drives are provided, the physical shape and size of the diskettes 
makes it impossible to have compatibility. 3.5" and 5.25” 
diskettes are, however, the same in format and logically they are 
compatible. The following chart shows compatibility when a 5.25” 
diskette drive is installed in an IBM 5510 system: 









SYSTEM B 






a 
ce ea <a 
hie | | we | ee 


Remarks) A <----> B : Perfectly compatible 
(both systems can read/write) 


ooc-- ==> > Reading of a diskette which has been 
written by the other systems is 
possible. (The arrow points to the 
system which reads.) 


= > Diskettes formatted with 40 tracks can 
be read. Ones with 80 tracks cannot. 
X > No Compatibility 


Figure 6-2 Diskette Compatibility 
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Appendix A. BIOS 


Appendix A. 


Relative Ref. 


Absolute 

Address PUBLIC Name Module _Address Page 
--------- (EQUATES & DATA AREA) - aa A- 2 
F800:0000  -7-77"7> 1 0000 3 
20030. 9 ---77777 2 0000 15 
0076 VIDEO_I0 2 0048 19 
01CD VIDEO_PARMS 2 019D 21 
:2030 EQUIPMENT 3 0000 93 
:203C MEMORY _SIZE_DETERMINE 3 000C 93 
:2048 DISKETTE_IO 3 0018 94 
:248D SEEK 3 045D 103 
:2539 DISK_BASE 3 0509 104 
:2544  DISK_INT 3 0514 104 
:25B5 RS232_10 3 0585 105 
:2696  CASSETTE_10 3 0666 107 
:27AC - READ_HALF_BIT 3 077C 110 
:2900 KBDNHI 4 0000 113 
:2A27 ~— EXTAB 4 0127 115 
:2A50 KEY62_INT 4 0150 115 
:2C9E KEYBOARD_10 4 039E 119 
:2ED5 = KB_INT 4 05D5 122 
:385D BUFFER _QUEING 4 OFSD 133 
23A00 0 -- roo 5 0000 135 
:3AA0 PRINT_SCREEN 5 OOA0 136 
330C0 0 seamen ooo 6 0000 141 
:3E20  PRINTER_IO 6 0060 141 
:4E00 BOOT_STRAP 7 0000 163 
:4F0O KKKFDH 8 0000 169 
76700 ODDS 9 0000 214 
76708 TIME_OF_DAY 9 0008 214 
76752 READ TIME 9 0052 214 
7677) KB NOISE 9 007D 215 
*679E BAS_ENT g O09E 215 
°67B3  TIMER_INT 9 00B3 215 
76A00 = POST 10 0000 218 
76A6B RESET 10 0068 220 
*6F99~—s«O11 10 0599 229 
:6FCO = DUMMY_RETURN 10 05C0 229 
?79A1 PRT_HEX 10 OFAl 248 
:79C0 BEEP 10 OFCO 247 
?7FCO VECTOR_TABLE 10 15C0 255 
*7FFF = POST_END 10 15FF 256 


Remark) Refer to the table shown above, when you find the character “EF 
for the operand in the BIOS listing. 


we 
eo 
eo 
man 
oo 


eC | 
°o 
°o 
> 
°o 


Ce 
o 
Lod 
so 
> 


onnnnne ou 
o eo 
o « 
o o 
“ @ 


ow 
oo 
oo 
on 
eon 


oC ee 
o 
o 
2s 
o 


Ce 
o 
o 
~ 
o 


$ 
3 <CAVEAT EMPTOR>: 


: 
: 
THE BIOS ROUTINES ARE MEANT TO BE ACCESSED THROUGH s 
SOFTWARE INTERRUPTS ONLY. ANY ADDRESSES PRESENT IN : 
THE LISTINGS ARE INCLUDED ONLY FOR COMPLETENESS, z 
NOT FOR  REFEREHCE. APPLICATIONS WHICH REFERENCE 3 
ABSOLUTE ADDRESSES WITHIN THIS CODE VIOLATE THE : 
STRUCTURE AND DESIGN OF BIOS. 3 


ee we Be we we we we 





3 SYSTEM ID : 
jeewcdeutencocussutasccoseecceeccweeseseses pEGwotuescoosoms leases 
PJSYSID EQu OFDH 3 PCje SYSTEM ID 
IXSYSID Equ OEDH 3 JX SYSTEM ID 
MFG_PORT Equ 10H 3 MFG TESTER PORT 
PORT_A EQu 60H 3 8255 PORT A ADOR 
CPUREG EQU 38H 3 MASK FOR CPU REG BITS 
CRTREG EQu 7 3 MASK FOR CRT REG BITS 
PORT_B EQU 61H 3 8255 PORT B ADDR 
PORT_C Equ 62H 3 8255 PORT C ADDR 
CMD_PORT EQu 63H 
MODE_8255 EQU 10001001B 
KBPORT EQu 60H 3 KEYBOARD PORT 
INTAOO EQu 20H 3 8259 PORT 
INTAOL EQU 21H 3 8259 PORT 
EOI equ 20H 
TIMER EQU 40H 
TIM_CTL EQU 43H + 8253 TIMER CONTROL PORT ADDR 
TIMERO EQU 40H 3 8253 TIMER/CHTER 0 PORT ADDR 
NMI_PORT EQU OAOH 3 HMI CONTROL PORT 
SND_CTL EQU ocoH 3 SOUND GENERATOR CONTROL PORT 
S8STATUS EQU 1FFH 3 $8 STATUS REGISTER 
VRAM2IN EQU 80H 3 32K VRAM CARD IN 
EROM6IN EQU 40H 3 EXT. ROM 6 (F0000-) IN 
EROM7IN EQuU 20H 3 EXT. ROM 7 (F8000-) IN 
JOY_PORT EQu 201H 3 JOYSTICK CONTROL PORT 
RS232_1_PORT EQU 3F8H 3 RSZ232C-1 PORT 
RS232_2_PORT EQU 2F8H . & RS232C-2 PORTCON BASE BOARD) 
PARAL_PORT EQU 378H 3 PARALLEL PORT 
CRT_CTL EQu 3D4H 3 CRT CONTROLLER CTRL PORT 
VGA_CTL EQu 3DAH 3 VIDEO GATE ARRAY CTRL PORT 
VGA_CTL_E EQU 3DDH 3 VIDEO GATE ARRAY CTRL PORT 

3 FOR EXTENSION MODE 
PAGREG EQU 3DFH 3 CRIZCPU PAGE REGISTER 
PAGREG? EQU 3D9H 3 CRIZCPU PAGE REGISTER 2 






H INIT 
(esackswsocecs 
MINI EQU 2000H ; FUTURE USE 
KKOFF EQU 74256 *KANAKAN |_OFF¢INDICATOR_OFF ; 
INIT_CODE EQU 00 ; BOOT INITIA;L JUMP CODE 
BOOT_LOCN1 EQU O00SH 3 IB AREA 
BOOT_LOCKH2 EQU 0005H 3M AREA 
KKNIWIT EQu OFF20H 3 KANA KANJI CONVERSION INITIALIZE 
DICT_ADOR EQU 3A00H 3 DICTIONARY ADDRESS 
isnt Sensewsunecancacawdecsea KUivecwawsces wns ubereesaamaeeee a 
3 DISKETTE EQUATES 2 
jecseasactoccaanbedeceeree aes erat ee ee ee eae rer 
NEC_CTL EQu OF2H 3 CONTROL PORT FOR THE DISKETTE 
FDC_RESET EQU 80H 3 RESETS THE NEC (FLOPPY DISK 

3 CONTROLLER). 0 RESETS, 

3 1 RELEASES THE RESET 
WD_ENABLE EQu 20H + ENABLES WATCH DOG TIMER IN NEC 
WD_STROBE EQuU 40H 3 STROBES WATCHDOG TIMER 
DRIVE ENABLE EQu 01H 3 SELECTS AND ENABLES DRIVE 

EQu OF4H 3 STATUS REGISTER FOR THE NEC 
BUSY_BIT EQU 20H 3 BIT = 0 AT END OF EXECUTION PHASE 
DIO EQU 40H 3 INDICATES DIRECTION OF TRANSFER 
ROM EQU 80H 3 REQUEST FOR MASTER 
NEC_DATA EQu OFSH 3 DATA PORT FOR THE NEC 
DRV_SUPPORT EQU OFH 3 4 BIT SUPPORT UP TO FOUR DRIVE 
DRV_RANGE EQu O3H 3 RANGE CHECK 0 TO 3 
OFF_DBL_TRK Equ 3FH 3 J PARAMETER : DOUBLE TRACK SUPPORT 
an anactacandiucencencsscueess weueteei oso orcuavecueussocsces 
3 8088 INTERRUPT LOCATIONS z 
Pusweawccccceccescessse eweswer seeecectepeesessuleccesseseaeusses 
INT_10 EQU 10H } VIDEO_I0 
INT_11 EQU 11H 3 EQUIPHENT 
INT_12 EQU 12H 3 MEMORY. SIZE_DETERNINE 
INT_1S EQU 13H 3 DISKETTE 10 
INT_14 EQuU 14H ; 32¢_10 
INT_15 EQU 15H , CASSETTE. 10 
INT_16 EQu 16H 3 KEYBOARD_10 
INT_17 EQU 17H 3 PRINTER_IO 
INT_18 EQU 18H 3 RESIDENT BASIC 
INT_19 EQU 19H 3 BOOT_STRAP 
INTLIA EQU 1AK 3 TIME_OF_DAY 
INT_1B EQU 1BH 3 DUMMY_RETURN 
INT_IC EQU 1CH 3 DUMMY_RETURN 
INT_1D EQU 1DH 3 VIDEO_PARMS 
INTLIE Eau 1EH 3 DISK_BASE 
INT_LF EQU 1FH 3 CRT_CHARH 
INT_80 EQU 30H 3 DIAGNOSTICS 
ABSO SEGMENT AT 0 
ORG 2uq 
NMI_PTR LABEL WORD 
ORG cir) 

INTS_PTR LABEL WORD 
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0014 ORG PABEL WORD 
eats INTS_PTR tas 
LABEL  DWORD 
sere INT_PTR LABEL 
Site VIDEO_INT LABEL WORD 
gore INTIC_PTR LABEL WORD 
tad ORG 1DHH4 wii 
sone PARM_PTR LABEL DWORD } POINTER TO VIDEO P 
dose BASIC_PTR LABEL WORD 3 ENTRY POINT FOR CASSETTE BASIC 
Hed RG TEHNG nD 3 INTERRUPT 1EH 
DISK_POINTER AB 
sete ORG TFHKG } LOCATION OF POINTER 
007 EXT_PTR LABEL DWORD } POINTER TO EXTENSION 
ee ORG 44HxG 
Sita CSET_PTR LABEL DHORD } POINTER TO DOT PATTERKS 
8He 
tise KEY62_PTR LABEL WORD 5 POINTER TO 62 KEY KEYBOARD CODE 
ORG x ‘ 
sie EXST LABEL WORD ; POINTER TO EXT. SCAN TABLE 
ORG 400H 
oeoe DATA_AREA LABEL BYTE } ABSOLUTE LOCATION OF DATA SEGMENT 
0400 DATA_WORD LABEL WORD 
7c00 ORG 7COOH 
sc00 BOOT_LOCK LABEL FAR 
7€00 ABSO ENDS 
ic A aioldetoiosed Pease cpa een teem Sccccdweteied . 
3 STACK —- USED DURING INITIALIZATION ONLY ' 
Peddie tones cocanasJae suse cbse recaeabecocesscrcL iene ceeleae eer cobsacmeees 
0000 STACK SEGMENT AT 30H 
0000 aot Du 128 DUPC?) 
2227 
5] 
0108 TOS LABEL WORD 
01006 STACK ENDS 
f eeren stent ee sees Naciits 
3 ROM BIOS DATA AREAS 
DAT SEGMENT AT 40H 
3008 oe R232 BASE DW 4 upc?) ; ADDRESSES OF RS232 ADAPTERS 
27 
1 
0008 oe PRINTER_BASE: DW 4 DUPC?) 3 ADDRESSES OF PRINTERS 
2272 
) 
2099 PFLAG DW + INSTALLED HARDWARE 
boiz 2 EBD. 5 DB 3 COUNT OF KEYBOARD TRANSMIT ERRORS 
0013 292? RERORY SIZE 3 USABLE MEMORY SIZE IN K BYTES 
0015 723? TRUE_MEM ; REAL MEMORY SIZE IN K BYTES 
; ee EYBOARD D : 
0017 ° KB_FLAG 
3 
SHIFT FLAG EQUATES WITHIN KB_FLAG 
= 0060 Caps_STATE EQU 40H 3; CAPS LOCK STATE HAS BEEN TOGGLED 
= 0020 HUM_STATE EQu 20H ; NUM LOCK STATE HAS BEEN TOGGLED 
= 0008 ALTISHIFT EQU 08H 3 ALTERNATE SHIFT KEY DEPRESSED 
= 0006 CTLTSHIFT EQU 06H 3} CONTROL SHIFT KEY DEPRESSED 
= 0002 LEFT_SHIFT EQU 02H ; LEFT SHIFT KEY DEPRESSED 
= 0002 RIGHT_SHIFT EQU 01H } RIGHT SHIFT KEY DEPRESSED 
0018 9? KB_FLAG_1 DB 2 ; SECOND BYTE OF KEYBOARD STATUS 
= 0080 INS_SHIFT EQU 80H 3 INSERT KEY IS DEPRESSED 
= 0060 CAPS_SHIFT EQU 40H 3 CAPS LOCK KEY IS DEPRESSED 
= 0020 HUM_SHIFT EQU 20H 3 NUM LOCK KEY IS DEPRESSED 
= 0010 SCROLL_SHIFT  EQU 10H 3 SCROLL LOCK KEY IS DEPRESSED 
= 0008 HOLD_STATE EQU 08H 3; SUSPEND KEY HAS BEEN TOGGLED 
= 0004 CLICK_ON Equ 04H + INDICATES THAT AUDIO FEEDBACK IS 
. ; ENABLED 
= 0002 CLICK_SEQUENCE EQU 02H + OCURRNCE OF ALT-CTRL-CAPSLOCK HAS 
3 OCCURED 
0019 7? ALT_INPUT DB ? + STORAGE FOR ALTERNATE KEYPAD 
3 
001A 2722 BUFFER_HEAD DW 2 + POINTER TO HEAD OF KEYBOARD BUFF 
Oo1c «22k? SUR are DW 2 3 POINTER TO TAIL OF KEYBOARD BUFF 
OO1E lo — KB_BUFFER DW 16 DUPC?) 3; ROOM FOR 15 ENTRIES 
; 3 HEAD = TAIL INDICATES THAT THE BUFFER IS EMPTY 
a ieeee NUM_KEY EQU 49 s SCAN CODE FOR HUMBER LOCK 
= 0086 SCROLL KEY EQU 70 ; SCROLL LOCK KEY 
a ese ar 1-fey eeu He + ALTERNATE SHIFT KEY SCAN CODE 
= 003A CAPS_KEY EQU 53 ; sent cae CONTROL KEY 
= 002A LEFT_KEY eu 42 ; SCAM CODE FOR LEFT SHIFT 
= 0036 RIGHT_KEY EQU 54 : 
= 0052 INS_KEY EQU 32 3 SCAN FOR RIGHT SHIFT 
= 0053 DEL_KEY EQU 33 + SCAN FOR INSERT KEY 
wea lee ee OR wenn 2 SCAN FOR DELETE KEY 
i DISKETTE DATA AREAS salina iets ie 
OOSE 22 SEEX_STATUS. DB.) Tormenwececnsenencss ~----------- 
DB 3 ; “DRIVE RECALI BRATION STATUS 
i = NEEDS RECAL BEFORE 
003F 7? MOTOR_STATUS + NEXT SEEK IF BIT IS = 0 
= pe 2 } MOTOR STATUS 
; = DRIVE 0 IS CURRENTLY 
0040 72 MOTOR_COUNT DB ? 5 RUNNIKG 
+ TIME OUT COUNTER FOR DRIVE 
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0085 «tr 
0086 «ty 
= O00F 
0087 22 
0088 Pt 
= 0004 
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?? 
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3 TURN OFF 





MOTOR_WAIT EQU 37 i 2 SECS OF COUNTS FOR MOTOR 
DISKETTE STATUS DB ? ; RETURN CODE STATUS BYTE 
TIM EQU 80H 3 ATTACHMENT FAILED TO RESPOND 
BAD SEEK EQU 40H + SEEK OPERATION FAILED 
BAD_NEC EQU 20H ; HEC CONTROLLER HAS FAILED 
BADICRE EQU 10H ; BAD CRC ON DISKETTE READ 
DMALBOUNDARY —-EQU 09H } ATTEMPT TO DMA ACROSS 64K 
; BOUNDARY 
BAD_DMA EQU 08H ; DMA OVERRUN ON OPERATION 
RECORD_NOT_FND EQU 04H 3} REQUESTED SECTOR NOT FOUND 
WRITE_PROTECT  EQU O3H } WRITE ATTEMPTED ON WRITE 
; PROTECTED DISK 
BAD_ADDR_MARK —EQU 02H ; ADDRESS MARK KOT FOUND 
BAD_CMD EQU 01H 3 BAD COMMAND GIVEN TO DISKETTE 170 
NECTSTATUS DB 7 puPC?) 3 STATUS BYTES FROM NEC 
SEEK_END EQu 20H 
THRESHOLD EQu 300 + HUMBER OF TIMER-O TICKS TILL 
3 ENABL 
PARMO Equ OAFH ; PARAMETER © IN THE DISK PARM 
3’ TABLE 
PARML EQu 3 5 PARAMETER 1 
PARMS EQU 25 3 PARAMETER 9 
PARMLO Eau ‘ ; PARAMETER 10 
; VIDEO DISPLAY _DATA AREA ‘ 
ERT_MODE DB 2 ; CURRENT CRT MODE 
CRT~COLS Dw ? 3 NUMBER OF COLUMNS ON SCREEN 
CRTTLEN Di ; 3 LENGTH OF REGEN IN BYTES 
CRTISTART DW 2 3 STARTING ADDRESS IN REGEN BUFFER 
Du 8 DUPC?) ; CURSOR_POSN IS DEFINDED LATER 
CURSOR_MODE Dil ? 3} CURRENT CURSOR MODE SETTING 
ACTIVE~PAGE DB ? 3 CURRENT PAGE BEING DISPLAYED 
ADDR_6345 ? ; BASE ADDRESS FOR ACTIVE DISPLAY 
rH ARD 
CRT_MODE_SET DB ? ; CURRENT SETTING OF THE 
3 CRT MODE REGISTER 
CRI_PALLETTE DB ? }_CURRENT PALETTE MASK. SETTING 
ravcoeeney ees. De! men ere moncsenucnlh SERRE FAVEMIE MASK: SE 
; CASSETTE DATA AREA. ‘ 
EDGE_CNT DW 2 ; TIME COUNT AT DATA EDGE 
CRC_REG Du ? 3 CRC REGISTER 
LAST_VAL DB ? + CAST INPUT VALUE 
; TIMER DATA AREA ; 
TIMER_LOW Du ? ; LOW WORD OF TIMER COUNT 
TIMERTHIGH DW ? 3 HIGH WORD OF TIMER COUNT 
TIMERTOFL DB ? 3 TIMER HAS ROLLED OVER SINCE LAST 
3 READ 
; _SYSTEM DATA AREA : 
BIOS BREAK DB ? ; BIT 7=1 IF BREAK KEY HAS BEEN HIT 
RESEY_FLAG DW : 3 WORD=1234H IF KEYBOARD RESET 
3 UNDERWAY 
fUsssoenSSeae cet ire etre seediesecscns a 
3 EXTRA DISKETTE DATA AREAS : 
TRACKO DB ? 
TRACK1 DB ? 
TRACK2 DB : 
DB a 
a er Doe ter AE ee eas teen, - 
PRINTER AND RS232 TIME-OUT VARIABLES : 
PRINT_TIM_OUT DB 4 DUPC?) 
RS232_TIM_OUT DB 4 puPc?) 





ADDITIONAL KEYBOARD DATA AREA : 
BUFFER_START DW ? 
BUFFER_END DW ? 
INTR_FLAG DB ? 3 FLAG TO INDICATE AN INTERRUPT 
3 HAPPENED 
Jom re enn nw enn e eee weecennees SAanonenanescen= nim ai) ee 
3 62 key KEYBOARD DATA AREA : 
CUR_CHAR DOB ? 3 CURRENT CHARACTER FOR TYPAMATIC 
VAR_DELAY DB ? ; eee WHEN INITIAL DELAY IS 
i R 
DELAY_RATE EQu OFH 3 INCREASES INITIAL DELAY 
cur_FUNC OB ? 3 CURRENT FUNCTION 
KB_FLAG_2 OB ? 3 SRD BYTE OF KEYBOARD FLAGS 
GE EQU 4 3 NUMBER OF POSITIONS TO SHIFT 
3 DISPLAY 
preeeo----- ween nee eee eee eee o20------- wenn eee --- eee 5 eee ee 
H BIT ASSIGNMETS © FOR KB. FLAG 2 t 
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FN_FLAG EQU 
FN_BREAK~ EQU 
FN_PENDING EQU 
FN_LOCK EQU 
TYPE_OFF EQU 
HALF_RATE EQU 
INIT_DELAY EQU 
PUTCHAR EQU 
HORZ_POS DB 
PAGDAT oe 
3 KANJT DOS WORK 
,’ ORG OFOK 
GAIJI_ADDR DW 





3 CURRENT VALUE OF HORIZONTAL 


3 START PARM 
; IMAGE OF DATA WRITTEN | To PAGREG 





; RESERVED FOR KANJI bos 


; “CONTROL FLAGS beech abeoscs wsteeeurs 

ORG HARACTERISTICS 
J_EXT_STATUS CARTRIDGE CHAR 
JEQUIP_ FLAG FLAG EXTENSION 
de ae 
3 JAPAN KEYBOARD DATA AREA anaes Me erecta 
; KEYBOARD_BUFFER 
KANJT_KEY Eau 107 ; SCAN CODE FOR KANJI KEY 
MUHEN_KEY EQU 108 ; SCAN CODE FOR MUHENKAN KEY 
HENKAN_KEY EQU 109 ; SCAN CODE FOR HENKAN KEY 
ALPHA_KEY EQU 58 ; SCAN CODE FOR ALPHA STATE KEY 
KATAKANA_KEY EQU 10 ; SCAN CODE FOR KATAKANA STATE KEY 
HIRAGANA_KEY EQU 111 7 SCAN CODE FOR HIRAGANA STATE KEY 

BIT ASSIGHMETS FOR JKB_FLAG , 
HIRAGANA_STATE  EQU 04H ; HIRAGANA SHIFT ACTIVE 
KATAKANA_STATE EQU 02H ; KATAKANA SHIFT ACTIVE 
ZENKAKU_STATE 2 EQU 01K 3 ZENKAKU MODE 
NOT_ALPHA_STATE EQU 06H ; 
ALPHA_STATE EQU OFSH } ALPHA_STATE MASK 
ZERKAKU_CHAR EQU 05H ¢ ZENKAKU CHARACTER 

BIT ASSIGNMETS FOR JKB_FLAG_1 : 
HANKAKU_ SHIFT EQU 10H ; HANKAKU SHIFT KEY DEPRESSED 
ZENKAKU_SHIFT EQU 08H 7 ZENKAKU SHIFT KEY DEPRESSED 
HIRAGANA_SHIFT EQU 04H ; HIRAGANA SHIFT KEY DEPRESSED 
KATAKANA_SHIFT EQU 02H ; KATAKANA SHIFT KEY DEPRESSED 
ALPHA_SHIFT EQU O1H 3 ALPHA SHIFT KEY DEPRESSED 

BIT ASSIGNMETS FOR JKB_LFLAG_2 
kanst SHIFT EQU 80 3 KANJI SHIFT KEY DEPRESSED 
KNUM_SHIFT EQU SoH ; KNUMBER SHIFT KEY DEPRESSED 
MUHEN_SHIFT EQU 20H ; MUHEN SHIFT KEY DEPRESSED 
HENKAN_SHIFT EQU 10H 3; HEN SHIFT KEY DEPRESSED 
NMI_FLG EQU 04K 3 NMI ACTIVE FLAG 
INDICATOR_OFF EQU 02H ; INDICATOR ON/OFF SWITCH 
KANAKAN_OFF EQU 01H > KANAKAN ON/OFF SWITCH 
KB_BUFFER_J DW 25 DUP(?) ; ROOM FOR 24 ENTRIES 
JKB_FLAG DB ? 3 4TH BYTE OF KEYBOARD FLAGS 
JKB_FLAG_1 DB ? 3 5TH BYTE OF KEYBOARD FLAGS 
JKB_FLAG_2 DB ? 3 6TH BYTE OF KEYBOARD FLAGS 
FIRST_PTR DW ? ; USED BY BUFFER QUEING CINT 41H) 
- NEW VIDEO DATA AREA eh ee ger re eo ne 
REGEN_START equ gnsoon ; SEGMENT A ADDRESS OF REGEN 7 

F UG FLAG 
NO_ACT PAGE EQU 16 3 NUMBER OF ACTIVE PAGE 
ceraee hy 2 i CURRENT CRT MODE OF VIDEO PROCESSOR 2 
CRY MODE_SET2 DB ? 3 IMAGE OF DATA WRITTEN TO PAGREG 2 
K_IST_CHAR DW ? 1ST 
ete ? CHAR. CODE/ATTR. AT WRITE AZC IN KANA-KAN 
Wis Igy en Dw ? 1ST CHAR. CODE/ATTR. AT WRITE A/C 
ST_CHAR DW ? 
KLTTY 137 CHAR ? 1ST CHAR AT WRITE TTY 
CRT_ROWS re ? 1ST CHAR AT WRITE RRY IN KANA-KAN 
SUPTPCR a4 ? 3 CURRENT CRT COLUMN SIZE 
AC_PRESENT as LAST VALUE OF SUPERIMPOSE CONTROL REGISTER 
GCTPRESENT a ; ALTERNATE CURSOR PRESENT 
ALT_CURSOR_POSN DU i GRAPHICS CURSOR PRESENT 
CPU~PAGE Bo ALTERNATE CURSOR POSITION 
avn 8 ASTIVE Sh GAGE 
PAGE 


GCURSOR_MODE DW 
ACURSOR_MODE OW 
PALETTE_MASK DB 


KJROM_STAT 

VG_STAT Mel 
IEP_CTRL DW 
VSTACKL DB 
SS_SAVE DW 
SP_SAVE DW 
CURSOR_POSH DOW 


ORG 
BASIC_WORK oo 


ALTERNATE CURSOR MODE 

VALUE OF PALETTE MASK REGISTER 

KANJI ROM STATUS (0:0FF, 1:0N) 

VIDEO GENERATER STATUS (0:VG2, 1:¥G1) 
i INTERRUPT ENABLE PROHIBIT FLAG 

USED LEVEL OF VIDEO STACK 
; SS SAVE AREA 
SP SAVE AREA 


HDD DODD ed ed ed ed ered eden 


3 
; 
; 
; 
; 
; 
; 
; 
; GRAPHICS CURSOR MODE 
; 
: 
; 
3 
; 
v7 
a: 


3 
16 DUP (2); TEMPORARY RESERVED FOR BASIC 
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OSFB 
OSFB 
O3FC 
O3FD 
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0000 
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0002 
0004 


0005 
0006 


0008 
OO0A 
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ORG 3FBH 
VIO_PROCESS DB ? 3 VIDEO I70 IS PROCESSING 
SUPRESS_PAL DB ? 3 SUPRESS PALETTE SET DURING MODE SET 
DATA ENDS 
Jeoncwseachanewacweccenccsencs dilpiaiceiajeltoie minal Maieb aisinete! cwamsanasnaan 
; EXTRA DATA AREA : 
XXDATA SEGMENT AT 50H 
STATUS_BYTE DB ? 
e 
; THE FOLLOWING AREA IS USED ONLY burine DIAGHOSTICS 
Dep -MENU_PAGE OB 3 TO CURRENT PAGE FOR DIAG. MENU 
DCP_ROW_COL Ow ; 3 CURRENT ROW/COLUMN COORDINATES 
> FOR DIAG MENU 
WRAP_FLAG OB 2 3 INTERNALZEXTERNAL 8250 WRAP 
> INDICATOR 
MFG_TST DB 2 > INITIALIZATION FLAG 
MEM_TOT OW ? 3 WORD EQUIV. TO HIGHEST SEGMENT IN 
+ MEMORY 
MEM_DONES OW ? 3 CURRENT SEGMENT VALUE FOR 
+ BACKGROUND MEM TEST 
MEM_DONEO OW ? + CURRENT OFFSET VALUE FOR 
+ BACKGROUND MEM TEST 
INTICO DW 2 + SAVE AREA FOR INTERRUPT 1C 
3 ROUTINE 
INTICS OW ? 
MENU_UP DB z 3 FLAG TO INDICATE WHETHER MENU IS 
3 ON SCREEN CFF=YES, 0=N0) 
DONE128 DB ? 3s COUNTER TO KEEP TRACK OF 128 BYTE 
+ BLOCKS TESTED BY BGMEM 
KBDONE OW ? > TOTAL K OF MEMORY THAT HAS BEEN 
3 TESTED BY BACKGROUND MEM TEST 
poco eo e-------------- eee ea eS ape Sip ea eae 
; POST DATA AREA 
10_ ROM_INIT DW 2 3 POINTR TO OPTIONAL I70 ROM INIT 
+ ROUTINE 
TO_ROM_SEG ow 2 + POINTER TO IO ROM SEGMENT 
POST_ERR DB z 3 FLAG TO INDICATE ERROR OCCURRED 
+ DURING POST 
MODEM_BUFFER OB 9 DUPC?) 3 MODEM RESPONSE BUFFER 
+ (MAX 9 CHARS) 
MFG_RIN 3 POINTER TO MFG. OUTPUT ROUTINE 
pore renee eno o + ee eee eee Sie Sewer woee es 
; 3 
SP_ FLAG DW z 
SP_CHAR OB 7 
3 THE FOLLOWING SIX ENTRIES ARE 
+ DATA PERTAINING TO NEW STICK 
NEW_STICK_DATA DW M + RIGHT STICK DELAY 
Dw M 3 RIGHT BUTTON A DELAY 
OW ? 3 RIGHT BUTTON B DELAY 
DW ? > LEFT STICK DELAY 
OW 2 > LEFT BUTTON A DELAY 
DW bd + LEFT BUTTON B DELAY 
OW ? 3 RIGHT STICK LOCATION 
DW 2 3 UNUSED 
Ow z + UNUSED 
DW z + LEFT STICK POSTITON 


XXDATA ENDS 





VSTACK SEGMENT AT 1A0H 
oB 1536 DUPC?) 


VSTACK_TOP LABEL WORD 
VSTACK ENDS 
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PAGE ,121 
cove ss SECM Te ecereeee enter 
3 DATA SEGMENT FOR INT 17 . IKT 5 : 
j==s° <<< worcereererrre eee www ww ww eee eee ser eer wow wen errrrrr= 
3 yOOE PORT ASSIGH 100K 
= 0378 PR_DATA_PORT EQU 0378H sPRINTER 170 port 
= 0379 PRISTATUS PORT EQU 0379H 
= OS7A pPR_CMD_PORT EQU OS7AH 
* ; wee STATUS "UM 
= 0080 PR_BUSY EQU 80H ;PRINTER STATUS 
= 0020 PR_PE EQU 20H 
= 0010 PR_SELECT EQU 10H 
= 0008 PR_ERROR EQU O8H 
= 0004 PR_ATTACH EQU 04H 
= 0001 PR_TIMEOUT £QU 01H 
3 wie PRINTER ID MMM 
= 0000 NO_PRINTER EQU 0 
= 0001 prvi EQU 1 sPRINTER TYPE-I 
= 0002 PRT2 EQU 2 SPRINTER TYPE-IT 
0001 EVEN_PR FLa ass a a“ CHARACTER LINE MODE 
= 00 U 3 
= 0002 LOW_PR_FLG EQU 2 GRAPHIC IMAGE LINE MODE 
3 wUC CHARACTER SIZE Hx 
= 0000 WOR EQU 0 sNORMAL SIZE 
= 0001 BAI EQU 1 ;DQUBLE SIZE 
3 O00 FLAG 1 0008 
= 0080 TWO_BYTE_FLG EQU 80H }TWO BYTES CHARACTER CODE INDICATION 
= 0010 PRT_CHK_FLG EQU 10H SPRINTER-ID CHECK FLAG 
= 0004 F_FIG EQU 04H }ESC-F PROCESS FLAG 
= 9002 X_FLG EQU 02H sESC-X PROCESS FLAG 
= 0001 ESC_FLG EQU O1H xESC PROCESS FLAG 
3 unm FLAG 2 mun 
IGN_FLG EQU 40H ;COMMAND IGNORE INDICATION FLAG 
x9_FLG EU 20H 3ESC-X9 PROCESS FLAG 
= 0010 X6_FLG EQU 10H ZESC-X6 PROCESS FLAG 
= 9008 XS_FLG EQU 08H ZESC-X5 PROCESS FLAG 
= 0004 X3_FLG EQUu 04H SESC-X3 PROCESS FLAG 
= 0002 X2_FLO EQU 02H sESC-%2 PROCESS FLAG 
= 0001 X1_FLG EQU O1H 3ESC-x1 PROCESS FLAG 
3 1000 FLAG 3 rou 
= 0080 CHG_LPI_FLG EQU 80H ; TEMPORARY LPI CHANGE INDICATION 
= 0020 BAI_FUL_FLG EQU 20H PBAIKAKU SLICE FULL INDICATION 
= 9010 SL_FUL_FLG EQU 16H 3SLICE FULL INDICATION 
3 wwe MAX SLICE VALUE HHH 
= 0460 MAX EQU 1120 ;MAX NUMBER OF SLICES 
peanateseesee <=" mewn e nen en ene ee “3 
3 WORK AREA INT 17 3 
pases -e eS if ea sha 
2000 ac PRINTER_ID Del 1 pup (1) sL:PTRL 2:PTR2 
0001 
coe2 ac de RETURN_CODE DB 1 puP CZ") 3PRINTER STATUS 
5] 
coos ac . CPI DB 1 pup CZ") sCHAR 7 INCH 
5 
P| 
0004 oe ‘ LPI DB 1 DuP C'Z") SLINE 7 INCH 
A 
J 
000s at crL Dw 1 DUP (°2Z")  SCHAR 7 LINE 
SASA 
0007 act LPP De 1 DuP ("ZZ") LINE 7 PAGE 
SASA 
eoes ec “ PRINT_MODE DB 1 pup C°Z") «= FOsELSE AsCHAR 2: IMAGE 
] 
000A ec sie CHAR_TYPE De 1 pup C°Z") —- SUSLARGE 2:SMALL 
eeoc ac ‘i SIZE_ESC DB 1 pup (°Z") sOsMORMAL 1:DOUBLE CESCe(,)) 
J 
ee0d at “se SIZE_AH DB 1 pup (°Z")  s0:HORMAL 1:DOUBLE (AH=075) 
3 
Cee 
hE eee ccp Du ry DuP (°2Z") sCURRENT CHAR POSITION 
e010 ol C¢ 
SASA csp Dw 1 DuP ('ZZ") CURRENT SLICE POSITION 
0012 ole 
SASA CSPMAX Dal 1 pup (°ZZ") = sCURRENT SLICE MAXIMUM POSITION 


0014 
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0022 


6025 


0024 
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e028 
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oe 
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61 
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61 


61 
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e1 


81 


01 


61 


oF 


62 


SASA 


SASA 


SASA 


SASA 


SASA 


5A 


SA 


SASA 


SA 


SA 


SASA 


SA 


SA 


SA 


SASA 


SA 


SA 


SA 


SA 


SASA 


SA 


SA 


SASA 


SPSAVE 
PR_TIMEL 
PR_TIME2 
PR_TIMES 
CPIMASK 
STATUSL7 
SYSTEM_ID 
CODEN 

ML 

n2 

NIN2 
LF_cT 
SP_VALUE 
IM_MOD 
FS_N 
DYTE_ONE 
FLGL 
FLG2 
FLOS 


CSIZE 


GVALUE 


TVALUE 


UPPER 
LOWER 


15 


24 


NNN KK Oner 
“nee 


buP 


DUP 


DUP 


DUP 


DUP 


DUP 


buP 


DuP 


DUP 


DuP 


Dur 


DuP 


("22") 


C*zz") 


crzz") 


C'zz") 


C*zz*) 


cz") 


cz) 


C*zz*) 


cz") 


cz") 


C*zz*) 


c'2z") 


c*z") 


cz") 


C'zz*) 


cz) 


cz) 


cz) 


Cz") 


C°zz*) 


C2") 


c*z") 


C*22") 


3SP SAVE AREA 


sBEEP TIMER 1 


sBEEP TIMER 2 


sWAIT TIMER 


313.5 CPI ADJUST MASK 


30:MOT PROGRESS 1:IN PROGRESS 


sOO:MATIVE 20: EXTENSION 


sTHE NUMBER OF CODE 


sESCAPE PARM W1 


sESCAPE PARM N2 


sESCAPE PARM M1N2 


3LINE FEED COUNT 


sSPACING VALUE 


sTMAGE MODE 


sFONT SLICE NUMBER 


SFIRST BYTE OF TWO-BYTED CODE 


sCHARACTER SIZE WORK 


3 ~ RESERVED - 


3GRID LINE CONTROL VALUE 


VERTICAL SOLID LINE 
VERTICAL DASHED LINE 
UNDERSCORE IMAGE 

VERTICAL SKIP SIZE 

KEY OF HORIZONTAL VALUE 
UPPER VERTICAL SOLID LINE 
HORIZONTAL SKIP SIZE 
SPACE BETWEEN CHARACTERS 
CHAR TYPE CONTROL VALUE 


ee we we we we we we ee we 


3 UPPER IMAGE FLAG 
3 LOWER IMAGE FLAG 
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ec 


ect 


ort 
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ec 


ac 


ac 


Fec 


2ec 


FEC 


e476 C 


SA 


SASA 


SASA 


SASA 


SASA 


SA 


SASA 


SASA 


SA 


SASA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


SA 


4 DuP (*'Z") «5 = RESERVED - 






Jocweennnrneen eee “DUP ('zZ") sHORIZONTAL DOT SIZE 


DUP ("ZZ") SWERTICAL «DOT SIZE 





VSIZE Du 1 
HRATIO i) a pup (°2Z") sHORIZONTAL ENLARGE RATIO 
VRATIO Da 1 uP ("ZZ") SVERTICAL ENLARGE RATIO 
PAGENO DB 1 DUP ("'Z")  sACTIVE PAGE 
SPSAVES Dw 1 pup ("22") 5SP SAVE AREA FOR INT 5 
COLORTB Du 1 DUP (*ZZ") sCOLOR TABLE OFFSET 
VIDEO_MODE DB 1 DUP ("2") —- s>O2GRAPHIC <O:CHARACTER 
SLICE Dw 1 pup C°2Z")  sSLICE SIZE (16 OR 24) 
SHIFT DB 1 pup CZ") sSHIFT VALUE 
DB 1s pup (*'Z*) 5 = RESERVED - 
por DB 24 DUP (*°Z") —- SCOLOR DOT PATTERN AREA 
DB 8 puP CZ") «45 = ~RESERVED - 
‘es ca ere pe ; 
éope_purreR DD tae DUP ez) CODE «SAVE AREA 
ATTR_BUFFER DB 240 puP CZ") ~«—- SATTRIBUTE SAVE AREA 
FONT ps 32 pup (°Z*) —- BFONT IMAGE WORK AREA 
GRID DB 54 pup €°Z") GRID LINE IMAGE AREA 
DB 254 puP C'Z") 3 = RESERVED - 
CODE_INTS DB 160 DUP ("2") = 3CODE AREA FOR INT 5 
ATTR_INTS os 160 DUP CZ") SATTRIBUTE AREA FOR INT 5S 
IMAGE_BUFFER DB fie BoP eee") sEVEN DOT SAVE AREA 





XXDATA SEGMENT AT SoH 
STATUS_BYTE DB 6 
XXDATA~ EHD 


Anets lll = 
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3 COPYRIGHT NOTICE 


+ REAL SIZE 


va pa pe oe an od a 
PELE LL bladed 
. ” 
« MODULE 3 * 
" " 
PTL EL LLL LL 
PEELE LE LL 
sii 
; RON RESIDENT cope 
ea Aina cooe 
0000 er SEGMENT PUBLIC 
— : ne ote RRR TARSS o ES: NOTHING, SS: STACK 
* 9000 33 4 30 31 4A 46 DB "S6O1JF . 
€ 3S af 50 S2 1JFB COPR. IBM 1984° 
2 30 49 42 4D 20 
31°39 38 34 
sie st fee 
BEGIN¢SON 
6030 CODE ENDS . 
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ODULE 2 ™ 
AHEM ERA AI VIDEO_IO 


THESE ROUTINES PROVIDE THE CRT INTERFACE 
THE FOLLOWING FUNCTIONS ARE PROVIDED: 


CAH)=0 SET MODE (AL) CONTAINS MODE VALUE 
CALY= 0 40X25 COLOR ANK 
CALY= 1 40X25 COLOR ANK 
CALD= 80X25 COLOR ANK 
CALD= 80X25 COLOR ANK 
GRAPHICS MODES 
CALI= 4 320X200 4 COLOR (40X25 AKK) 
CAL 320X200 4 COLOR (40X25 ANK) 
640X200 2 COLOR (80X25 ANK) 
HOT VALID 
D MODES xmx 
160X200 16 COLOR (20X25 ANK) 
320X200 16 COLOR (40X25 ANK) 
640X200 4 COLOR (80X25 ANK) 
NOT VALID 
NOT VALID 
NOT VALID 
NOT VALID 
NOT VALID 
ENSION MODE uuuw 
40X11 COLOR 
40X11 COLOR 
80X11 COLOR 
80X11 COLOR 
320X200 4 COLOR (20X11 KJ) 
320X200 4 COLOR (20X11 KJ) 
640X200 2 COLOR (40X11 KJ) 
NOT VALID 
160X200 16 COLOR (10x11 KJ) 
320X200 16 COLOR (20x11 KJ) 
640X200 4 COLOR (40X11 KJ) 
640X200 16 COLOR (40X11 KJ) 


woe NOTE IF HIGH ORDER BIT IN AL IS SET, THE REGEN 
BUFFER IS NOT CLEARED. 


CAH)=1 SET CURSOR TYPE 

(CH) = BITS 4-0 = START LINE FOR CURSOR 

MH HARDWARE WILL ALWAYS CAUSE BLINK 

MH SETTING BIT 5 OR 6 WILL CAUSE ERRATIC 
BLINKING OR NO CURSOR AT ALL 

uM IN ARK GRAPHICS MODES, BIT 5 IS FORCED ON TO 
OISABLE THE CURSOR 

(CL) = BITS 4-0 = END LINE FOR CURSOR 


CAH)=2 SET CURSOR POSITION 
CDH,DL) = ROW,COLUMN (0,0) IS UPPER LEFT 
(BY) = PAGE NUMBER (MUST BE 0 FOR GRAPHICS MODES) 


CAHJ=3 READ CURSOR POSITION 


(BH) = PAGE NUMBER (MUST BE 0 FOR GRAPHICS MODES) 
ON EXIT (DH,DL) = ROW,COLUMN OF CURRENT CURSOR 
CCH,CL) = CURSOR MODE CURRENTLY SET 


(AH)=4 READ LIGHT PEN POSITION 
N EXIT: 


wn 


NOw 


mis 


MRM KA 


OOOO eee re epererererel - Leterey 


RRR RAR RAR AR RAR ZAR ARARRA 


Pr rrrrrrrrcr>r>>rr>r> 
bh a nt eh Eh 


eee te te ee eae uty a ee ee tee 


el anl ond aed aed and eal endl andl andl aul and 
FPOKVUAUSUNKOANMOOW> woe 


0 -- LIGHT PEN SWITCH NOT DOWN/NOT TRIGGERED 

1 =~ VALID LIGHT PEN VALUE IN REGISTERS 
CDH,»DL) = ROW,COLUMN OF CHARACTER LP POSN 
CCH) = RASTER LINE (0-199) 

(BX) = PIXEL COLUMN (0-319.639) 


CAHD=5 SELECT ACTIVE DISPLAY PAGE (VALID ONLY FOR ALPHA MODES) 
CAL)=NEW PAGE VALUE (0- 7 FOR MODES 081 , 0-3 FOR MODES 283 
O-15 FOR MODES 10811, 0-7 FOR MODES 12813) 


IF BIT 7 (80H) OF AL=1 
READ/WRITE CRI/CPU PAGE REGISTERS 
CAL) = 80H READ CRIVCPU PAGE REGISTERS 
CAL) = 81H SET CPU PAGE REGISTER 
(BL) = VALUE TO SET 
(CL) = CRT MODE TO SET 
CAL) 2 82H SET CRT PAGE REGISTER 
(BH) = VALUE TO SET 
CAL) = 83H SET BOTH CRT AND CPU PAGE REGISTERS 
(BH) = VALUE TO SET IN CRT PAGE REGISTER 
(BL) = VALUE TO SET IN CPU PAGE REGISTER 
(CL) = CRT MODE TO SET 
IF BIT 7 (80H) OF AL=1 
ALWAYS RETURNS (BH) = CONTENTS OF CRT PAGE REG 
(BL) = CONTENTS OF CPU PAGE REG 
MMM NOTE CRIZCPU PAGE 0-8 MEANS MAIN RAM, AND 
9-A MEANS VIDEO RAM. 


CAH)=6 SCROLL ACTIVE PAGE UP 
CAL) = NUMBER OF LINES, INPUT LINES BLANKED AT 
BOTTOM OF WINDOW, AL = 0 MEANS BLANK 
ENTIRE WINDOW 
CL) = ROW,COLUMN OF UPPER LEFT CORNER OF SCROLL 
DL) = ROW,COLUMN OF LOWER RIGHT CORNER OF SCROLL 
= ATTRIBUTE TO BE USED ON BLANK LINE 


} 

OLL ACTIVE PAGE DOWN 

> 5 NUMBER OF LINES, INPUT LINES BLANKED AT TOP 
OF WINDOW, AL=0 MEANS BLANK ENTIRE WINDOW 


(AN) =7 


0 me we we 
. 0 Oe Be We we Be we WF we we He OF OF OF Oe Ue BF Oe BE OF BF Be we Be we we Be Oe He OF Be Be Ee te we Oe Oe tet 
De we Oe We we we Be we Oe we UF BF we we Be Be Be Fr Be BF Oe Be OF OF OF Be Bs OF Oe Oe 
Wee we we Oe Oe we we we Oe we Be Oe Oe we we Be Be Oe We we He Oe Be Oe Be Be we we Oe Be 
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oe Sees. ~ . wee 
wea cso Se 0 Wo: 0i0 09 8 9:00 'SF' OT OF SoS OORT OF WO OH Sn Se en's Osis We Oe We we We we we We we we Os we Be We Be we Oo Oe Oe Oe be Oe Rr ee Be Oe Oe he Oe Oe be OF Oe OP Oe OF OF TE OF OF OF we te OF OF Or Oe OF Os Oe Oe Ue OF On We Oe Be EF TPE Te we Te we wr Oe OP OP OP NP WY OP ~ 


ROW, COLUMN OF UPPER LEFT CORNER OF SCROLL 
: ROW, COLUMN OF LOWER RIGHT CORNER OF SCROLL 
) ATTRIBUTE TO BE USED ON BLANK LINE 


CHARACTER HANDLING ROUTINES 
CAH) = 8 READ ATTRIBUTE/CHARACTER AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE (VALID FOR ALPHA MODE) 
CALS = CHAR READ 
= ATTRIB OF CHARACTER READ (ALPHA MODES AND 
a alaicinaaei . KANJI GRAPHICS MODE) 


? 


c 
DL? 


wu 


ne 


(CH 
(DK 
(BH 


MM MOTE MH 
IN KANJI GRAPHICS MODE, CODE AND ATTRIBUTE ARE ASSURED 
ONLY WHEN CPU PAGE IS NOT SWITCHED. 


TH ANK orerniee MODE, CHARACTER CODE 81H-9FH,EOH-FCH IS READ 
A 


CAH) = 9 WRITE ATTRIBUTE/CHARACTER AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE (VALID FOR ALPHA MODES ONLY) 
(CX) = COUNT OF CHARACTERS TO WRITE 
CAL) = CHAR TO WRITE 
(BL) = ATTRIBUTE OF CHARACTER C(ALPHA)/COLOR OF 
CHARACTER (GRAPHICS). SEE NOTE ON WRITE 
DOT FOR BIT 7 OF BL = 1. 
CAH) = 10 (OAH) WRITE CHARACTER ONLY AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE (VALID FOR ALPHA MODES ONLY) 
(CX) = COUNT OF CHARACTERS TO WRITE 
CAL) = CHAR TO WRITE 
(BL) = COLOR OF CHAR (GRAPHICS) 


SEE NOTE ON WRITE DOT FOR BIT 7 OF BL = 1. 


FOR READ/WRITE CHARACTER INTERFACE WHILE IN GRAPHICS MODE, 

THE CHARACTERS ARE FORMED FROM A CHARACTER 

GENERATOR IMAGE MAINTAINED IN THE CHARACTER GENERATER ROM. 
FOR WRITE CHARACTER INTERFACE IN GRAPHICS MODE, THE 

REPLICATION FACTOR CONTAINED IN (CX) ON ENTRY WILL 

PRODUCE VALID RESULTS ONLY FOR CHARACTERS 

CONTAINED ON THE SAME ROW. CONTINUATION TO 

SUCCEEDING LINES WILL NOT PRODUCE CORRECTLY. 


GRAPHICS INTERFACE 
CAH) = 11 COBH) SET COLOR PALETTE 
(BH) = PALETTE COLOR ID BEING SET (0-127) 
(BL) = COLOR VALUE TO BE USED WITH THAT COLOR ID 
COLOR ID = 0 SELECTS THE BACKGROUND 
COLOR (0-15) 
COLOR ID = 1 SELECTS THE PALETTE TO BE 
USED: 
2 COLOR MODE: 
0 = WHITE FOR COLOR 1 
1 = BLACK FOR COLOR 1 
4 COLOR MODES: 
0 = GREEN, RED, BROWN FOR 
COLORS 1,2,3 
1 = CYAN, MAGENTA, WHITE FOR 
COLORS 1,2,3 
8 COLOR MODES: 
ALWAYS SETS UP reels AS: 


BLUE FOR COLOR 1 
GREEN FOR COLOR 2 
CYAN FOR COLOR 3 
RED FOR COLOR §% 
MAGENTA FOR COLOR 5 
BROWN FOR COLOR $ 


LIGHT GRAY FOR COLOR 
16 COLOR MODES: 
ALWAYS SETS UP PALETTE AS: 


BLUE FOR COLOR 
GREEN FOR COLOR 
CYAN FOR COLOR 
RED FOR COLOR 
MAGENTA FOR COLOR 
YELLOW FOR COLOR 
LIGHT GRAY FOR COLOR 
DARK GRAY FOR COLOR 


LIGHT BLUE FOR COLOR 
LIGHT GREEN FOR COLOR 
LIGHT CYAN FOR COLOR 
LIGHT RED FOR COLOR 
LIGHT MAGENTA FOR COLOR 
LIGHT YELLOW FOR COLOR 
WHITE FOR COLOR 
IN 40X25 OR 80X25 ALPHA MODES OR 40X11 OR 80X11 
KANJI MODES, THE VALUE SET 
FOR PALETTE COLOR 0 INDICATES THE BORDER 
COLOR TO BE USED. IN GRAPHIC MODES, IT 
INDICATES THE BORDER COLOR AND THE 
BACKGROUND COLOR. 


CAH) = 12 (OCH) WRITE DOT 

(DX) = ROW HUMBER 

(CX) = COLUMN NUMBER 

CAL) = COLOR VALUE 
IF BIT 7 OF AL = 1, THEN THE COLOR VALUE IS 
EXCLUSIVE OR'D WITH THE CURRENT CONTENTS OF THE DOT 


CAH) = 13 (ODH) READ DOT 
(DX) = ROW NUMBER 
(CX) = COLUMH NUMBER 
CAL) RETURNS THE DOT READ 


WPUNK OWN FUNSUNE 


oe ee 


wud 
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$ ASCII TELETYPE ROUTINE FOR OUTPUT 

3 CAH) = 14 (OEH) WRITE ere TO ACTIVE PAGE 

3 CAL) = CHAR TO WRIT 

3 (BL) = FOREGROUND COLOR IN GRAPHICS MODE 

s MOTE ~- SCREEN WIDTH IS CONTROLLED BY PREVIOUS 
3 MODE SET 

3 

3 CAH) = 15 (OFH) CURRENT VIDEO STATE 

3 RETURNS THE CURRENT VIDEO STATE 

3 CAL) = MODE CURRENTLY SET (SEE AH=0 FOR ali 
3 CAH) = NUMBER OF CHARACTER COLUMNS ON SCREE 

3 (BH) = CURRENT ACTIVE DISPLAY PAGE 

3 

3 CAH) = 16 CLOH) eae PALETTE REGISTERS 

3 CAL) = SET PALETTE REGISTER 

; atte = PALETTE REGISTER TO SET (OOH - OFH) 
3 (BH) = VALUE TO SET 

3 CAL) = 1 SET BORDER ete REGISTER 

3 (BH) = VALUE TO SET 

3 CAL) = 2 a Le PALETTE REGISTERS AND BORDER 

3 R 

; ES:DX POINTS TO A 17 BYTE LIST 

3 BYTES 0 pone 15 ARE VALUES FOR PALETTE 
3 GISTERS 0 THRU 1 

3 “BYTE 16 is THE VALUE FOR THE BORDER 

3 REGISTER 

3 

3 CAH) = 17 (11H) RESERVED 

3 CAH) = 18 (12H) RESERVED 

8 

3 CAH) = 19 (13H) REQUEST FONT PATTERN 

3 RETURNS THE REQUESTED FONT PATTERN IN USER AREA 
3 CAL)=0 REQUEST BASE-FONT 

3 CAL)=80H REQUEST BASE-FONT WITH FULL CHARACTER BOX 
3 

3 CAL)=60H WRITE FONT PATTERN FROM USER AREA 10 GAIJI RAM 
3 (CX) = INTERNAL CODE FOR REQUESTED FONT 

3 OR HANKAKU-FONT (CH)=0 

3 CES:BX) = DATA AREA FOR FONT 

; NORMAL-BOX FULL-BOX 

3 “16X16 5 32 BYTE 36 BYTE 

; “16X8 =; 16 BYTE 18 BYTE 

° 

; CAH) = 20 (14H) SUPERIMPOSE SCREEN 

3 CAL) = 0 SET MODE 

3 (BH)= 0-3 NOT VALID 

; (BH)= 320X200 4 COLOR (40X25 ANK) 
; CBH)= 5 320X200 4 COLOR (40X25 ANK) 
3 CBH)= 6 640X200 2 COLOR (80X25 ANK) 
3 (BH)= 7 NOT VALID 

3 CBH)= 8 160X200 16 COLOR (20X25 ANK) 
s (BH)= 9 320X200 16 COLOR (40X25 ANK) 
; CBH)= A 640X200 4 COLOR (80x25 ANK) 
; (BH)= B-23 KOT VALID 

3 CBHD=214 320X200 4 COLOR (20x11 KJ) 
3 (BHY=15 320X200 4 COLOR (20x11 KJ) 
3 (BH)=16 640X200 2 COLOR (40x11 KJ) 
3 (BH)=17 NOT VALID 

3 (BH)=18 160X200 16 COLOR (10X11 KJ) 
; CBHY=19 320X200 16 COLOR (20x11 KJ) 
; CBHD=1A 640X200 4 COLOR (40x11 KJ) 
3 

Hy mum NOTE IF HIGH ORDER BIT IN AL IS SET, THE REGEN 
3 BUFFER IS NOT CLEARED. 

3 

3 CAL) = 1 SET a raer eae 

3 (BH)= 

3 (BH)= : One 

y CAL) = ’ aise 6 pecres  douace 

3 = 

3 CAL) = 3 SET TRANSPARENT PALETTE 

3 (BH) = PALETTE REGISTER NUMBER 

; CAL) = 4 SET SUPERIMPOSE MODE 

3 (BH) = 0 PRI (PRIORITY) 

3 (BH) = 1 XOR 

3 (BH) = 2 AND 

; (BH) = 3 OR 

3 CS,SS.DS.ES,BP,DI,SI,BX,CX, DX PRESERVED DURING CALL 

3 AX IS DESTROYED 


3 VIDEO GATE ARRAY REGISTERS 


3 PORT SDA OUTPUT 

3 

3 “ VIDEO PROCESSOR 1 (MAIN RAMI VRAML) ¥& VIDEO PROCESSOR 2 (VIDEO RAM: VRAM2) 
3 

3 REG 0 MODE CONTROL 1 REGISTER MODE pale ht 1 REGISTER 

3 01H +HI BANDWIDTH/-LOW BANDWID 

3 02H *GRAPHICS/-ALPHA *GRAPHICS/CALPHA 

4 04H RESERVED RESERVED 

3 08H +VIDEO ENABLE +VIDEO ENABLE 

3 10K +16 hag GRAPHICS +16 evens GRAPHICS 

3 20H RESERV RESERV 

3 40H RESERVED *KANJI “RODE 

5 80H RESERVED *640X200 16 COLOR GRAPHICS 
3 

3 REG 1 PALETTE MASK SETSTER PALETTE MASK REISTER 

3 O1H PALETTE MASK PALETTE MASK 0 

3 02H PALETTE MASK 1 PALETTE MASK 1 

H 04H PALETTE MASK 2 PALETTE MASK 2 

3 08H PALETTE MASK $ PALETTE MASK 3 

3 10K RESERVED *VRAM-1 ENABLE 
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nononnonen 


RESET REGISTER 


RESERVED 

RESERVED 

RESERVED 

BORDER COLOR REGISTER 
BLUE 
GREEN 
RED 
INTENSITY 


MODE CONTROL 2 REGISTER 
RESERVED -- MUST BE ZERO 
+ENABLE BLINK 

RESERVED -- MUST BE ZERO 
#2 COLOR GRAPHICS 
(640X200 2 COLOR ONLY) 
RESERVED 

RESERVED 

RESERVED 

RESERVED 


+VRAM-2 ENABLE 
*HIGH RESOLUTION ENABLE 
+HIGH/-LOW FREQUENCY DISPLAY 


BORDER COLOR REGISTER 


MODE CONTROL 2 REGISTER 
RESERVED -- MUST BE ZERO 
+ENABLE BLINK 
RESERVED -- MUST BE ZERO 
+2 COLOR Preps $ 

(640X200 2 COLOR ONLY) 
RESERVED 
RESERVED 
RESERVED 
RESERVED 


RESET REGISTER 


*ASYNCHRONOUS RESET 


+SYNCHRONOUS RESET 


TRANSPARENT PALETTE 
SELECT 0 


SELECT 1 
SELECT 2 
SELECT 3 


SUPERIMPOSE CONTROL REGISTER 


+FORE=V-RAM, BACK=MAIN-RAM 
+TRANSPARENT ON 
MODE CONTROL 1 
MODE CONTROL 2 


REGS 10 TO 1F PALETTE REGISTERS 
01H BLUE 


GREEN 
RED 
INTENSITY 


VIDEO GATE ARRAY STATUS 
PORT SDA INPUT 


HALFTONE 
HT_FONT 

TRUE 

FALSE 
GRAPHICS 
KJGRAPH 
KJ_MODE 
VIDEO 
KEYBORD 
DEFAULT_MODE 


PORT_B_ALPHA 
EXP 64K 


PCMODE1 
VIDEOENB 


PCPALETM 
PCBORD 
INTSEL 
PCMODE2 
PCRESET 
SYNCRST 
PCTRPALT 
PCSUPER 
PCPALET 


FOREVRAM 
TRANSON 


SX2STAT 
VERTRET 
LPENSW 

LPENTRG 


IXMODE1 
IXPALETM 
VRAMIENB 
IXBORD 
IXMODE2 
IXRESET 
IXPALET 


S8KJROM 
S8VRAML 
S8VRAMZ 


+DISPLAY ENABLE 

+LIGHT PEN TRIGGER SET 
“LIGHT PEN SWITCH MADE 
+VERTICAL RETRACE 
*VIDEO DOTS 


RESERVED 
RESERVED 
RESERVED 
RESERVED 


RESERVED 
RESERVED 
RESERVED 
RESERVED 


PALETTE REGISTERS 


EQu ODH 3 CARTOGE RETURN 

EQU OAH 3 LINE FEED 

EQU 7 ; BEEP 

EQU 8 3 BACK SPACE 

EQU OAOH 3 CODE OF HALF TONE 

EQU OAASSH AND 7F7FH ; FONT PATTERN OF HALF TONE 
EQu OFFFFH 

EQU 0 

EQu 4 3 GRAPHICS MODE 

EQU 14H 3 KANJI GRAPHICS MODE 

EQU 10K 3 KANJI MODE 

EQU 10H 3 VIDEO INTERRUPT 

EQU 16H + KEYBORD INTERRUPT 

EQU KJ_MODE ; DEFAULT MODE 

EQU 04H 3 PORT_B ALPHA MODE 

EQU 08H 3 64K MAIN RAM EXPANTION CARD INSTALLED 
EQU OCH } PC-J MODE CONTROL 1 

EQU 08H 3 VIDEO ENABLE 

EQU 01K 3 PC-J PALETTE MASK 

EQU 02H 3 PC-J BORDER COLOR 

EQU 08H 3 INTENSITY BIT FOR PALETTE 
EQu 03H 3 PC-J MODE CONTROL 2 

EQU 04H 3 PC-J RESET 

EQU 02H 3 SYNCHRONOUSE RESET 

EQU 05H 3 PC-J TRANSPARENT PALETTE 
EQuU 06H 3 PC-J SUPERIMPOSE REGISTER 
Equ 10H 3 PC-J PALETTE REGISTER 

EQU 01H 5 V-RAM IS FOREGROUND 

EQu 02H 3 TRANSPARENT ON 

EQU OOH 3 PC-J S$X-02 STATUS REGISTER 
EQU 08H + VERTICAL RETRACE 

EQU 04H } ~LIGHT PEN SWITCH MODE 

EQu 02H 3 LIGHT PEN TRIGGER SET 

EQu 00H 3 PC-J MODE CONTROL 1 

EQU o1H 3 PC-J PALETTE MASK 

Equ 10H 3 VRAM 1 ENABLE 03705 
EQU 02H 3 PC-J BORDER COLOR 

EQu O3H 3 PC-J MODE CONTROL 2 

EQU 04H 3 PC-J RESET 

EQu 10H 3 PC-J PALETTE REGISTER 

EQu 07H 3 $X-08 KANJI ROM AND GAIJI RAM 
EQu 09H 3 S$X-08 VIDEO RAM (SHARED) 
EQUu OAH 3 SX-08 VIDEO RAM (SEPARATED) 


unnwn 


auenn wn 


id 


au 


Ce ee 


S8SXO2A 
S8SX02B 


ON 
MEM 
AKJROM 


AVRAML 
AVRAM2 


A6845 
SXO8BASE 
APOCON 
S2ABASE 
S2BBASE 


KJROM_OFF 


VRAM2_ON 


SXO2A_OFF 
SXO2A_ON 
SX02B_OFF 
SX02B_ON 


KJMASKL 


8CH 
8DH 


80H 


20H 
08ccoH 


OBSO00H 
OBS00H 


ON OR 
ON OR 
O7FH 


3 $X-08 SX-02A PC-J VIDEO 
3 SX-08 SX-02B JX VIDEO 


3 ENABLE BIT 

3 MEMORY BIT 

3 KANJI ROM ADDRESS 
, 

3 


VIDEO RAM 1 ADDRESS 
VIDEO RAM 2 ADDRESS 


AND 1FH 3; 32K MEMORY RANGE SELECT 
AND 1FH ; 64K MEMORY RANGE SELECT 
AND 1FH 3 128K MEMORY RANGE SELECT 
AND 1FH ; 256K MEMORY RANGE SELECT 


3 WRITE ENABLE BIT 
3 READ ENABLE BIT 
0s; FULL DECODE 


3 170 ADDRESS OF 6845 

+ 170 ADDRESS OF I70 ADDRESS CONTROLLER 
3 170 ADDRESS OF PALETTE AND SUPERIMPOSE CONT. 
3 I70 ADDRESS OF VIDEO PROCESSOR 1 

+ 170 ADDRESS OF VIDEO PROCESSOR 2 
AKJROM/800H 3 TURN OFF KANJI ROM 
KJROM_OFF 3 TURN ON KANJI ROM 
AVRAM1/800H 3 TURN OFF VIDEO RAM 1 
VRAM1_OFF 3 TURN ON VIDEO RAM 2 
AVRAM2/7800H 3 TURN OFF VIDEO RAM 2 
VRAM2_OFF 3 TURN ON VIDEO RAM 2 
S2ABASE/8 3 TURN OFF SX-02 A 
SXO2A_OFF 3 TURN ON SX-02 A 
S2BBASE/78 3 TURN OFF SX-02 B 
SX02B_OFF 3 TURN ON SX-02 B 


3_ MASK PATTERN FOR LEFT PART OF 16X16 FONT 


EQU 0 
WHITE _BOX EQU (9874H ™ 2) AND SFFFH OR 8000H ;KJ-ROM SEG.ADDRESS OF WHITE BOX CHA 


JISI_L 
JISITH 


ROSS_L_LOW 
ROSS_L_HIGH 
ROSS_U_LOW 
ROSS_U_HIGH 


RROSS_L_LOW 
RROSS_L_HIGH 
RROSS_U_LOW 
RROSS_U_HIGH 


S_RAM 
EXT_CHAR_L 
EXT_CHAR_H 


ZENBIT 
ZEN2BIT 
HAN_MASK 
ZEN2_MASK 
ZEROCOL 


XOR_BIT 
KKN_OFF 
KKNI_OFF 
KKNI_ON 
INDICATOR_ON 
KKN_TERM 


DISABLE_NMI 
ENABLE_RMI 
VRAM2_PAGE 
PCB_MASK 


ROW_KJ 
ROW_ANK 


CBOX_ROW 


BLOCK_CURSOR 
UNDER_CURSOR 


VIO_LOCAL 
VACT_PG 
VCRS_POS 


VKK_FLAG 
VKJ_STAT 


VGC_ON 
VVI0_ON 


EQU 
EQU 


EQu 
EQu 


Equ 
EquU 


08140H ; LOW BOUND OF JIS 1 CHARACTER 
09872H+1; HIGH BOUND OF JIS 1 CHARACTER 
+ 1 FOR SPECIAL CHARACTER FOR KANA-KANJI CONV. 
8440H 3 LOW BOUND OF ROSSIAN LOWER CHARACTER 
8460H s HIGH BOUND OF ROSSIAN LOWER CHARACTER 
8470K $s LOW BOUND OF ROSSIAN UPPER CHARACTER 
84691H 3 HIGH BOUND OF ROSSIAN UPPER CHARACTER 
8100H 3 LOW BOUND OF ROSSIAN LOWER REGEN CODE 
8120H + HIGH BOUND OF ROSSIAN LOWER REGEN CODE 
8200H 3 LOW BOUND OF ROSSIAN UPPER REGEN CODE 
8221n 3 HIGH BOUND OF ROSSIAN UPPER REGEN CODE 
2048 3 SIZE OF STATIC RAM (FOR eon CHARACTER) 
OFO40H 3; LOW BOUND OF EXTERNAL CHARACTE 
EXT_CHAR_L+#S_RAM/32-2 ; HIGH BOUND OF EXTERNAL CHARACTER 
80H 3s ZENKAKU BIT 
08H 3 ZENKAKU 2ND BIT 
CNOT ZENBIT) AND (NOT ZEN2BIT? AND OFFH ; HANKAKU MASK 
seer OR ZEN2BIT MASK OF 2ND i ZENKAKU 
3 ZERO COLUMN FLAG USED IN W_AIST_c 
3 BIT 8 OF 1ST BYTE OF 2 BYTE cOBE” ts ALWAYS 1 
80H 3 X*OR WRITE IN GRAPHICS WRITE 
0702H 3 KANA~KAN DISABLE 
0703H 3 KANA-KAN & INDICATOR DISABLE 
0700H 3 KANA-KAN & INDICATOR ENABLE 
0701H 3’ INDICATOR ENABLE 
853FH 3 KANA-KAN TERMINATE 
10H 3 DISABLE NMI 
80H 3 ENABLE NMI 
8 $s PAGE NUMBER OF V-RAM 2 
O7FFH 3 MASK FOR PESUDO CODE BUFFER POINTER 
Ai-i-1 5 ROW NUMBER OF KJ MODE 
25 - 1 5 ROW NUMBER OF AN MODE 
18 3 ROW NUMBER OF KANJI CHARACTER BOX 
CBOX 3 BLOCK CURSOR 


COBOR. ROW=2)¥2564(CBOX_ ROW-2) 3 UNDER CURSOR 
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3 STACK FRAME BASE FOR SET RETURN PARAMETER 
FRAME OFFSET OF DI 
FRAME OFFSET OF SI 
FRAME OFFSET OF BX 
FRAME OFFSET OF CX 
FRAME OFFSET OF DX 
FRAME OFFSET OF DS 
FRAME OFFSET OF ES 


LOCAL AREA SIZE OF VIDEO I0 

ACTIVE PAGE 

CURRENT CURSOR POSITION 

KANA KANJI CONV. FLAG 

KJ-ROM STATUS (O:OFF, 1:0N) 

VIDEO GENETATER STATUS(O:VG2, 1:VG1) 
GRAPHICS CURSOR STATUS 

VIDEO I70 STATUS 


+++ 
NEOAFFNOG 


ee ee 
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SuP_LOCAL EQu 6 3 LOCAL AREA SIZE OF SCROLL UP 
= 0006 $UC_MODE EQU 0 3 CRT MODE 
= 0000 SU_ULR EQU 1 + ROW OF UPPER LEFT 
= 0001 SU_TSR EQu 2 3 TOP OF SOURCE ROW 
= 0002 SU_ES1 Equ 4 3 SEGMENT ADDRESS OF VRAM-1 
= 000 
SDN_LOCAL EQU 6 + LOCAL AREA SIZE OF SCROLL DOWN 
= 0006 5DC_MODE EQU 0 + CRT MODE 
= 0000 sp_CRR EQU 1 3 ROW OF LOWER RIGHT 
= 0001 $D_BSR EQU 2 + BOTTOM OF SOURCE ROW 
S ee $D_ES1 EQU 4 + SEGMENT ADDRESS OF VRAM-1 
= 1goKe RAC_LOCAL Equ 16 + LOCAL AREA SIZE OF READ AC CURRENT 
W_LOCAL EQU “ 3 LOCAL AREA SIZE OF WRITE AC/C CURRENT 
z soze GH_LOCAL Equ 18 3 LOCAL AREA SIZE OF GRAPHICS WRITE 
3 site SAC_LOCAL EQU 28 + LOCAL AREA SIZE OF SET ALT CURSOR 
Et WGPOSN EQu 0 3 GRAPHICS WRITE POSITION 
= 9002 WPOSN EQu 2 + WRITE POSITION 
= 0004 W2CODE Equ 4 + 2ND BYTE CODE 
= 9005 W2ATTR EQU 5 + 2ND BYTE ATTRIBUTE 
= 0006 WR_SEG EQu 6 3 REGEN SEGMENT 
= 0008 WGHODE EQU 8 3 GRAPHICS MODE FLAG 
= 0009 WC_MODE EQu 9 3 CRT_MODE 
= 000A WFONT Equ 10 3 FONT PATTERN 
= 000F KJ_OFF EQu OOFH 3 MASK FOR CRT MODE 
= 9020 CURSOR_DISABLE EQU H 3 CURSOR DISABLE BIT 
= SFFF GCURSOR_MASK Equ SFFFH 3 MASK FOR GRAPHICS CURSOR 
= 0001 VG1_ON EQU 1 3 VIDEO GENERATER 1 IS ON 
= 9000 VG2_0N EQU 0 3 VIDEO GENERATER 2 IS ON 
= 9002 VG12_0N EQU 2 3 VIDEO GENERATER 1 AND 2 ARE ON 
= 0001 PS_PROCESS EQu 1 3 PRINT SCREEN IS PROCESSING 
= 8000 REGEN_SIZE Equ O8000H + SIZE OF REGEN 
= 00a0 P_CODE_START EQU OOOAOH 3 SEGMNT ADDRESS OF PESUDO REGEN 
= 0800 PLCODE_SIZE EQu 2048 + SIZE OF PESUDO REGEN 
Joeeene--------- wonee- eronn---- VIDEO RAM ------ ermeee nce nen nn------ - 
0000 VIDEO_RAM SEGMENT AT REGEH_STARY 
ooo seco CO D REGEN_SIZE DUPC(?) 
ny ay 
8000 VIDEO_RAM ENDS 
peornr rer nore cen n------- ~----- PESUDO CODE BUFFER ---~--------------- 
0000 P_CODE_BUFFER SEGMENT AT P_CODE_START 
0000 e8co C DB P_CODE_SIZE DuP(?) 
9 
] 
0800 P_CODE_BUFFER ENDS 
goooee eee neem nnn n nee e------- ~~ INDETERMINATE DS, ES ------------ coon 
6000 INDETERMINATE SEGMENT 
0000 INDETERMINATE ENDS 
ASSUME CS:CODE, DS: INDETERMINATE, ES: INDETERMINATE 
0000 VF_TABLE LABEL WORD + TABLE OF ROUTINES WITHIN VIDEO 170 
0000 o2zD1 R Did OFFSET SET_MODE s AH = 0 
0002 OSCC R DW OFFSET SET_CTYPE + AH = 2 
0006 0689 R DW OFFSET SET_CPOS + AH = 2 
0006 = O6EE R DW OFFSET READ_CURSOR 3 AH = 3 
0008 O716 R DW OFFSET READ_LPEX 3s AH = 6 
000A O7FF R DW OFFSET ACT_DISP_PAGE SAH = 5 
000C O97B R DW OFFSET SCROLL_UP 3 AH = 6 
OOOE oB70R Du OFFSET SCROLL_DOWK 3 AH = 7 
0010 oDaD R DW OFFSET READ_AC_CURRENT 3; AH = 8 
0012 =OF32 R DW OFFSET WRITE_AC_CURRENT 3 AH = 9 
0016 OFS6 R Did OFFSET WRITE_C_CURRENT 3 AH = A 
0016 16C1 R DW OFFSET SET_COLOR 3 AH = B 
0018 1760 R DW OFFSET WRITE_DOT 3 AH = C 
COLA 185B R Du OFFSET READ_DOT 3 AH = D 
bole 18B0 R Did OFFSET WRITE_TTY sp ARE E 
OO1E 19CA R Did OFFSET VIDEO_STATE + AH = F 
tose, eee ® DW OFFSET SET_PALLETTE i AH = 10 
tee oes DW OFFSET NO_OPERATION + AH = 11 
Seee taza f DW OFFSET NO_OPERATION b AH = 12 
0028 icee e DW OFFSET FONT_PATTERN + AH = 13 
R DW OFFSET SUPERIMPOSE 3 AH = 14 
002A 1E2A R 2 
ry Dw OFFSET SET_ALT_CTYPE 3 AH = 81 
sere teee © DW OFFSET SET-ALT~CPOS 3; AH = 82 
0030 1ns2R Dk OFFSET READ_ALT_CURSOR 3 AH = 83 
0032 1052 R DW OFFSET NO_OPERATION 3 AH = 84 
0034 1A52 R DW OFFSET NO OPERATION 3 AH = 85 
6036 1a52R DW OFFSET NO_OPERATION 3 AH = 86 
0038 oDsD R DW OFFSET NO_OPERATION 3 AH = 87 
OOSA 1EEB R OW OFFSET READ_AC_CURRENT 3 AH = 88 
0o3C 1EFDR DW OFFSET K_WRITE_AC_CURRENT + AH = 89 
OOSE ias2R Dw OFFSET K_WRITE_C_CURRENT 3 AH = BA 
0060 1452 2 Ow OFFSET WO_OPERATION 3 AH = 8B 
0062 1452 R ow OFFSET HO_OPERATION 3 AH = BC 
0066 «IFOF R Du OFFSET WO_OPERATION + AH = 8D 
Dw OFFSET K_WRITE_TTY 3 AH = 8E 
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= 00466 


0046 
0046 
0047 


0048 
0049 


Q04A 


FB 
Fc 


55 
1E 


13.) 


1BE4 R 


06 
12 


D5 
16 
26 


0357 R FF 


0358 R 
OS5SA R 


---- R 
DS 
0600 R 


06 


0357 R 


1BEC R 


Ec 
Ec 


46 


OA 


0¢ 00 


O353 R 
46 05 


O35¢R 


46 


06 


OSFB R 
46 08 


OE 


FC 
SF 
Ec 


FC 
33 


FC 
2e 


OSFB R FF 


6c 


18 


22 


OS4a R 


87 
46 


O35C R 
02 


0340 


O33E R 


O340 R 


26 
66 


46 


0349 R 
07 


04 FF 


SE 0062 R 


c4 
Eq 
£0 
FO 


0046 
os 


VIO0: 


VIL: 
VI2: 


VFT_LEND EQU 
VIDEO_IO 
ST 


CLD 


PUSH 
PUSH 


CALL 


CALL 


TEST 
JINZ 


MoV 
MoV 
MOV 
MoV 
MOV 
mov 
INC 
CALL 


SUB 
MOV 


MoV 


MOV 
xOR 


Mov 


CMP 
JB 


6-VF_TABLE 
PROC NEAR 


BP 
DS 


DDS 
ASSUME 


DISABLE_INT 
VSTACKL, TRUE 
VIo0o 

BP,SS 

SS_SAVE,SS 
SP_SAVE,SP 

BP, VSTACK 

SS,BP 

SP.OFFSET VSTACK_TOP 
BYTE PTR VSTACKL 
ENABLE_INT 
SP,VIO_LOCAL 

B P 


DS:DATA 


INTERRUPTS BACK ON 
SET DIRECTION FORWARD 


3 SAVE BP 
3 SAVE DS 


3 POINT BIOS DATA AREA 


wee 


DISABLE INTERRUPT 
VSTACK IS ALREADY USED ? 
YES 


~ 


we we 


SAVE STACK SEGMENT 

SAVE STACK POINTER 

SETUP NEW STACK SEGMENT 
SETUP NEW STACK POINTER 
INCREMENT VIDEO STACK LEVEL 
ENABLE INTERRUPT 


ALLOCATE LOCAL WORK AREA 
ASSIGN BP AS FRAME POINTER 


Be ee we 


wee 


a 


woes 


SAVE SEGMENT REGISTERS 


3 SAVE AX VALUE 


AX 
BYTE PTR (BP+VKK_FLAG],FALSE 3 CLEAR KANA KANJI FUNCTION FLAG 


AL, KJROM_STAT 
CBP¢VKJ_STAT).AL 


AL,VG_STAT 
UBP4VVG_STATJ,AL 


AL.VIO_PROCESS 


(BP+VVIO_ONJ,AL 
VIO |_PROCESS, TRUE 


AH,81H 

vI2 

AH, 81H-14H-1 

AH,84H - (81H-14H-1) 
VIl 


AH,8EH ~ (81H-14H-1) 
v1 


ax 

BX 

BH 

BL ACTIVE_PAGE 
CBP+VACT_PGJ, BX 
AX, ALT_CURSOR_POSN 


AX, (BX#OFFSET CURSOR POSH] 


C(BP+VCRS_POS1],AX 


AX, W_IST_CHAR 
AX, K-1ST_CHAR 
WLISY_CHAR, AX 


AH, GC_PRESENT 
(BPeVGC_ON).AH 


3; SET CURRENT KJROM STATUS 
3 SET CURRENT VG STATUS 


3 SET CURRENT VIDEO 170 STATUS 
; SET VIDEO I70 PROCESSING FLAG 


a FOR KANA-KANJI CONVERSION ? 


wee 


~~~ SET DATA FOR KANA-KANJI CONVERSION 
ADJUST FOR JUMP TABLE 


ALTERNATE CURSOR FUNCTION ? 
YES, SKIP WORK SWAP 


WRITE TTY FUNCTION ? 
YES, SKIP WORK SWAP 


3 VIDEO FUNCTION IS WRITE AC/C 
3 SAVE AX 
3 SAVE BX 


wewe 


TIMES 2 FOR WORD OFFSET 
SAVE ACTIVE PAGE * 2 


SET ail al POSITION TO AX 
SWAP CURSOR POSITION 
i SAVE IT 


3 GET 1ST BYTE CHARACTER AT WRITE A/C 
3 SWAP 1ST BYTE CHAR FOR KANA~KAN 
3 


3 SET CURRENT ACTIVE PAGE TO BX 
; 


3 SET GRAPHICS CURSOR FLAG 
3 


BYTE PTR CBP*VKK_FLAG),TRUE ; SET KANA-KANJI FUNCTION FLAG 


BX 
AX 


BH, ACTIVE_PAGE 
AL, AH 

AH. AH 

AX,1 

S1,AX 


AX, VFT_LEND 
VIS 
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RESTORE BX 
RESTORE AX 


SET ACTIVE PAGE TO BH 


GET INTO LOW BYTE 

ZERO YO HIGH BYTE 

M2 FOR TABLE LOOKUP 
PUT INTO SI FOR BRANCH 


TEST FOR WITHIN RANGE 
3 BRANCH AROUND BRANCH 


eee 


we eee ee oe 


Appendix A. 


OOEB 58 
QOEC EB 44 


OOEE 

QOEE 8A 26 0049 R 
QOFZ2 80 E4 OF 
QOFS 80 FC 09 
GOOFS BS B00 

QOFB 72 0C 


OOFD 80 SE O34C R 08 
0102 73 1B 


VIS: 


0104 E8 1D95 R 
0107 EB 16 


0109 

09 80 FC 04 

oc 72 11 

CE 80 SE 034C R O8 
1S) 72 «0A 

0115 Ee ro O346C R OL 


VI3Si: 


01 
QO. 
01 
o1 


OL1lA 
O11C 05 0400 


O1llF VIG: 
O1lF 8E CO 
0121 58 
O122 8A 26 0049 R 
0126 «80 E4 OF 
0129 BF 0132 R 
57 


o12¢ 
Q12D 2E: FF AS 0000 


0132 
0132 Fs 46 05 FF 
0136 74 03 

0138 E8 1B88 R 
0138 


0138 F6 466 06 FF 
OlSF 74 0C 


0141 E8 1DBO R 
0144 80 7E 06 62 
0148 #75 03 

016A E8 1DFC R 
014 


014D E8 0000 E 


VIS: 


VI6: 


0150 F6 46 04 FF 
0154 74 10 


0156 8B GE 02 
0159 8B SE 00 
O15SC 89 BF O35C R 


0160 8B OE 0340 R 
0164 «87 OE O33E R 
9168 89 CE 0340 8 


O16C BA TE 07 
OC16F 88 3E 0349 R 
0173 


Ol173) 8A SE 08 
0176 8° 1E OSFB R 


O1l7A SF 
O17B «SE 
O17C 5B 
C17D «659 
OL7E SA 
OL7F 1F 
9180 07 


0181 83 ce OA 

0186 EB BES R 

0187 FE OE 0357 R 
75 OA 


VI7: 


0188 


9180 8B 2E Oy 
0191 «8E DS eis 


sige 8B 26 O35A R 
8197 E8 1BEC R 


O19A 1F 
O19B 5D 


019C «CF 


VIOls 


MoV 


POP 
mov 
AND 


MOV 
PUSH 
JMP 


VIDEO_RETURN: 
TEST 


JZ 
CALL 
TEST 
JZ 
CALL 
CMP 
JNE 
CALL 
CALL 


TEST 
JZ 


MOV 
MOV 
MOV 


MOV 
XCHG 
MoV 


MOV 
MoV 


ax 

SHORT VIDEO_RETURN 
AH, CRT_MODE 

AH, KJ_OFF 

AH, 

AX, REGEN_START 
VI31 


CPU_PAGE, VRAM2_PAGE 
vVI4 


3 THROW AWAY THE PARAMETER 


+ DO NOTHING IF NOT IN RANGE 


s--- DETERMINE SEGMENT ADDRESS OF REGEN 
3 GET CURRENT CRT MODE 

+ MASK KJ-BIY OFF 

+ IN MODE USING 32K REGEN 2 

3 SEGMENT FOR COLOR CARD 

NO, JUMP 


an MODE USING V-RAM1 ? 


g---~ SETUP SEGMENT VALUE eahae oc REGEN ohCcoRorNG TO MEMORY SIZE 
See ok ; GET DIRECT SEGHENT OF MAIN RAM 

AH, GRAPHICS GRAPHICS MODE ? 

VI4 NO 


CPU_PAGE, VRAM2_PAGE 
VI4 

CPU_PAGE,1 

vVI4 

AX, 400H 


ES,AX 


we we ee we 


IN MODE USING V-RAMN2 ? 

HO 

+ PAGE 9 ORB? 

3 NO 

s SET BIAS FOR ACCESS HIGH 16K OF REGEN 


3 a UP TO POINT AT VIDEO RAM AREA 


ASSUME ES: VIDEO_R¢M 


ax 
AH, CRT_MODE 
AH, KJ_OFF 


DI,OFFSET VIDEO_RETURN 
DI 3 STACK 
WORD PTR CS:(SI*OFFSET VF_TABLEJ; JUMP TO VIDEO ROUTINE 


RECOVER VALUE 
GET CURRENT MODE INTO AH 
MASK KANJI MODE FLAG OFF 


3 GET etcuse ADDRESS 


we we 


ASSUME DS:INDETERMINATE, ES: INDETERMINATE 
our PTR CBP4VKJ_STAT), TRUE: ae ENABLED AT ENTERANCE ? 
3 


ENABLE_KJROM 


3 ENABLE KJ-ROM 


tree PTR (BP*VVG_STAT), TRUE; ae ENABLED AT ENTERANCE ? 
3 


ENABLE_VG1 


3 ENABLE VIDEO GENERATER 1 


Be PTR C(BP¢VVG_STATJ,VG12_ON ; Neckae ENABLED ? 
6 


ENABLE_VG12 
DDS 


ASSUME DS:DATA 


+ ENABLE VIDEO GENERATER 182 
3 POINT BIOS DATA SEGMENT 


vee PTR CBP+VKK_FLAG), TRUE; FUNCTION OF KANA-KANJI CONVERSION? 
3 


CX, (BP+¢VCRS_ pos, 
BX, (BP+VACT 


g--~-- RESTORE THE SAVED PARAMETER 
+ GET SAVED CURSOR POSITION 
3 GET ACTIVE PAGE 


G) 
CBX¢OFFSET ZURSOR -POSNJ,CX ; RESTORE IT 


W_IST_CHAR 
ex. K_1ST_CHAR 
W isT_ CHAR, CX 


BH, (BP+VGC_ON) 
GC_PRESENT, BH 


BL, CBP+VVIO_ON) 
VIO_PROCESS, BL 


SP,VIO_LOCAL 
DISABLE_INT 
BYTE PTR VSTACKL 
VIOL 


BP,SS_SAVE 
SS.BP 

SP,SP_SAVE 

ENABLE_INT 


DS 
BP 
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wee ewe 


we ee we 


a 


3 GET 1ST BYTE CHAR IN KANA-KAN 
3 SWAP CX AND K_1ST_CHAR 
3 SET W_IST_CHAR 

3 

3 RESTORE GRAPHICS CURSOR FLAG 


+ RESTORE VIDEO 170 PROCESSING FLAG 
3 


3 RECOVER SEGMENTS 
DEALLOCATE LOCAL WORK AREA 
DISABLE INTERRUPT 
aati STACK LEVEL = 6? 


RESTORE OLD STACK SEGMENT 
RESTORE OLD STACK POINTER 
ENABLE INTERRUPT 


RESTORE DS 
RESTORE BP 


ALL DONE 


019D 


o19D 


019D 


38 
19 
00 


= 0010 


O1AD 


01BD 


o1cD 


0100 
01DD 


coun Of8u on~ny 
oONe Of0 Cor 


2F 
00 


5c 
60 
2€ 
00 
58 
00 


2F 
00 
5c 
00 


50 
4 


1F 
06 


1lF 
06 


7F 
26 


3F 
26 


06 
07 


06 
07 


06 
07 


07 


11 


OA 
11 


50 28 28 
28 50 50 


i TT 

i SET_MODE INT 10H, AH = 0 

i THYS ROUTINE INITIALIZES, THE, ATTACHMENT 10 

; INPUT AL = MODE SELECTED 

; OUTPUT NONE 

; VOLATILE AX, BX,CX,DX,SI,DI,ES 

mae “ASSUME CS!CODE, DS:DATA, ES:VIDEO_RAM 

proeeene wecrenn- eae eeennn= “--~- TABLES FOR USE IN SETTING OF CRT MODE 
VIDEO_PARMS LABEL BYTE 37- INIT_TABLE FOR 6845 


gree -B on = 1--- 22-2 $$$ 4-5 ---6---7---8--- 9--10-- 11-12. 15 
DB 38H,28H,2FH,O6GH.1FH, 6H,19H,1CH, 2H, 7H, 6H. 7H,0,0,0,0 3 SETUP FOR $0x2S 


VPARML EQU $-VIDEO_PARMS 
DB 71H,50H,5CH,OCH,1FH, 6H19H,1CH, 2H, 7H, 6H» 7H,0,0,0,0 3 80X25 


DB 38H,28H,2EH.06H,7FH, 6H,64H,70H, 2H, 1H,26H, 7H,0,0,0,0 3 GRAPHICS 
DB 71H,50H,5BH,0CH,3FH, 6H,S2H,38H, 2H, 3H,26H, 7H.@.0,8,0 ; GRAPHICS 32K REGEN 


VIDEO_PARMS_RAS LABEL BYTE 
DB 38H,28H,2FH,06H,0DH,OAH,OBH,OCH, 2H.11H,10H,11H,0,0,0,0 5 40x11 


DB 71H,50H,5CH,0CH.ODH,OAH,OBH,OCH, 2H,11H,10H,11H,0,0,0,0 3 80x11 


REGEN_L LABEL WORD s-== a OF geek oe 
2 MODE (BW 


DW 048 3 MO 40X25 

DW 2048 3 MODE 1 40x25 COLOR 

DW 4096 3 MODE 2 80X25 (BW) 

DW 4096 3 MODE 3 80X25 COLOR 

DW 16384 3 MODE 4 320X200 4 COLOR 

DW 16384 + MODE 5 320X200 4 (SHADE) 

DW 16384 3 MODE 6 640X200 2 (SHADE) 

OW 8 3 MODE 7 INVALID 

OW 16384 3 MODE 8 160X200 16 COLOR 

DW 32768 3 MODE 9 320X200 16 COLOR 

DW 32768 3 MODE A 640X200 4 COLOR 

OW t) 3 MODE B INVALID 

OW Q 3 MODE C INVALID 

DW 0 + MODE D INVALID 

DR Q 3 MODE E INVALID 

DW 0 + MODE F INVALID 

DW 1024 3 MODE 10 40X11 (BW) 

OW 1024 + MODE 11 40X11 COLOR 

DW 2048 3 MODE 12 80X11 (BW) 

OW 2048 s MODE 13 80X11 COLOR 
16384 3 MODE 14 320X200 4 COLOR 

OW 16384 3 MODE 15 320X200 4 (SHADE) 

OW 16384 3 MODE 16 640X200 2 (SHADE) 

Dw 0 3 MODE 17 INVALID 

DW 16384 3 MODE 18 160X200 16 COLOR 

OW 32768 3 MODE 19 320X200 16 COLOR 

DW 32768 3 MODE 1A 640X200 4 COLOR 

OW 32768 3 MODE 1B 640X200 16 COLOR 

cou LABEL BYTE s---_ COLUMNS 


f RDDE=~< Ore d==29~ $e -4--5-=6--7- Bape eke Bee C==De=E--F 
3 MODE--10-11-12-13-14-15-16-17-18-19-14 
DB —--4.0,40,80,80,40,40,80, 0,20,40,80,80; 0, 0, 0, 0 


GAPARM LABEL BYTE so-- TABLE OF GATE ARRAY PARAMETERS FOR MODE SETTING 


OB OCH, 2FH.0,2 goooon- SET UP FOR 40X25 CBD MODE @ 
GAPARML EQu $-GAPARM 
DB O8H,2FH,0,2 p2S =e H= SET UP FOR 40X25 COLOR MODE 1 
OB ODH.2FH,0,2 grocom- SET UP FOR 80X25 CBW) MODE 2 
DB O9H,2FH,0,2 goo-o-- SET UP FOR 80X25 COLOR MODE 3 
D8 GAH,23H,0,0 SET UP FOR 320X200 4 COLOR MODE 4 
OB OEH.23H,0,0 SET UP FOR 320X200 © (SHADE) MODE 5 
OB QEH,21H,0,8 SET UP FOR 640X200 2 (SHADE) MODE 6 
DB Q0H,00H.0,0 INVALID MODE 7 
DB 1AH,2FH,0,0 SET UP FOR 160X200 16 COLOR MODE 8 
DB 1BH,2FH,0,0 SET UP FOR 320X200 16 COLOR MODE 9 
DB OBH,23H,0,0 SET UP FOR 640X200 4 COLOR MODE A 
OB O0OH,00H,0,0 INVALID MODE B 
OB OOH,00H,0,0 INVALID MODE C 
DB QOH,00H,0,0 INVALID MODE D 
OB 00H,00H,0,0 INVALID MODE E 
DB OOH, 00H,0,0 INVALID MODE F 
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4C 27 00 00 
48 27 00 00 
4D 27 00 00 
49 27 00 00 
OA 23 00 00 
OE 23 00 00 
O€ 21 00 08 
00 00 00 00 
1A 2F 00 00 
1B 2F 00 00 
0B 23 00 00 
8B 23 00 00 


0281 
0285 
0289 
0280 
0291 
0295 
0299 
0290 
O2Al 
O2A5 
O2A9 
O2aD 


ozB1 
02B1 00 OF 00 00 
= 0006 
02B5 OF 00 00 00 
0289 
0289 00 02 04 06 
0280 
028D 00 03 05 OF 
02Cl 0A OB 08 09 OE OF 
OC OD 02 03 00 O1 
06 07 04 05 
o2p1 
o2Di 


0205 
O2DA 


FF 36 0355 R 
80 OE 0355 R FF 
£8 1BE4 R 


02DD 80 SE 0049 R 10 
O2E2 72 11 


O2ES 50 

O2ES BS 0702 

O2E8 CD 16 
B& 853F 

O2ED CD 16 

O2EF BS 0700 

O2F2 CD 16 

O2FS 58 

O2FS 

O2F5 50 

O2F6 24 7F 


O2F8 3$C 07 
O2FA 74 10 
O2FC 3C 17 
O2FE 746 OC 


0300 3C OA 
0302 76 OA 
0304 3C OF 
0306 76 04 


0308 SC 1B 
O30A 76 02 


O30C 
O30C BO 10 
ES 0940 R® 


OSCE 
OS0E 
0311 BA 0304 
0314 8A EO 
0316 A2 0049 8 
0319 AZ O33B R 
O31C 89 16 0063 R 
24 OF 
8B F8 


0320 

0322 
E8 1DFC R 
ES 1AG4 R 


0324 
BA O3DA 
EC 


6327 

O32A 
32 co 
€E 


0320 
OS2E 
0330 


0331 AO 0065 
0334 26 F7 R 
O336 EE 


Q337 
033¢ 
OSSE Bo 
0360 «€E a 
9341 32 co 
0363 EE 


0344 83 7 
0346 84 io 


0368 BB o2p 
O54B 3c 06 © 
034D 74 OF 
BB O2BD 
3C 05 


F6 06 OSFC R 
75 37 oie 


O34F 
0352 


PLTC20 


OB 
PLTC20L 


PLTCGO 
PLTC41 


DB 


PLTCS16 DB 


SET_MODE 


SETMO: 


SETML: 
SETM2: 


PUSH 
OR 
CALL 


CMP 
JB 


PUSH 
MoV 
INT 
MOV 
INT 
MoV 
INT 
PoP 


PUSH 
AND 


CMP 
JE 
CMP 
JE 


CMP 
JBE 
CMP 
JBE 


CMP 
JBE 


MOV 
CALL 


mov 
Mov 
MoV 
MoV 
mov 
AND 
MOV 


CALL 
CALL 


MOV 


XOR 
OUT 


MOV 
AND 
ouT 


TEST 
JNZ 


MOV 
our 
XOR 
OuT 


MoV 
MOV 


MoV 
JE 


MOV 
CMP 


Sia Ww 8 aS 


00H,00H,0,0 
1AH,2FH,0,0 
1BH,2FH,0,0 
OBH,23H,0,0 
3BH,23H,0,0 


0,0FH,0,0 
OFH.0,0,0 
0.2.4.6 


Jwo---- SET UP FOR 40X11 (BD MODE 10 
eo---- SET UP FOR 40X11 COLOR MODE 11 
prone SET UP FOR 80X11 = (BW) MODE 12 
soom--- SET UP FOR 80X11 COLOR MODE 13 
b~-~--- SET UP FOR 320X200 4 COLOR MODE 14 


so-s--- SET UP FOR 320X200 


4 (SHADE) MODE 15 
goo---- SET UP FOR 640x200 SHADE 


2 (SHADE) MODE 16 






INVALID MODE 17 
~~ SET UP FOR 160X200 16 COLOR MODE 18 
-- SET UP FOR 320x200 16 COLOR MODE 19 
bww~nn~ SET UP FOR 640X200 4 COLOR MODE LA 
pases SET UP FOR 640X200 16 COLOR MODE 1B 
TABLES OF PALETTE COLORS FOR 2 AND 4 COLOR MODES 
LABEL BYTE 
laces 2 COLOR, SET 6 
Equ $-PLTC20 SENTRY LENGTH 
bemenw= 2 COLOR, SET 1 
LABEL BYTE 
suse 4 COLOR, SET 0 
LABEL BYTE 


0,3,5,0FH 


20125859516 515512513,203000106070405 


PROC NEAR 


WORD PTR IEP_CTRL H 
BYTE PTR IEP_CTRL, TRUE ; 


DISABLE_INT 


CRT_MODE,KJ_MODE 3 
SETMO 


AX 
AX, KKN_OFE 
KEYBORD 

AX, KKN_TERM 
KEYBORD 

AX, KKNI_ON 
KEYBORD_ 

AX 


ax 
AL,7FH 


AL.7 
SETML 
AL,17H 
SETM1 


AL, OAH 
SETM2 
AL,OFH 
SETM1 


AL,1BH 
SETM2 


AL,DEFAULT_MODE ; 


ERASE_SCURSOR 


DX, A6845 

AH, AL 
CRT_MODE, AL 
CRT_MODE2, AL 
ADDR_6845, DX 
AL,KI_OFF 
DI, AX 


ENABLE_VG12 
WAIT_VERTRET 


DX, VGA_CTL 
AL, DX 
AL, AL 
DX, AL 


AL,CRT_MODE_SET ; 


4 COLOR, SET 1 


SAVE INTERRUPT ENABLE PROHIBIT FLAG 
PROHIBIT INTERRUPT ENABLE 
DISABLE HARDWARE INTERRUPT 


KANJI MODE 2 
3 NO 


TERMINATE KANA-KAN 


we we we we we we we ve 


3 SAVE INPUT MODE ON STACK 
3 REMOVE CLEAR REGEN SWITCH 


3 CHECK FOR VALID MODES 
3 MODE 7 IS INVALID 

3 CHECK FOR VALID MODES 
+ MODE 17H IS INVALID 


+ UNDER OAH ? 
+ YES, OK 

3 UNDER OFH ? 
3 YES, INVALID 


3 

¢ GREATER THAN 18H IS INVALID 
DEFAULT TO DEFAULT_MODE 

3 ERASE CURSOR 


3 ADDRESS OF COLOR CARD 

3 SAVE MODE IN AH 

3 SAVE IN GLOBAL VARIABLE 

3 SAVE MODE OF VIDEO PROCESSOR 2 
+ SAVE ADDRESS OF BASE 

3 MASK KANJI MODE FLAG OFF 

3 SAVE MODE IW DI 


3 ENABLE BOTH VG1 AND VG2 
3 WAIT UNTIL VERTICAL RETRACE 


3 POINT TO CONTROL REGISTER 

3 SYNC CONTROL REG TO ADDRESS 
3 SET VGA REG 0 

3 SELECT IT 


GET LAST MODE SET 


AL,NOT VIDEOENB ; TURN OFF VIDEO 


DX,AL 


SUPRESS_PAL, TRUE; 


SETMS 


AL, PCSUPER 
DX,AL 
AL, AL 
DX, AL 


AX, DI 
AH, IXPALET 


3 SET IN GATE ARRAY 
pes<2= SET DEFAULT PALETTES 
SET PALETTE IS SUPRESSED ? 


3 YES, SKIP SET PALETTE 


CLEAR SUPERIMPOSE CONTROL REGISTER 
FOR SET PALETTE 


ee we we we 


3 GET MODE 
+ SET PALETTE REG 0 


ike DRESED PLTC20; POINT TO TABLE ENTRY 


SETRS 


+ 2 COLOR MODE? 
+ YES, JUMP 


BX OFFSET PLTC41; POINT TO TABLE ENTRY 


5 
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3 CHECK FOR 4 COLOR MODE 


+ SUPER 16 COLOR STD PLT 


E&8 0545 R 
EB 09 


BB O2C1 R 
Bg 0010 
E8 0538 R 


8B C7 
32 DB 


3C 04 
72 08 


BS co 
BA O3DF 


EE 

A2 OOBA R 
E8 0551 R 
EB 07 


8A C4 

€E 

2€: 8A 07 
EE 


43 
FE C4 
E2 F4 


2E: 8A 47 FD 
A2 0352 R® 


BO 05 
EE 
BO 00 
ee 


BO 06 

i33 

BO 02 

EE 

A2 0347 ® 


BA O3DF 


A2 OOBAR 


BA 0309 
32 Co 
EE 


A2 O33C R 
BB Cb 

88 26 0065 R 
88 26 O33D R 
A2 0066 R 


SETMS: 


SETMG: 


SETM41: 


SETMS: 


SETM6: 


SETM7: 


SETM8: 


SETM9: 


CMP 


CALL 
JMP 
MOV 
CALL 
MoV 
xOR 
CMP 
Jc 


OR 
out 
MOV 


pose 


ouT 


MOV 
mov 
MOV 
MOV 
MoV 


TM. + YES. JUMP 
ice 3 CHECK sor 4 COLOR MODE 
SETM3 + YES JUM 
AL, OAK 3 CHECK FOR 4 COLOR MODE 
SETMS 3 NO, JUMP 


SET_PALETTES + SET PALETTES FOR DEFAULT 4 COLOR 
SHORT SETMS 


AL,OBH + SUPER 16 COLOR ? 
SETM41 + YES 


SET_PALETTE16 3 SET PALETTES FOR DEFAULT 16 COLOR 
SHORT SETMS 


BX, OFFSET PLTCS16;GET MOORES oF ayer 16 COLOR PALETTE TABLE 
CX,16 + SET NUMBER OF PALETT 


SPAL41 + SET PALETTE 
3~7--- SET UP MO & M1 IN PAGREG for V-RAML 
AX, DI + GET CURRENT MODE 
BL,BL + SET UP FOR ALPHA MODE 
AL, GRAPHICS 3 IN ALPHA MODE 
SETM6 + YES, JUMP 
BL,40H + SET UP Er ies REGEN 
AL,O9H + MODE US 
SETM6 + YES, SUP 
BL,OCOH + SET UP FOR 32K REGEN 
DX, PAGREG 3 SET PORT ADDRESS OF PAGREG 
AL,PAGDAT 3 GET LAST DATA OUTPUT 
AL. SFH 3 CLEAR MO 8 Mi BITS 
AL,BL 3 SET NEW BITS 
DX,AL + STUFF BACK IN PORT 
PAGDAT,AL 3 SAVE COPY IN RAM 
so~- ENABLE VIDEO AND re PORT SETTING 
VGA_RESET + RESET VIDEO GATE ARRAY 
SHORT SETM3 
AL,AH + GET VGA one NUMBER 
DX,AL > SELECT 
AL,CS: (BX) 3 GET TABLE” VALUE 
DX,AL + PUT IN VGA REG 
BX + NEXT IN TABLE 
AH > NEXT REG 
SETM7 + DO ENTIRE ENTRY 


AL,CS:(BX-(GAPARML-1)] 5; GET VALUE OF PALETTE MASK REG. 
PALETTE_MASK,AL ; SAVE IT FOR SUPERIMPOSE 


wire + POINT SUPERIMPOSE TRANSPARENT REGISTER 
3 

AL.o + SET TRANSPARENT PALETTER NUMBER AS 6 

DX,AL ; 


on +PCSUPER POINT SUPERIMPOSE CONTROL REGISTER 


H 
AL, POREVRAN > MAKE VRAM 2 DISPLAYD IN FOREGROUND 
suPtrcR, AL 3 SAVE IT TO RAM 


SET UP mh AND CPU PAGE REGS ACCORDING TO MODE & MEMORY SIZE 


FOR V-R 
DX, PAGREG + SET IO ADDRESS OF PAGREG 
AL, PAGDAT 3 GET LAST DATA _outeut 
AL,OCOH 3 CLEAR REG BI 
BL, 36H 3 SET UP FOR GRAPHICS MODE WITH 32K REGEN 
AL, 80K 3 IN THIS MODE? 
SETM9 3 YES, JUMP 
BL.3FH + SET UP FOR 16K REGEN AND 128K MEMORY 
ax 3 SAVE Ax 
AL,PORT_C + READ 8255 PORT C 
Abe EXP64K + 64K Gene. INSTALLED ? 
3 RESTORE A 
Setms 3 YES 
BL,1BK 3 SET UP FOR 16K REGEN AND 64K MEMORY 
ALLBL + COMBINE MODE BITS AND REG VALUES 
DX, AL 3 SET PORT 
PAGDAT,AL 3 SAVE COPY IN RAM 


SET uP ane AND CPU PAGE REGS ACCORDING TO MODE & MEMORY SIZE 


FOR V-RAM 

OX, PAGREG2 + SET 10 ADDRESS OF PAGREG 
ALLAL + SET CPU/CRT PAGE 0 IN V-RAN2 
DX.AL 3 SET PORT 

PAGDAT2,AL SAVE COPY IN RAN 


i 
AX,SI + PUT MODE SET & PALETTE IN RAM 
CRT_MODE_SET,AH ; SAVE MODE CONTROL REG VALUE 
; 


CRT_MODE_SET2,AH; SAVE MODE CONTROL REG VALUE FOR SUPERIMP 
CRITPALLETTE,AL ; SAVE BORDER COLOR ae 
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bow-- SET UP 6845 
O3SFO 1€ 


PUSH DS 3 SAVE DATA SEGMENT VALUE 
OSFi 8B C7 MOV AX, DI + GET CURRENT MODE IN AX 
OSFS SETM1O: 
OSFS 33 DB XOR BX. BX + SET UP FOR ABSO SEGMENT 
OSFS 8E DB MoV DS, BX 


i ye VECTOR TABLE ADDRESSING 
ASSUME DS: ABS 


Lbs a Sean 3 GET POINTER TO VIDEO PARMS 
SSUNE DS: CODE 


mov CX, VPARML + LENGTH OF EACH ROW OF TABLE 


OSF7 C5 1E 0074 R 


OSFB BY 0010 
QSFE 80 FC 02 


CMP AH,2 3 DETERMINE WHICH TO USE 
0601 72 28 Jc SETML1 3 MODE IS 0 OR 1 
0403 03 D9 ADD BX, CX TABLE 
Ee app Bx.¢ 3 MOVE TO NEXT ROW OF INIT 
0408 72 21 JC SETMLL >; MODE 18 2 OR 3 
O40A 03 D9 ADD BX,CX TABLE 
oene ee te ss ADD Bx.¢ 3 MOVE TO GRAPHICS ROW OF INIT_ 
O40F 72 1A Jc SETMLL s MODE IS 4, 5, 6, 8 
0611 03 D9 ADD BX, CX OF INIT_TABLE 
et eae AbD BX, CX 3 MOVE TO NEXT GRAPHICS ROW OF INIT_ 
0416 76 13 JBE SETMLL s MODE IS 9, AOR B 
0418 03 D9 AbD BX..CX 
aa ADD BX CX 3 MOVE TO KANJI ROW OF INIT_TABLE 
041D 72 0¢ Jc SETMIL + MODE IS 10, 11 
O41F 03 D9 ADD BX, CX VE TO NEX T_TABLE 
0421 80 FC 14 CHP AN LIGH 3 MOVE TO NEXT ROW OF INIT_ 
04624 72 05 Jc SETMLL + MODE IS 12,13 
0426 80 £4 OF AND AHLK 3 MASK KJ BIT OFF 
0429 EB C8 JMP SHORT SETML0 + SERCH AGAIN FOR MODE 16H-1AH 
pooo-- BX POINTS TO CORRECT ROW OF INITIALIZATION TABLE 
0628 SETMLI: 
0628 8B F7 Mov SI,DI 3 SAVE MODE IN S 
042D 8A 47 02 MOV AL, DS: (BX42) 3 GET HORZ. SYNC. POSITION 
0430 88 57 OA MOV OX,WORD PTR DS:(BX*10) ; GET CURSOR TYPE 
0633 86 F2 XCHG DH DL ; SWAP FOR HIGH-LOW REVERSE 
0435 1€ PUSH DS 
0436 ES COOD E CALL DDS 
ASSUME DS:DATA 
0439 A2 0089 R Mov HORZ_POS, AL 3 SAVE HORZ. SYNC POSITION VARIABLE 
0463C 89 16 0060 R MOV CURSOR_MODE,DX SAVE CURSOR MODE 
0440 AQ 0086 R MoV AL, VAR_DELAY 3 SET DEFAULT OFFSET 
0443 24 OF AND AL,OFH 
04665 Az 0086 R MOV VAR_DELAY, AL 
ASSUME DS: CODE 
04468 #1F PoP Ds 
06469 32 €4 XOR AK, AH y AM MILL SERVE AS REGISTER NUMBER DURING LOOP 
DX, 6845 3 POINT 
wane OS Bees Se=-LOOP THROUGH TABLE, QUTPUTTING REG ADDRESS, THEN VALUE FROM TABLE 
OssE 8a ca ar AL, AH 3 GET 6845 REGISTER NUMBER 
0450 EE our DX, AL 
; KC px + POINT TO DATA PORT 
oes? Fe C6 Ine AH 3 NEXT REGISTER VALUE 
0456 8A 07 Mov AL, (BX) ; GET TABLE VALUE 
0656 EE our DX. AL + OUT TO CHIP 
c Bx 3 NEXT IN TABLE 
Oe8B aA bee DX 3 BACK TO POINTER REGISTER 
0459 €2 FS LOOP =, SETM12 3 DO THE WHOLE TABLE 
mov AX, SI 3 GET MODE BACK 
oesD iF * POP Ds’ j RECOVER SEGHENT VALUE 
FEE eee REOEN AREA WITH BLANK 
O45E 33 FF XOR DI, DI 3 SET UP POINTER 
0660 89 3E OOSER MoV CRI_START,DI. 3 START ADDRESS SAVED IN GLOBAL 
0466 Cb 06 0062 R 00 MoV ACTIVE_PAGE,O 3 SET PAGE VALUE 
04669 C6 06 036C R 08 Mov CPU_PAGE, VRAM2_PAGE ; SET CURRENT ACTIVE PAGE AS 8 
O46E C6 06 03460 R OB Mov CRT_PAGE, VRAM2_PAGE ; SET CURRENT ACTIVE PAGE AS 8 
0673 ES 1888 R CALL —- ENABLE_KJROM  ; DISABLE BOTH V-RAM 1 8 2 ONCE 
0476 £8 1BBG R CALL = ENABLE_VRAM 3 ENABLE V-RAM 2 
0679 3B DS MOV BX, AX 3 SET MODE TO BX 
067B SA POP px’ 3 GET ORIGINAL INPUT BACK: 
O67 BA F2 MoV DH, DL 3 
OS7E 80 €6 7F AND DH, 07FH ; 
0681 80 FE 1B CMP DH, 1BH 3} SUPER 16 COLOR ? 
0684 75 29 JHE SETML21 + HO 
0686 50 PUSH = AX 3 SAVE AX 
wee? 53 PUSH Bx 3 SAVE BX 
senate PUSH Dx i SAVE DX 
USH DI + SA 
068A 56 PUSH —s SI 3 SAVE SI 
0488 £8 1DBO R 
O68E 8A Ce CALL ENABLE. VOI i 
0690 2¢ 11 sus eke 


SETUP VIDEO PROCESSOR-1 
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BA 
8E 


B8 
72 
B8 


80 
72 


80 
72 


06 
51 
B9 
8E 
89 
B8 


1C7D R 

06 0049 R 1B 
1DFC R 

OSDA 


06 
0347 Rk 


E2 80 
4E 


2000 


09 
62 


B800 
c2 
OF20 
FF 10 
03 
0720 


FB 04 
a 


FF 10 
13 


OOAG 
C1 


0400 
0720 


F37 AB 


59 
07 


33 


co 


FS AB 


8B 
EB 


32 


co 

O348 R 

O349 R 

06 OS4E R 1011 


06 0350 R 2011 


O3DA 
co 


0065 Rk 


1pd6 R 


DE 
O59C R 
FF 


DL E3 


89 
BF 


1E 


07 


33 


2E: 8B 8F pen R 


OE 004C 


0010 
O35C R 


co 


FS7 AB 


SETM121: 


SETM13: 


SETM14: 


SETM15: 
SETM16: 


SETMI7: 


MOV 
Mov 


Mov 


MOV 


MoV 
REP 


PoP 
PoP 
PoP 


SUP_SET_MODE 
CRT_MODE, 1BH 
ENABLE_VG1i2 
DX, S2ABASE 
AL, DX 

AL, PCSUPER 
DX, AL 

AL, O110B 

DX, AL 
SUPIPCR,AL 


DL.80H 
SETM17 


CX,8192 


AL,O9H 
SETM13 


CX,1 


DX, REGEN_START 
ES, DX 


, 


AX," 94156256 
BH. KJ_MODE 
SETHE 

AX," "+ 7m256 
BL, GRAPHICS 
SETM16 

BH, KJ_MODE 
SETMIS. 

€S 

DI 

cx 
CX,P_CODE_START 


ES,CX 
ASSUME 


CX, P_CODE_SIZE72; 


AX," "% 7256 
STOSW 


ASSUME 


AX, AX 
STOSW 
AX, AX 


AC_PRESENT,AL 
GC_PRESENT.AL 


t 
GCURSOR_MODE, UNDER_CURSOR 


SETUP SUPERIMPOSE LOGIC 


RESTORE REGISTERS 


Be We Be we we we we we we Oe ee we 


NO CLEAR OF REGEN ? 
SKIP CLEARING REGEN 


NUMBER OF WORDS TO CLEAR 


REQUIRE S$2K BYTE REGEN ? 
NO, JUMP 


SET 16K WORDS TO CLEAR 


we tee 


we 


3 SET UP SEGMENT FOR V-RAM2 
SET REGEN SEGMENT 


FILL CHAR FOR ALPHA 
KJ MODE ? 


we we ee 


3 FILL CHAR FOR KANJI 


3 TEST FOR GRAPHICS 
3 NO_GRAPHICS_INIT 


+ KJ GRAPHICS MODE 

3--- CLEAR PESUDO CODE BUFFER 

3 SAVE CURRENT ES 

3 SAVE CURRENT DI 

3 SAVE CURRENT Cx 

+ SET PESUDO CODE BUFFER SEGMENT 
3 

ES:P_CODE_ BUFFER 

SET BUFFER SIZE IN WORD 


3 FILL CHAR FOR ALPHA IN ATTRIBUTE TYPE 2 
’ FILL THE PESUDO CODE BUFFER 


3 RESTORE CX 
3 RESTORE DI 
3 RESTORE ES 
ES: VIDEO_RAM 


¢ FILL FOR GRAPHICS MODE 
3 FILL THE REGEN BUFFER WITH BLANKS 


3 
3 CLEAR ALTERNATE CURSOR FLAG 
3 CLEAR GRAPHICS CURSOR FLAG 


s SETUP GRAPHICS CURSOR MODE 


ACURSOR_MODE,CURSOR_DISABLEML00H OR BLOCK_CURSOR SETUP ALT CSR 


DX, VGA_CTL 
AL, AL 


OX,AL 
AL. CRT_MODE_SET 
DX.AL 


s~~--~ ENABLE VIDEO 
SET PORT ADDRESS OF VGA 
SELECT VGA REG 0 


GET MODE SET VALUE 
SET MODE 


we we we we we 


ENABLE_vo2 3 ENABLE VIDEO GRNARATER 2 
{=sSs= DETERMINE NUMBER OF COLUMNS AND ROWS, BOTH FOR ENTIRE 
ieree= DISPLAY AND THE NUMBER TO BE USED FOR TTY INTERFACE 
BX,SI 3 GET CURRENT CRT MODE 
SMODE_SET 3 SET SCREEN PARAMETERS 
g-~--- SET CURSOR POSITIONS 
BH, 3H ; 
8xX,1 


CX.CS: (BX + OFFS 
cx 


CRT_LEN, 
CX,NO_ACT_PAGE 


+ WORD OFFSET INTO CLEAR LENGTH TABLE 
ET REGEN L) 3 LENGTH TO CLEAR 
3 SAVE LENGTH OF CRT 


3 CLEAR ALL CURSOR POSITIONS 


DI, OFFSET CURSOR_POSH 


os 
ES 
ASSUME 


AX, AX 
STOSW 


+ ESTABLISH SEGMENT 
3 ADDRESSING 
ES: DATA 


+ FILL WITH ZEROES 
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0520 
0531 


e534 
0535 


BF 06 0355 R 
€8 1BEC R 


cs 


B9 G04 


ga C4 

EE 

2€: 8A 07 
c€ 


FE C4 
43 
E2 F4 
cs 


BY 0010 
BA CS 
i343 

EE 


FE C4 
E2 F8 


cs 


8 
81 C3 o241 g 


ae 
2 BA 47 
8B FO si 


E8 OS8c R 
BA O3DA 
BO 04 


PoP WORD PTR IEP_CTRL;RESTORE INTERRUPT ENABLE PROHIBIT FLAG 
CALL ENABLE_INT 3 ENABLE INTERRPUT IF IT IS NOT PROHIBITED 
RET 

SET_MODE ENDP 

J Perm r nen nnn w nnn nn wenn enw we nen ne ene ee 


SET_PALETTES 
THIS ROUTINE SET PALETTES FOR 4 COLOR 


INPUT = AH PALETTE REGISTER NUMBER 
8. ADDRESS OF SETUP PARAMETERS 


OUTPUT HOKE 
VOLATILE AX, CX 


ee Oe we we we we we we Oe we we we Oe 


ASSUME CS:CODE, DS:DATA, ES 
SET_PALETTES PROC NEAR 


sVIDEO_RAM 





MoV CX,4 3 NUMBER OF REGS TO set 
SPAL41: 

MOV ALLAH + GET REG NUMBER 

ouT X,AL + SELECT IT 

MoV ALCS: {BX} ¢ GET DATA 

out DX, AL > SET IT 

INC AH 3 NEXT REG 

INC BX + NEXT TABLE VALUE 

Loop SPAL41 

RET 


SET_PALETTES ENDP 


7 


eae en 


; SET_PALETTE16 

; THIS ROUTINE SET PALETTES FOR 16 COLOR 
; INPUT = AK = PALETTE REGISTER NUMBER 
; QUTPUT NONE 

VOLATILE AX, CX 


SET_PALETTEL6 PROC NEAR 


mov CX,16 3 NUMBER OF PALETTES, AW IS REG COUNTER 
SPALI: 

mov AL, AH 3 GET REG NUMBER 

our DX.AL 3 SELECT IT 

OUT DX, AL 3 SET PALETTE VALUE 

INC AH 3 NEXT REG 

Loop SPALL 

RET 


SET_PALETTE1L6 ENDP 


On ewww ww ww ww we mm we ewww ee wen ween n neces 


3 
4 VGA_RESET 
3 
F THIS ROUTINE RESET VIDEO GATE ARRAY 
; INPUT DI = CRT MODE 
3 
; OUTPUT SI = CONTENTS OF MODE CONTROL 1, BORDER COLOR REO. 
i CX = HUMBER OF GATE ARRAY PARAMETERS 
3 
3 VOLATILE AX, BX, DX 
3 
cae ee Bediseiwker cceus, wistieseeusewessessooucs 
VGA_RESET PROC NEAR 
MOV AX, DT + GET CURRENT MODE 
moy AL. AH 
XOR +AK + __IHTO AX REG 
MOV CX, GAPARML 3 SET TABLE EXTRY LENGTH 
MUL CX i TIMES MODE FOR OFFSET INTO TABLE 
MOV BX, AX 3 TABLE OFFSET In BX 
ADD —-BX, OFFSET GAPARN; 


ADD TABLE START 10 OFFSET 


Mov AH, CS: (BX¢IXMODE1);SAVE MODE SET AND PALETT 
MoV AL, CS: CBX4IXBORD . 
mov ALCS V5 TILL WE CAN PUT TREN IN RAM 
CALL = MODE_ALIVE + KEEP MEMORY DATA VALID 

MOV DX, VGA_CTL } 

MoV AL, IXRESET ; 


+ POINT TO RESET REG 
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50 
53 


32 
2€: 
2 


cé 
4 F7 


co 
EO 


04 


o58c R 


F6 
0100 


FF 
8A 87 0235 R 
E4 


COSA R 


0701 

FF 18 

10 

06 0346 R 18 
0703 


FF 10 
08 


0700 
06 0346 R 09 
16 


ouT DX, AL + SEHD TO GATE ARRAY 
MOV AL, SYNCRST ; SET SYNCHRONOUS RESET 
OUT , 3 DO IT 
j WHILE THE GATE ARRAY IS IN RESET STATE, WE CANNOT ACCESS RAM 
MOV AX, S + RESTORE NEW MODE SET 
AND AH,NOT VIDEOENS ; TURN OFF VIDEO ENABLE 
XOR ALL AL + SET UP TO SELECT VGA REG 0 
OUT DX, AL ; SELECT IT 
XCHG AH AL 3 AH IS VGA REG COUNTER 
OUT DX, AL 3 SET MODE 
MOV AL, IXRESET 3 SET UP TO SELECT VGA REG 4 
OUT , 3 SELECT IT 
XOR AL, AL 3 
OUT DX, AL ; REMOVE RESET FROM VGA 
3 NOW OKAY TO ACCESS RAM AGAIN 
CALL = MODE_ALIVE 3 KEEP MEMORY DATA VALID 
RET 
VGA_LRESET ENOP 
peatescosct asst cces Renae sicaressemweuet 
5 
; MODE_ALIVE 
3 
3 THIS ROUTINE READS 256 LOCATIONS IN MEMORY AS EVERY OTHER 
; LOCATION IN 512 LOCATIONS. THIS IS TO INSURE THE DATA 
3 INTEGRITY OF MEMORY DURING MODE CHANGES. 
3 
3 INPUT NONE 
3 OUTPU HONE 
3 VOLATILE NONE 
3 
Peiscosednonensed CusceUscuseuhe crc srasioaces 
MODE_ALIVE PROC NEAR 
PUSH = AX 3SAVE USED REGS 
PUSH = SI 
PUSH = CX 
XOR $I,$1 
MOV CX, 256 
MALIVEL: 
Loss 
WC SI 
LOOP) = MALIVEL 
PoP cx 
POP SI 
PoP AX 
RET 
MODE_ALIVE ENDP 
peeewaveteessceetie cee weceeeceess 
3 
; SMODE_SET SOFTWARE MODE SET 
3 THIS ROUTINE INITIALIZES KANA-KAN AND 
: T ROW,COLUMN NUMBER OF SCREEN 
3 INPUT BK = CRT MODE 
; BL = CRT MODE (MASKED) 
; OUTPUT NONE aeoen 
3 VOLATILE BH 
t 
peecueele cous St aeees coe e se Geeeeee 
3 
SMODE_SET PROC = NEAR 
ws aK I7T7yE DETEMINE NUMBER OF Rows 
PUSH = BX + SAVE RODE 
XOR BH, BH 3 CLEAR BH FOR CONVERT BYTE TO NORD 
MOV AL,CS:(BX ¢ OFFSET COL_L) se 
XOR AH, 
MOV CRT_COLS, AX 3 NUMBER OF COLUMNS IN THIS SCREEN 
POP 3x 3 RESTORE MODE 
MOV AX, INDICATOR_ON ; ENABLE INDICATOR 
CMP BH, 18H 3 20X11 GRAPHICS ? 
JE SSETL 3 YES 
Mov CRT_ROWS, Row WANK; SET ROW NUMBER OF ANK MODE 
HOV AX, KKRI_O + DISABLE KANA-KAN 
CMP BH.KJ "RODE. 3 KJ MODE ? 
JB SSET2~ 3 NO 
ov AX, KKNI_ON 3 ENABLE KANA-KAN 
SSETL: 
ten MOV CRT_ROWS,ROW_KJ ; SET ROW NUMBER OF KJ MODE 
: 
INT KEYBORD 3 KANAKAN ON/OFF 
PoP ax 3 RESTORE AX 
RET 


A-27 


Appendix A. 


oscc 


ao 
72 


8B 
F6 


FC 04 

27 

16 0350 R 

06 6349 & FF 


74 «09 


51 


E8 
59 


89 
cs 


81 
80 


Bs 
€8 
cs 


OE OS4E R 
0618 R 


OE OS4E R 
0618 R 
06 0349 R FF 


El 3FFF 
cD 20 


OA 
OE 0060 R 
0602 R 


16 0063 R 
c 


cs 


cq 
co 


ch 


smope_seT —__ENDP_ wewennennn nana en nenne=- == ( 





poocesonrern™ 
; SET_CTYPE INT 10H, AH = 2 
' ways ROUTINE SETS THE CURSOR VALUE 
; input AN = CURRENT CRT MODE ( MASKED ) 
i AM 2 CURSOR VALUE CH-START LINE, CL-STOP LINE 
i ourPuT HONE 
; VOLATILE AL» CX+DX 
mes ASSUME CS:CODE, DS:DATA 
SET_CTYPE proc ‘REAR 
AN.GRAPHICS «5. IN GRAPHICS MODE? 
°/ sct2 + NO, JUMP 
MoV DX, CURSOR_POSH i GET CURRENT CURSOR POSITION 
TEST GC_PRESENT. TRUE 3 GRAPHICS CURSOR PRESENT ? 
JZ scl + NO 
push x ; SAVE NEW CURSOR MODE 
PUSH — EX,GCURSOR MODE 5 GET OLD CURSOR MODE 
MOV, GRITEGCURSOR ERASE CURRENT GRAPHICS CURSOR 
PoP. CX 3 RESTORE NEW CURSOR MODE 
scTi 
T1t soy GCURSOR_MODE.CX + SAVE NEW GRAPHICS CURSOR MODE 
Moy, WRITE GCURSOR  ; WRITE NEW GRAPHICS CURSOR 
Catt GC_PRESENT, TRUE ; SET GRAPHICS CURSOR FLAG ON 
AND _-—«CX,GCURSOR_MASK 3 MASK FOR GRAPHICS CURSOR 
OR CHUCURSOR DISABLE; DISABLE CURSOR OF 6845 
sct2: 
Hoy AH, 10 + 6845 REGISTER FOR CURSOR SET 
oy «CURSOR_MODE.CX 3 SAVE IN DATA AREA 
CALL © OUT6845 ; OUTPUT CX REG 
RET 
SET_CTYPE EXDP 
Peeper nen enn Setmeestrecsieenccacsueseecds 
3 
; ouTss45 
; THIS ROUTINE OUTPUTS THE CX REGISTER TO THE 6845 REGS NAMED IN AH 
3 
3 INPUT AH = 6865 REGISTER ADDRESS 
H CH = DATA SHOULD BE WRITE TO (AH) 
; CL = DATA SHOULD BE WRITE TO (AH#1) 
3 
3 OUTPUT NONE 
3 
i VOLATILE AL, DX 
Hy 
een ee stitch aieicnoulteat tn 
OUTES4S PROC NEAR 
MOV «DX, ADDR_6845 s+: ADDRESS REGISTER 
MOV AL, AH 3 GET VALUE 
OUT DX AL 3 REGISTER SET 
INC DX } DATA REGISTER 
MOV AL, CH 3 DATA 
OUT DX AL 
DEC =X 
ike 
5 POINT TO OTHER DATA REGISTER 
QUT DK,AL + SET FOR SECOND REGISTER 
MOV ALCL SECOND 
mov ALCL ' DATA VALUE 
RET 1 ALL DONE 
OUT6s45 ENDP 
jeessererSsaesSeass<eseaesase= ewe en wsecee 
3 
WRITE_GCURSOR 
THIS ROUTINE WRITES GRAPHICS CURSOR 
i INPUT AM = CRT MODE ( MASKED ) 
3 Sere tr 
= ROW, SITION 
i DS = DATA SEGMENT stale 
3 OUTPUT HON 
; VOLATILE NONE 
Camino 


‘e’ 


—) 


SE 0049 R 14 
69 


C5 20 
64 


El SFFF 
F9 11 
02 

ll 

Eg 

55 


Ec 1¢ 
Ec 


66 09 
56 02 


c2 
15E8 R 
46 00 
o9 


8F 
b2 


1265 Rk 


c4 ic 
D 


WRITE_GCURSOR 

cmp 
JB 
TEST 
JNZ 
AND 
cmP 
JBE 


MOV 
WGCl: 


WGC2: 
RET 


WRITE_GCURSOR 


PROC WEAR 


CRT_MODE,KJGRAPH; KJ GRAPHICS MODE 7 
wocd + NO 


CH. CURSOR_DISABLE; CURSOR DISABLED ? 
WGC2 YES 


o 
CX, GCURSOR_MASK 
CL.CBOX_ROW - 1 
wGCl 


MASK FOR GRAPHICS CURSOR MODE 
a CURSOR EXCEED CHARACTER BOX ? 


we see 


CL,CBOX_ROW - 1 3 SET MAX ROW OF CHARACTER BOX 


CH,CL 
wWGCc2 


BP 
SP,SAC_LOCAL 


BP,SP 


(BP4WC_MODE),AH 
(BP+WPOSN),DX 


CURSOR START > END ? 
YES, CURSOR DOES NOT APPEARE 


woe 


SAVE BP 
ALLOCATE LOCAL WORK AREA 
ASSIGN BP AS FRAME POINTER 


ee wee 


SAVE REGISTERS 


ee we we we we we we we 


SET CRY MODE 
SAVE ROW/COLUMN POSIITON 


” 


AX, DX ; SET IT TO AX FOR GET LOCATION 
GRAPH_POSH DETERMINE LOCATION IN REGEN BUFFER 
{BPSHGPOSNI,AX ; SAVE WRITE POSITION 
BX, CX ; SET GRAPHICS CURSOR MODE TO ax 
ES + SAVE ES 
$$ ; 
bs ; POINT TO STACK SEGMENT 
ES 3 POINT TO STACK SEGHENT 

ASSUME DS:STACK, ES:STACK 
SI,CBP¢WFONT) ; SET ADDRESS OF FONT BUFFER AREA TO SI 
DI. 3; SET IT TO DI 
CX,CBOX_ROW/2 ; 
AX; AX > CLEAR 18 BYTE FOR CURSOR 
STOSW ; 
DX, DX 3 
DL, BH 3 
O1,SI 3; SET CURSOR START LINE TO DI 
O1,DX ; 
BH. BH ’ 
Bx, DXx ; 

; SET CURSOR LINE NUMBER TO CX. 

ox. BX ; 
Ax 3 
STOSB 3 SET CURSOR 
es RESTORE REGEN SEGMENT 


ASSUME Es: VIDEO. RAM 


orice oXOR_BIT OR aeeer¢ COLOR 16 AND X*OR WRITE FUNCTION 


TO DISPLACEMENT 


G_LWRTL 3 WRITE CURSOR 


RESTORE REGISTERS 


ee 


aula 3 DEALLOCATE WORK AREA 


ENDP 


3 RESTORE BP 


INT 10H, AH = 2 


THIS ROUTINE SETS THE CURRENT CURSOR POSITION TO THE 


CRT MODE (¢ MASKED ) 
ROW,COLUMN OF NEW CURSOR 
DISPLAY PAGE OF CURSOR 


NONE 
AX, CX,SI,DI 


; 

Hy SET_CPOS 

; wecswen 

t 

H NEW X-Y VALUES PASSED 
; 

H INPUT = AH = 
i DX = 
fy BH = 
H 

Hy OUTPUT 

3 VOLATILE 

3 
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0605 
0605 


06D6 
06Da 
OGDA 


O6DE 
06EO 
O6E2 
O6ES 
O6ES 


€8 
03 
D1 
€8 
cs 


$3 
83 
F6 
32 
d1 


58 
cs 


BC O35C R 
94 O35C R 


SE 0062 R 
4 
FC 04 


OE OS4E R 
06 0349 R FF 
07 


07 
0618 R 


0618 8 

06 03469 R FF 
c2 
Goce R 


06D5 R 
cs 

OE OOSER 
F9 

0E 

O602 R 


Ds 
cs 
26 OOGAR 


FF 
cs 
Eo 


n CURSOR IS SET AT 6845 IF DISPLAY PAGE I$ CURRENT DISPLAY 


| a telat hate atta hat aaa aa alata tate eet 


ASSUME CS:CODE, DS:DATA 


SET_CPOS PROC NEAR 
MOV CL,BH ° 
XOR CH, CH 3 ESTABLISH LOOP COUNT 
SAL CX,1 3 WORD OFFSET 
MOV $I,CX + USE INDEX REGISTER 
MOV DI-CSI*OFFSET CURSOR POSN] ; GET OLD CURSOR POSITION 
Mov CSI*OFFSET CURSOR_POSH),DX 3 SAVE THE POINTER 
CMP ACTIVE_PAGE,BH 
INZ SCP3 3 SET_CPOS_RETURN 
CMP AH, GRAPHICS 3 GRAPHIS MODE 7 - 
JB SCP2 3 NO 
MOV CX,GCURSOR_MODE ; SET GRAPHICS CURSOR MODE TO Cx 
TEST GC_PRESENT, TRUE 3 GRAPHCIS CURSOR PRESENT ? 
JZ SCPL + NO 
PUSH Dx 3 SAVE NEW CURSOR POSITION 
mov DX, DI 3 SET OLD CURSOR POSITION YO Dx 
CALL WRITE_GCURSOR ERASE CURRENT GRAPHCIS CURSOR 
’ POP Dx + RESTORE NEW CURSOR POSITION 
scpis 
CALL WRITE _GCURSOR ; WRITES NEW GRAPHIS CURSOR 
3 MOV GC_PRESENT, TRUE + SET GRAPHICS CURSOR FLAG ON 
SCP2: 
mov AX, DX 3 GET ROW/COLUMN TO Ax 
CALL SET_CURSOR 3 CURSOR_SET 
SCP3: 
RET 
SET_CPOS ENDP 
Jorewe meme wenn nnn ee eee eee eee 
3 
H SET_CURSOR 
5 
, THIS ROUTINE SETS THE CURRENT CURSOR POSITION TO THE 6845 
t 
; INPUT AX = ROW,COLUMN VALUE TO SET 
3 
; OUTPUT NONE 
3 VOLATILE AX, CX 
5 - -: —— 
SET_CURSOR PROC WEAR 
CALL POSITION 3 DETERMINE LOCATION IN REGEN BUFFER 
MOV CX, AX 
ADD CX, CRT_START 3 ADD IN THE START ADDRESS FOR THIS PAGE 
SAR CX,1 3 DIVIDE BY 2 FOR CHAR ONLY COUNT 
MoV AH, 16 3 REGISTER NUMBER FOR CURSOR 
CALL OUT68465 3 OUTPUT THE VALUE TO THE 6845 
RET 
SET_CURSOR ENDP 
f[Seidesanmmecnnccwceeeeneeweenewenes 
3 
3 POSITION 
3 
3 THIS SERVICE ROUTINE CALCULATES THE REGEN BUFFER ADDRESS 
3 OF A CHARACTER IN THE ALPHA MODE 
3 
; IHPUT AX = ROW, COLUMN POSITION 
8 
F) OUTPUT AX = OFFSET OF CHAR POSITION IN REGEN BUFFER 
3 
3 VOLATILE NONE 
3 
Joeerewe nnn wenn eee 
POSITION PROC NEAR 
PUSH Bx 3 SAVE REGISTER 
MoV BX, AX 
MoV AL. AH + ROWS TO AL 
MUL BYTE PTR CRT_COLS } DETERMINE BYTES TO ROW 
ee 
’ 5 ADD IN COLUMK VALUE 
SAL AX, 1 5 M2 FOR ATTRIBUTE BYTES 
PoP Bx 


RET 
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? 


O6E6 


06 
os 


97 O35C R 
CE 0060 R 
SE 00469 R 14 
4 

OE O34E R 


56 oc 
GE OA 


06 09 09 05 5 
00 05 08 08 68 


1DBO R 


32 E4 


BA 
ec 
74 
€9 
Ag 
75 
E9 


O3SDA 


04 
03 
O7ES R 
02 
03 


O7EF R 


10 
16 0063 R 
c4 


€& 
c4 


POSITION ENDP 
il hs a pte Sac tes oo eee = 
ry 
3 READ_CURSOR IHT 10H, AH = 3 
3 THIS ROUTINE READS THE CURRENT CURSOR VALUE FROM THE 
; 6845, FORMATS IT, AND SENDS IT BACK TO THE CALLER 
; INPUT BH = PAGE OF CURSOR 
5 
; OUTPUT DX = ROW, COLUMN OF THE CURRENT CURSOR POSITION 
3 CX = CURRENT CURSOR MODE 
3 VOLATILE BX 
3 
sfooceocce eee eee ew eee eee wee eee=: Fa eh eee eee 
ASSUME CS:CODE, DS:DATA 
READ_CURSOR PROC NEAR 
PUSH BP 3 SAVE BP 
Mov BL, BH 
XOR BH, BH 
SAL BX, 1 WORD OFFSET 
MOV DXILAX+OFFSET CURSOR POSH] 
MoV CX, CURSOR_MODE 
CMP CRT_MODE,KJGRAPH; KJ GRAPHICS MODE ? 
JB RCSR1 + NO 
nesez: " CX,GCURSOR_MODE ; SET GRAPHICS CURSOR MODE 
t 
Mov BP,SP 3 SET FRAME POINTER 
MoV (BP+F_DX},DX 3. SET _RETURN DX 
MOV (BP+FLCX],CX —;.: SET RETURN CX 
PoP BP 3 RESTORE BP 
RET 
READ_CURSOR ENDP 
: 
; LIGHT PEN INT 10H, AH = 4 
Po ERERLUEER 
3 THIS ROUTINE TESTS THE LIGHT PEN SWITCH AND THE LIGHT 
i PEN TRIGGER. IF BOTH ARE SET, THE LOCATION OF THE LIGHT 
3 PEN IS DETERMINED. OTHERWISE, A RETURN WITH NO INFORMATION 
3 
3 
3 INPUT AH = CURRENT CRT MODE ( MASKED ) 
3 
; ON EXIT: 
; AH = 0 IF NO LIGHT PEN INFORMATION IS AVAILABLE 
3 BX,CX,DX ARE DESTROYED 
3 AH = 1 IF LIGHT PEN IS AVAILABLE 
; DHDL = ROW,COLUMN OF CURRENT LIGHT PEN POSITION 
i CH= —- RASTER POSITION 
; BX = —- BEST GUESS AT PIXEL HORIZONTAL POSITION 
5 
Bn nr rw ww ewww ew ewww wwe wwe wwe ween eecen 


ASSUME CS:CODE,DS:DATA 


Borneman nnn nnn enn nw enn nnn enn n nnn n= == SUBTRACT_TABLE 
SUBTBL LABEL BYTE 


b MODE~-Q- == 2 fon 2- nn $n =~ §-- =~ 6 =) -- = 8-- == 9---- A= = == B= C--D-- EF 
3 MODE-10-~~11--~12~~-13---14---15---16---17---18---19--- 1A--- 1B 


DB OCH, OGH, O9H, O9H, OSH, OSH, OSH, 6, OSH, O8H, O8H, O8Hs 6, 0, 0, 0 
READ_LPEN PROC NEAR 

PUSH BP 3 SAVE BP 

CALL ENABLE_VQ1 3 ENABLE VIDEO GENERATER 2 

s-~~ WAIT FOR LIGHT PEN TO BE DEPRESSED 

xOR AH, AW 3 SET NO LIGHT PEN RETURN CODE 

MOV DX. VGALCTL 3 GET ADDRESS OF VGA CONTROL REG 

In AL, DX 3 GET STATUS REGISTER 

TEST AL, LPENSW + TEST LIGHT PEN SWITCH 

Jz RLPENL 

JMP RLPENL4 a NOT SET, RETURN 
RLPENL: ‘ se-- NOW TEST FOR Riace # teas TRIGGER 

TEST AL, LPENTRG 3 TEST LIGHT PEN TRIGGE 

JNZ RLPEN2 + RETURN WITHOUT RESETTING TRIGGER 

JMP RLPENIS 

g--~ TRIGGER HAS BEEN SET, READ THE VALUE IN 

RLPEN2: 

MoV AH, 16 3 LIGHT PEN REGISTERS ON 6845 

s~-~INPUT REGS Coie TO BY AH, AND CONVERT TO ROW COLUMN IN DX 

MOV DX, ues 6845 ADDRESS REGISTER FOR 6845 

MOV AL, AH } REGISTER TO READ 

OUT DX, AL s SET IT UP 

INC Dx 3 DATA REGISTER 

IN AL, DX i GET THE er 

MoV CHLAL 3 SAVE IN 

DEC DX + ADDRESS REGISTER 

NC AH 
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GET BASE ADDRESS 


adD POINT TO RESET PARM 


‘ MOV ALLAH 3 SECOND DATA REGISTER 
oya0 Ee our eee 3 POINT TO DATA REGISTER 
gyal a2 TNE i } GET SECOND DATA VALUE 
o7ez Ee a ANON } AX HAS INPUT. VALUE 
783 8h es a) cee i7== AX HAS TRE VALUE READ IN FROM THE 6845 
Mov BL, CRT_MODE 
ao 8 ; 3 MODE VALUE To Bx 
o7e9 81 ES GOOF OAR ROY «BL eS TSUBTBLEBXI: DETERMINE AMOUNT To SUBTRACT 
74D 2E: 8A 9F 0 cUR AX, BX ; TAK 
3 
oat ae cup AX, 4000 + IN TOP OR BOTTOM BORDER? 
es 3) JB RLPENS + NO, OKAY 
pity * ~ XOR AX AX + YES, SET TO ZERO 
0753 Se a BREE ay BX. CRT_START 
One ah tee ECT PAGE ORIGIN 
75F D1 EB AX, BX + CONVERT TO CoRR 
aye 28 C3 ue Rene ; TE POSITIVE, DETERMINE MODE 
a763 2B ce a ii i--- DETERMINE MODE OF OPERATION 
3 DETE a 
oye? Ba 83 ALPEN ag cl.3 3 SET 8 SHIFT COUNT 
8 
T_MODE + SET CRT MODE TO DH 
Oree 2k 38, Case eR AND DHSES OFF 3 STRIP KJ BIT OFF 
S760) 86. ES OF CHP DH, GRAPHICS + GRAPHICS MODE } 
e770 a6 FE SS 3B RLPEW11 3 ALPHA_PEN 
0773 72 4D 3--- GRAPHICS MODE 
L.40 3 DIVISOR FOR GRAPHICS 
775 Bz 28 CHP DHS 3 USING 32K REGEN? 
cr7e 38, FE OF ° RLPENS 3 NO, JUMP 
tye a2 Se Mov DL. 80 + YES, SET RIGHT DIVSOR 
07 
tye 6 F2 oheioae Dt ; DETERNINE ROWCAL) AND COLUMN CAH) 
eon jous DETERRINE GRAPHIC ROW POSITION 
; 3 SAVE ROW VALUE IN CH 
preg oe ES ADD cnc 3 M2 FOR EVEN/ODD FIELD 
Hh aed cMP DH, 9 3 USING 32K REGEN? 
"a? wee 3B RLPENG + NO, JUMP 
078 
0739 DO EC SHR AHA + ADJUST ROW & COLUMN 
teen oe ce eee 3G FOR 4 SCAN LINES 
078D 02 ED ADD CH,CH 
Uae REPENA? COLUMN VALUE TO Bx 
oa SUB Bian ; MULTIPLY BY 8 POR MEDIUM RES 
BEE cn me NE MEDIUM OR HIGH RES 
aes CMP DH. 6 3 DETERMINE 
0793 80 FE 06 ni aches 3; MODE 4 OR 5 
ty98 93 ee JA RLPENB + MODE 8, 9, OR A,B 
t:} 
RLPEN?: : 
0794 3 SHIFT VALUE FOR HIGH RE 
ore Be ek SAL ANd 3 COLUMN VALUE TIMES 2 FOR HIGH RES 
o73e EB GB InP «SHORT RLPEXS 
0740 RLPENS: septa uate 
eras 93 oo NM BUEN? 3 MODE A.B 
3 MODE 
O75 76 08 JE RLPENS 3 MO ree 
MODE 8 S| 
ye ne SSP tne a on 
KOT_HIGH_R 
0743 RLPENS: BX, CL ; muLTteee 416 FOR HIGH RES 
O7AB DS E3 ; ite ‘ ~~~ DETERMINE ALPHA CHAR POSITION 
O7AD 3A DS Mov DL. AH + COLUMN VALUE FOR RETURN 
CLEAT TO CONVERT TO WORD 
O7AF 32 €6 XOR AH, AH ; 
187 3 DIVISOR FOR ANK (8 ROW 2 SCAN) 
mas Ae Ge sess R 10 CHP CRT MODE, KRJ_MODE? KANJI MODE ? 
eyes 33 5 3B RLPENLO + NO a 
O7BA BS 09 DH,CBOX_ROW/2 5 _DIVISOR FOR KJ (18 ROW 2 $C 
O7ee FG FG SIPEMER DH 3 DIVIDE FOR CHAR POSITION 
Orbe BA FS mov DH AL 3 SET ROW POSITION TO DH 
o7co EB 21 JM SHORT RLPEN13 5 LIGHT_PEN_RETURN_SET 
RLPEHL1: i--- ALPHA MODE ON LIGHT PEN 
tree F636 0Osa R aia BYTE PTR CRT_COLS i DETERMINE ROWCOLUTN VAtUE 
O7C6 8A FO MOV DH. AL i ROWS To DK 
07C3 8A DG MOV L: i 
A + SET ALM TO CH 
tree. Bh Ee SAL ACcet + MULTIPLY ROWS H 8 
O7CE 80 SE 0049 R 10 CHP CRT_MODE,KJ_MODE; KANJI MODE ? 
oe ial ona hae MULTIPLY ROWS m 18 
, 
070 0 £0 SAL AL,1 5 MULTIPLY ROWS M16 
0707 Dt ES SAL CH, 3 CH HAS CLH2 
0709 02 cs ADD AL. CH SAU HAS CLuig 
07DB RLPEHI2: 
O7DB 8a EB Mov CHLAL + GET RASTER VALUE TO RETURN REO 
0700 ga oc MoV BL, AH + COLUMN VALUE 
O7DF 32 FF XOR BH, BH + TO BX 
O7E1 D3 ES SAL BX, CL 
O7E3 RLPENIS: + LIGHT_PEH_RETURN SET 
O7ES Bs 04 ov AHS t INDICATE EVERYTHTHG SET 
O7€5 RLPENLG: + LIGHT_PEN_RETURK 
O7ES 52 PUSH ox + SAVE RETURN VALUE (IN CASED 
O7ES 8B 16 0063 R ; 
O7EA 83 C2 07 ' 


Mov DX, ADDR_6845 
DX,7 
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O82E 


O82E 
0832 
0837 


083A 
6830 


O83F 
0840 


A& 80 
75 2A 


80 FC 04 
73 23 


A2 0062 8 
8B OE 004C R 


EL 
AS OOSE R 
ES 0602 R 


ES 
8B 87 OSSC R 
E8 O6CO R 


FF 36 0355 R 
80 OF 0355 R FF 
ES 1BE4 R 


80 FC 04 
73 10 


50 
51 


ADDRESS, mae DATA, IS IMPORTANT 
RECOVER VALUE 

RETURN_NO_RESET 

SET FRAME POINTER 

SET RETURN BX 

SET RETURN CX 

SET RETURN DX 


5 ENABLE VIDEO GENERATER 2 
3 RESTORE BP 


et we we we we we we 


INT 10H, AH = 5 


THIS ROUTINE SETS THE ACTIVE DISPLAY PAGE, ALLOWING 
THE FULL USE OF THE RAM SET ASIDE FOR THE VIDEO ATTACHMENT 


DE (MASKED) 
TIVE DISPLAY PAGE 


THE 6845 IS RESET TO DISPLAY THAT PAGE 


TA 


3 SAVE BP 


3 CRIZCPU PAGE ge FUNCTION 
3 YES. GO HANDLE { 


3 GRAPHICS MODE 2? 
+ YES, SKIP 


3 SAVE CRT MODE 


$ SAVE ACTIVE PAGE VALUE 

3 GET SAVED LENGTH OF REGEN BUFFER 
3 CONVERT AL TO WORD 

t SAVE PAGE VALUE 


3 DISPLAY PAGE TIMES REGEN LENGTH 
3 SAVE START ADDRESS FOR LATER USE 
3 START ADDRESS TO CX 

3 DIVIDE BY 2 FOR 6845 HANDLING 

$ 6845 REGISTER FOR START ADDRESS 


RECOVER PAGE VALUE 
M2 FOR WORD OFFSET 


7 


3X,1 
AX, (BX + OFFSET Cursor POSN) ; GET CURSOR FOR THIS PAGE 


3 SET THE CURSOR POSITION 
3 RESTORE CRT MODE 
3 RESTORE BP 


OUT DX AL 
POP DX 
RUPENIS: 
nov saBP, SP 
MOV CBP+F_| 8X1, BX 
MOVs CBP +F7CX.Cx 
Mov (BP+FZDX3,, DX 
CALL ENABLE_VG2 
ropa 
RET 
READ_ULPEN ENDP 
it pe a 
; ACT_DISP_PAGE 
; = ee 
; 
3 
; INPUT AH = CRT MO 
3 AL = NEW AC 
3 
; OUTPUT HONE 
i 
t 
3 
ASSUME CS:CODE, DS:DA 
ACT_DISP_PAGE PROC NEAR 
PUSH BP 
TEST AL, O80H 
JNZ —-SET_CRTCPU 
CMP AH, GRAPHICS 
JAE ACTDPL 
PUSH AX 
MOVs ACTIVE_PAGE. AL 
MOVs CX, CRTTLEN 
CB 
PUSH AX 
mut cx 
HOV ERT_START, AX 
Mov. eX, aX 
SAR CX. 
HOV AN, 12 
CALL OUT6845 
PoP ax 
SAL 
HOV 
CALL —- SET_CURSOR 
Pop ax 
ACTDP.: 
PoP BP 
RET 
ACT_DISP_PAGE _ENDP 
SET_CRTCPU 


INPUT 


4 
3 
3 
4 
3 
5 
s 
3 
3 
3 
3 
4 
3 
3 
3 
5 
t 
5 
3 
4 
3 
‘ 


SET_CRTCPU 
PUSH 
OR 
CALL 


CMP 
JAE 


PUSH 
PUSH 


THIS ROUTINE READS OR 


AH = CRT MO 
AL = 83H 
BH = 
BL = 
cl = 
AL = 82H 
BH Ss 
AL 2 81H 
BL = 
cL s 
AL = 80H 


CURRENT C 


WRITES THE CRYVCPU PAGE REGISTERS 


DE (MASKED) 

SET BOTH CRT AND CPU PAGE REGS 
VALUE TO SET IN CRT PAGE REG 
VALUE TO SET IN CPU PAGE REG 
CRT MODE FOR CPU PAGE 

SET CRT PAGE REG 
VALUE TO ert IN CRT PAGE REG 

SET CPU PAGE REG 
VALUE TO SET IN CPU PAGE REG 
CRT MODE FOR CPU PAGE 

READ CURRENT VALUE OF CRI/CPU PAGE REGS 


OUTPUT a FUNCTIONS RETURN 


ONTENTS OF CRT PAGE REG 


BL = CURRENT CONTENTS OF CPU PAGE REG 


PROC NEAR 


WORD PTR IEP_CTRL 
BYTE PTR IEP_CTRL, TRUE 


DISABLE_INT 


AH, GRAPHICS 
SETCCOO 


ax 
cx 
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3 SAVE INTERRUPT ENABLE PROHIBIT FLAG 
3 PROHIBIT INTERRUPT ENABLE 
3 DISABLE ALL HARDWARE INTERRUPT 


3 GRAPHICS MODE ? 
+ YES 


3 SAVE AX 
+ SAVE CX 
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8B OE CO6O R MoV 
en nov 
EB 0602 R sae 
22 PoP 
SETCCOO: 
£8 0940 R CALL 
80 SE 0069 R 10 cMP 
72 07 JB 
PUSH 
50 
88 853F ar 
co 16 PoP 
58 
seco: 
E38 1DB0 R CALL 
8A EO MOV 
BA O3DA MOV 
scci: ra 
EC 
24 08 AND 
74 FB Jz 
80 FB 08 cMP 
73 08 JAE 
BA O3DF MoV 
AQ 008A R Mov 
EB 06 JMP 
SCC2e 
BA 0309 MOV 
AO O33C R MOV 
SCC3: 
80 FC 80 CMP 
74 3E JZ 
80 FC 84 cmp 
73.39 JHC 
Fo C4 01 TEST 
74 39 JZ 
53 PUSH 
88 OE 0069 R MOV 
8A FO MoV 
8A D9 MOV 
30 E3 OF AND 
E8 O5S9C R CALL 
58 PoP 
88 1E O34C R MoV 
E8 1888 R CALL 
EB 1BB4 R CALL 
DO ES SHL 
DO E3 SHL 
Do E3 SHL 
24 ¢7 AND 
80 ES 38 AND 
0a C3 OR 
EE ouT 
80 SE 034C R 08 cmp 
73 07 JAE 
A2 OOSAR MoV 
EB 05 JMP 
sccs2: 
EB 43 JP 
SCC4: 
A2 O33 R MOV 
secs: 
Fé C4 62 TEST 
74 3B JZ 
88 SE O34D R Mov 
80 FF 08 
73 08 ie 
BA O3DF 
AO 008A R Mov 
EB 06 JMP 
BA 0309 scoklae 
AO O33C.R rt Mov 
26 FB secs: ive 
80 £7 07 AND 
OA C? OR 
EE our 
8A 26 03467 R MoV 


CX, CURSOR_MODE 


3 GET CURSOR MODE OF TEXT 


CH,CURSOR_DISABLEs DISABLE CURSOR 


AH, 10 
OUT6845 
cx 


AX 
ERASE_SCURSOR 


+ SET 6845 CURSOR REGISTER 
3 OUT DATA TO 6845 

t RESTORE CX 

3 RESTORE Ax 


3 ERASE SOFTWARE CURSOR 


CRT_MODE,KJ_MODE; KANJI MODE ? 
scco 3 KO 


Ax 

AX, KKN_TERM 
KEYBORD 

Ax 


ENABLE_VG1 
AH, AL 

DX, VGA_CTL 
AL, DX 

AL, VERTRET 
ScCl 

BL, VRAM2_PAGE 
SCC2 


DX, PAGREG 
AL, PAGDAT 
SHORT SCC3 


DX, PAGREG2 
AL. PAGDAT2 


Bx 
CRY_MODE.CL 
BH,CL 

BL,CL 


BL, KJ_OFF 
SMODE_SET 
BX 


CPU_PAGE, BL 


ENABLE_KJROM 
ENABLE_VRAM 


BL,1 

BL,1 

BL.1 

AL, NOT CPUREG 
BL,CPUREG 

AL, BL 

DX,AL 


TERMINATE KANA-KAN 


we ee ee 


s--~~~ WAIT VERTICAL RETRACE 
3 ENABLE VIDEO GENERATER 1 


3 SAVE REQUEST IN AH 
} SET ADDRESS OF GATE ARRAY 


3 GET STATUS 
+ VERTICAL RETRACE? 
3 NO, WAIT FOR IT 


s-~~-- SELECT VIDEO RAM 1 OR 2 
+ VIDEO RAM 2 ? 
3 YES 


3 SET IQ ADDRESS OF PAGE REG 
5 GET DATA LAST OUTPUT TO REG 


3 SET I0 ADDRESS OF PAGE REG 
3 GET DATA LAST OUTPUT TO REG 


3~~~-~ CHECK FUNCTION 
READ FUNCTION REQUESTED? 
YES, DON'T SET ANYTHING 
VALID REQUEST? 

NO, PRETEND IT WAS A READ REQUEST 
SET CPU REG? 

NO, GO SEE ABOUT CRT REG 
SAVE PAGE NO. 

SET MODE 

SET UNMASKED MODE TO BH 
SET MASKED MODE TO BL 


SET SOFTWARE MODE 


We we we we we we we we we we we we 


~ 


SET NEW CPU PAGE 


DISABLE BOTH VRAM1 AND VRAM2 ONCE 
SELECT V-RAM ACCORDING TO CPU PAGE 


s~> NEW CPU PAGE IS IN CURRENT V-RAM 
3 SHIFT VALUE TO RIGHT BIT POSITION 


ary 


+ CLEAR OLD CPU VALUE 

+ BE SURE UNRELATED BITS ARE ZERO 
+ OR_IN NEW VALUE 

3 SET NEW VALUE 


CPU_PAGE,VRAM2_PAGE ; VIDEO RAM 2 ? 
secy 3 YES 


PAGDAT,AL 
SHORT SCC5 


SHORT S¢c11 


PAGDAT2,AL 
AH,2 
scecii 


CRT_PAGE, BH 
BH, VRAM2_PAGE 
SCC? 

DX, PAGREG 


AL, PAGDAT 
SHORT Sccs 


DX, PAGREG2 
AL, PAGDAT2 
AL,NOT CRTREG 
BH, CRTREG 

AL. BH 

OX, AL 

AK, SUPIPCR 
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3 SAVE COPY IN RAM 


s INTERMEDIATE POINT TO JUMP 


3 SAVE COPY IN RAM 
$ SET CRT REG? 
s HO, GO RETURN CURRENT SETTINGS 


s-=--- SET CRT PAGE 
+ SAVE CRT PAGE TO RAM 


} VIDEO RAM 2 ? 
3 YES 


5 
3 


CLEAR OLD cRY vaLUE 

BE SURE UNRELATED BITS ARE ZERO 
OR IN NEW VALUE 

SET NEW VALUES 


we we ee we 


~ 


GET LAST DATA OF SUPERIMPOSE CONTROL REG. 


> 


6940 


0940 
0941 


0942 
0965 


0947 
094c 


O94E 
0952 
0956 


0959 
O95E 
O9SE 
O9SF 


80 SE 034D R 08 cme CRT_PAGE,VRAM2_PAGE 5 VIDEO RAM 2 ? 
73 08 JAE scc9 3 YES 
A2 OOBA R MOV PAGDAT,AL 3 
80 E4 FE AND AH, NOT FOREVRAM 3 SET V-RAM AS BACKGROUND 
EB 06 JMP SHORT SCC1O0 
sccgo: 
A2 033C R MOV PAGDAT2,AL ; 
80 CC 01 <ce19 R AH, FOREVRAM 3 SET V-RAM AS FOREGROUND 
? 
E8 0929 R $cc14 CALL SET_SUPREG 3 SET AH TO SUPERIMPOSE REGISTER 
: 
BA SE OS4D R MOV BH, CRT_PAGE 3 GET CURRENT CRT PAGE 
BA 1E O3S4C R MOV BL,CPU_PAGE 3 GET CURRENT CPU PAGE 
E8 1DD6 R CALL ENABLE_VG2 3; ENABLE VIDEO GENERATER 2 
BS O03 MOV AH,3 3 GET CURSOR TYPE 
cD 10 INT VIDEO 3 
BS 01 MoV AH,1 3 SET CURSOR TYPE 
CD 10 INT VIDEO 5 
scci2: 
8F 06 0355 R PoP WORD PTR IEP_CTRL;RESTORE INTERRUPT ENABLE PROHIBIT FLAG 
E8 1BEC R CALL ENABLE_INT 3 ENABLE INTERRUPT IF IT IS NOT PROHIBITED 
8B EC MOV BP,SP 3 SET FRAME POINTER . 
89 5E 08 MOV (BP+F_8X),BX 3 SET RETURN BX 
5D PoP BP 3 RESTORE BP 
C3 RET 
SET_CRTCPU ENDP 
yoodescas Siiwowewcewerewawsecworeacecwetcs Ccueweutwceennees 
3 
3 SET_SUPREG SET SUPERIMPOSE REGISTER 
3 welnosJocs 
Pf 
3 THIS ROUTINE SET SUPERIMPOSE REGISTER 
3 
3 INPUT AH = VALUE TO SET 
3 os = DATA SEGMENT 
Hy OUTPUT NONE 
3 VOLATILE AL, BX, DX 
3 
J iwdidesGeececcmsecceceucuteesnn: Suvndcbesnsaccesstecassccss 
SET_SUPREG PROC = NEAR 
8a 0c MOV BL. AK 3 SET OUT DATA TO BL 
F6 C3 02 TEST BL, TRANSON 3 SET SUPERIMPOSE ON ? 
75 03 JNE SUPREGL 3 YES 
80 ES OL eureeai A BL, FOREVRAM 3 MASK MODE CONTROL BITS FOR SUPERIMPOSE OFF 
: 
B7 06 MOV BH,PCSUPER 3 SET SUPERIMPOSE CONTROL REG 
BA OSDA MOV DX,S2ABASE 3 GET ADDRESS OF SX-02A 
€8 1E22 8 CALL OUT_GA 3 QUT BX TO GATE ARRAY 
88 26 0347 R MOV SUPIPCR, AK 3 SAVE NEW VALUE TO RAM 
C3 RET 
SET_SUPREG ENDP 
Jrroeoceee ce cece cesoeoseeenooosoorre —— ee: el 
3 
3 ERASE_SCURSOR ERASE SOFTWARE CURSOR 
; Seccneoreens 
t 
i THIS ROUTINE ERASE SOFTWARE CURSOR IF IT PRESENTS 
’ INPUT AK = CRT MODE (MASKED) 
3 DS = DATA SEGMENT 
’ OUTPUT NONE 
’ VOLATILE NONE 
5 
Breror reese eee eeewcce eee eee weer ewww eeoweeeen= —awaweeeee 
ERASE_SCURSOR PROC NEAR 
$1 PUSH = CX 3 SAVE CX 
52 PUSH DX 3 SAVE DX 
80 FC 04 cup AK, GRAPHICS 3 GRAPHICS MODE ? 
72:17 JB ERACRS1 + NO, 
F6 06 0349 R FF TEST GC_PRESENT, TRUE 3 GRAPHICS CURSOR PRESENT ? 
74 10 J2 ERACRS1 + WO 
8B OE OS4E R MOV CX,GCURSOR_MODE 3 SET CURSOR MODE 
8B 16 O3SC R MOV DX, CURSOR_POSN 3 SET CURSOR POSITION IN GRAPHICS 
E8 0618 R CALL  WRITE_GCURSOR 3 WRITE GRAPHICS CURSOR 
Cb 06 0349 R 00 MoV GC_PRESENT, FALSE ) FLAG OFF 
ERACRS1: 
SA PoP vx 3 RESTORE DX 
59 PoP cx 3 RESTORE CX 
cs REY 
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0961 


$1 
$2 


80 


721 


8B 
8B 
€8 


SA 
59 


C3 


55 


8B E 


50 
iz} 


8A Di 


88 


80 
73 


&& 
eB 


FC 04 
L) 


OE OS4E R 
16 O35C R 
0618 R 


06 0349 R FF 


EC 06 
c 


0940 R 


8 
€7 77 
66 08 


FC 04 
os 


O9co R 
27 


SE 0069 8 10 
1D 


OoA0 
co 


69C9 R 


ERASE_SCURSOR ENDP 
ae atctevads hort 2 ata es sel tte i So ionetacuneeuuseLtoy 
3 APPEAR_SCURSOR APPEAR SOFTWARE CURSOR 
‘ ja Els phd iba 
; THIS ROUTINE APPEAR SOFTWARE CURSOR 
; INPUT AH = CRT MODE 
; DS = —s—dDATA SEGMENT 
’ OUTPUT NONE 
3 VOLATILE NONE 
8 
f Sewccceusececds Be edismeas wer ec ewe ewnwneennenennccen ean ee ne 
APPEAR_SCURSOR PROC NEAR 
PUSH CX 3 SAVE REGISTERS 
PUSH DX 3 
cup AH, GRAPHICS 3 GRAPHICS MODE ? 
JB APPCRS1 3 NO, 
MOV CX, GCURSOR_MODE 3 SET CURSOR MODE 
MOV DX, CURSOR_POSN 3 SET CURSOR POSITION IN GRAPHICS 
CALL  WRITE_GCURSOR s WRITE GRAPHICS CURSOR 
MoV GC_PRESENT, TRUE + FLAG ON 
APPCRS1: 
PoP DX 3 RESTORE REGISTERS 
PoP cx ; 
RET 
APPEAR_SCURSOR ENDP 
Jom ene ce nna nn wwn cee newew en nencnnnnececcecen 
3 
; SCROLL_U! INT 10H, AH = 6 
5° Beeen ce ei 
3 THIS ROUTINE MOVES A BLOCK OF CHARACTERS UP 
3 ON THE SCREEN 
3 
3 
3 INPUT AH = CURRENT CRT MODE ( MASKED 
3 AL = NUMBER OF ROWS TO SCROLL 
; CX = ROW/COLUMN OF UPPER LEFT CORNER 
3 DX = ROW/COLUMN OF LOWER RIGHT CORNER 
3 BH = ATTRIBUTE TO BE USED ON BLANKED LINE 
3 DS = DATA SEGMENT 
3 ES = REGEN BUFFER SEGMENT 
t 
3 OUTPUT NONE -- THE REGEN BUFFER IS MODIFIED 
; WORK CBP+SUC_MODE] = CURRENT CRT MODE ( MASKED ) 
3 CBP+SU_ULR}] = ROW OF UPPER LEFT CORNER 
3 CBP+SU_TSR] = TOP OF SOURCE ROW 
3 CBP+SULES1] = SEGMENT OF V-RAML 
3 
Peeeecccos ste ec cs eaesaeee ssi c cot okk 
ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
SCROLL_UP PROC HEAR 
. PUSH BP 3 SAVE BP 
SuB SP, SUP_LOCAL 3 ALLOCATE LOCAL WORK AREA 
MOV BP,SP + SET BP AS FRAME POINTER 
PUSH = AX 3 SAVE CRT MODE 
PUSH = DS + SAVE DS 
CALL ERASE_SCURSOR 3 ERASE SOFTWARE CURSOR 
MOV BLLAL + SAVE LINE COUNT IH BL 
AND BH, HAN_MASK 3 STRIP KANJI BITS OFF FOR SPACE CODE 
MOV BYTE PTR [CBP4SUC_MODE),AH; SET MASKED CRT MODE 
CMP AH, GRAPHICS + TEST FOR GRAPHICS MODE 
JAE SCRUP1 3 YES, HANDLE SEPARATELY 
CALL TEXT_uP 3 SCROLL TEXT UP 
JMP SHORT SCRUPS + GO TO EXD 
SCRUP1: me 
CRT_MODE,KJ_MODE; KJ GRAPHICS MODE 
JB scrir2 + NO ' 
MOV BYTE PTR (BP+SU_ULR),CH + SET UPPER LEFT ROW POSITION 
MOV BYTE PTR [BP+SU_TSR.CH ; Neen ae 
ADD BYTE PTR CBP#SU_TSR),AL 3 SET TOP OF SOURCE ROW POSITION 
PUSH = AX ; 
San 
cx 
PusH ‘e ; SAVE REGISTERS 
PUSH DS ; 
PUSH ES i 
MoV AX,P CODE_START 3 SET P 
HOV ES AR oe ' es Esubo CODE BUFFER SEGMENT 
CALL 


TEXT_UP 
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5 SCROLL TEXT UP 


iF 
58 
Es 
83 

D 
cs 


OA2B R 


0961 R 
C4 06 


Ps RT_ 
DI.SI = REGEN ADDRESS CORRESPONDING TO ROW/COLUMNN 


FLAG = Bilas OF BL 


DS = 


PoP ES 3 
POP DS 5 
PoP Dx 3 
PoP cx 3 RESTORE REGISTERS 
PoP Bx 3 
PoP ax 3 
SCRUP2: 
ALL GRAPHICS_UP s SCROLL IN GRAPHICS MODE 
SCRUP3: 
ASSUME DS: DATA 
PoP dS 3 RESTORE DS 
POP AX 3 RESTORE CRT MODE 
CALL APPEAR_SCURSOR 3 WRITES SOFTWARE CURSOR 
ADD SP,SUP_LOCAL 3 DEALLOCATE LOCAL WORK AREA 
POP BP 3 RESTORE BP 
RET 3 RETURN TO CALLER 
SCROLL_UP ENDP 
Jeree enone eee eee 
3 
3 TEXT_UuP 
3 
3 THIS ROUTINE MOVES A BLOCK OF CHARACTERS UP 
3 ON THE TEXT SCREEN 
$ 
3 THPUT BH = ATTRIBUTE TO BE USED ON BLANKED LINE 
3 BL = NUMBER OF ROWS TO SCROLL 
3 CX = ROW/COLUMN OF UPPER LEFT CORNER 
3 DX = ROW/COLUMN OF LOWER RIGHT CORNER 
3 DS = DATA SEGMENT 
5 ES = REGEN BUFFER SEGMENT 
; OUTPUT NONE 
3 
: VOLATILE AX, BL,CX,DX,$1,DI,DS 
TEXT_UP PROC NEAR 
PUSH BP 3 SAVE BP 
PUSH BX 3 SAVE FILL ATTRIBUTE IN BH 
Mov AX, CX 3 UPPER LEFT POSITION 
CALL SCROLL_POSITION ; DO SETUP FOR SCROLL 
JZ TUP4 3 BLANK_FIELD 
ASSUME DS: VIDEO_RAM 
ADD SI,AX 3 FROM ADDRESS 
MOV AH,DH 3 @ ROWS IN BLOCK 
SUB AH, BL 3 ®@ ROWS TO BE MOVED 
TUPi: 
CALL MOVE_ROW 3 MOVE ONE ROW 
ADD »BP 
ADD DI,BP 3 POINT TO NEXT LINE IN BLOCK 
DEC AH 3 COUNT OF LINES TO MOVE 
INZ TUPL 3 ROW_LOOP 
TUP2: 
POP ax 3 RECOVER ATTRIBUTE IN AH 
mov AL," ° 3 FILL WITH BLANKS 
TUP3: 
CALL CLEAR_ROW 3 CLEAR THE ROW 
ADD DI, BP 3 POINT TO NEXT LINE 
DEC L 3 COUNTER OF LINES TO SCROLL 
JNZ TuPS 3 CLEAR_LOOP 
PoP BP 3 RESTORE BP 
RET 3 RETURN TO CALLER 
TUP4: 
Mov BL.ON + GET ROW COUNT 
JMP TUP2 3 GO CLEAR THAT AREA 
TEXT_UP ENDP 
PT Ser wennn was Sirs iSeSerena sucess eecercec at dt cceewecck 
3 
3 SCROLL_POSITION 
8 
, THIS ROUTINE SET UP SOME PARAMETERS FOR SCROLL FUNCTION 
3 INPUT aX = ROW/COLUMN 
3 BL = SCROLL ROW NUMBER 
i] 
5 OUTPUT ax = BL * CRT_COLS x 2 
$ s 
3 OX = DIFFERENCE OF ROW/COLUMN 
$ BP = CRT_COLS & 2 
3 
t 
i 
tf 
3 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
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weds SCROLL_POSITION PROC —NEAR 
TION ; CONVERT TO REGEN POINTER 
O9FS ES O6D5 RS ADDS AX CRT. START ; OFFSET OF ACTIVE PAGE 
09FB 03 06 00 MOV DI. AX ; TO ADDRESS FOR SCROLL 
sire oo MOV ST, AX 3 FROM ADDRESS FOR SCROLL 
va Gn SUB DX, eX s DX = @ROWS, OCOLS IN BLOCK 
N 
oao2 FE Cé Ine BL 3 INCREMENT FOR 0 ORIGIN 
eabe Se 68 XOR CH. CH 3 SET HIGH BYTE OF COUNT To ZERO 
mov BP, CRT_COLS 3 GET NUMBER OF COLUMNS IN DISPLAY 
wae ah ee Rae S ADD BP, BP. ~ 3 TIMES 2 FOR ATTRIBUTE BYTE 
errr ae ee Mov AL, BL 3 GET LINE COUNT 
DAO at ee etek R MUL BYTE PTR CRT_COLS ; DETERMINE OFFSET TO FROM ADDRESS 
sas 63 ce ADD AX, AX 3 *2 FOR ATTRIBUTE BYTE 
PUSH ES + ESTABLISH ADDRESSING TO REGEN BUFFER 
He te POP DS 3 FOR BOTH POINTERS 
oR BL, BL ; 0 SCROLL MEANS BLANK FIELD 
in cs RET $ RETURN WITH FLAGS SET 
aie SCROLL_POSITION ENDP 
jebckessememstes meet o ee a ced Scotto toe 
3 
3 MOVE_ROW 
3 
; THIS ROUTINE MOVES ONE ROW IN TEXT MODE 
3 
; INPUT DL = NUMBER OF CHARACTERS TO MOVE 
3 DS:SI = SOURCE TOP ADDRESS 
; ES:DI = DESTINATION TOP ADDRESS 
; OUTPUT NOTHING 
; VOLATILE cu 
; 
fumeiSebesec ue econ cntcecewtend eiesecwaceenede es 
ASSUME CS:CODE, DS:VIDEO_RAM, ES:VIDEO_RAM 
pais MOVE_ROW PROC NEAR 
AlB 8A CA Mov CL. DL 3 GET @ OF COLS TO MOVE 
OAlD 56 PUSH SI 
CALE 57 PUSH ODI 3 SAVE START ADDRESS 
AIF FSV AS REP MOVSW + MOVE THAT LINE ON SCREEN 
F POP DI 
daze SE PoP $1 3 RECOVER ADDRESSES 
A2S C3 RET 
paze MOVE_ROW ENDP 
fsa cas ers Sepa eee ee eee eT eee oe 
3 
; CLEAR_ROW 
3 THIS ROUTINE MOVES ONE ROW IN TEXT MODE 
3 
3 INPUT AX = — ATTRIBUTE/CHARACTER TO FILL 
3 ES:DI = DESTINATION TOP ADDRESS 
3 
; OUTPUT NOTHING 
3 
z VOLATILE cL 
t 
ons CLEAR_ROW PROC NEAR 
OAze 8h CA mov — ¢L.DL + GET @ COLUMNS TO CLEAR 
0427 FS7 AB REP STOW s STORE THE FILL CHARACTER 
OA2A C3 RET 
oa2s CLEAR_ROW ENDP 


SCROLL UP (GRAPHICS) 


THIS ROUTINE SCROLLS UP THE INFORMATION ON THE CRT 


INPUT {BP+SUC_MODE) CURRENT CRT MODE ( MASKED ) 


(BP+SU_ULR) = ROW OF UPPER LEFT CORNER 

CBP+SU_TSR) = TOP OF SOURCE ROW 

ees = UPPER LEFT CORNER OF REGION TO SCROLL 
’ 


DL_= LOWER RIGHT CORNER OF 
BOTH OF THE abave OF REGION TO SCROLL 


ARE IN CHARACTER POSITIONS 


‘i = isn ee as BLANKED LINES 

. CROLL (AL= ) 
DS = DATA SEGMENT L=0 MEANS BLANK THE ENTIRE FIELD 
ES = REGEN SEGMENT 


OUTPUT NOTHING, THE SCREEN IS SCROLLED 


VOLATILE AX, BL,CX,DX,$1,DI,D$ 


wes We we Be we we we we we we we Be Oe OF Be we Oe Oe we Oe OF Oe 


ASSUME CS:CODE, DS:DA 
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TA, ES:VIDEO_RAM 


OA2B GRAPHICS_uP PROC NEAR 


8 mov BL,AL 3 SAVE LINE COUNT IN BL 
oa2D HH et MoV AX, CX + GET UPPER LEFT POSITION INTO AX REG 


g-~~ USE CHARACTER SUBROUTINE FOR POSITIONING 
s-ADDRESS RETURNED IS MULTIPLIED BY 2 FROM CORRECT VALUE 


QA2F €8 15EB R CALL GRAPH_POSN 
OAS2 8B F8& MoV DI,AX 3 fue AS DESTINATION 

H DI 

3--~- DETERMINE SIZE OF WINDOW 
OA34 2B DI sus DX, CX 
OA36 81 C2 0101 ADD OX,101H 3 ADJUST VALUES 
OASA 8A E6 MoV AH, DH 3 SAVE VALUE OF DH¥1 TO AH 
OA3SC DO E6 SAL DH,2 5 MULTIPLY 8 ROWS BY 4 SINCE 8 VERT DOTS/CHAR 
OASE DO E6 SAL DH,1 3 AND EVEN/ODD ROWS 
GAS0 80 3E 0049 R 14 CMP CRT_MODE,KJGRAPH; KANJI GRAPHICS MODE ? 
OA45 72 04 JB GRUP1 3 WO 
OAS7) «DO E6 SAL DH,1 3 MULTIPLY @ ROWS BY 9 SINCE 18 VERT DOTS/CHAR 
OAS9 02 F4 ADD DH, AH 3 
OASB GRUP1: 
OASB «E88 1D95 R call get_dirseg 3 get direct access segment of v-ranal 
OASE 89 46 04 mov Cbp+su_esl),ex 3; save it 

3-~~ DETERMINE CRT MODE 
OAS1 8A 66 00 Mov AH, CBP*SUC_MODE) ; SET CRT MODE TO AH 
OA54 80 FC 06 CMP AH.6 3 TEST FOR HIGH RES 
OAS7 76:17 JE GRruP2 3 FIND_SOURCE 

3~-~- MEDIUM RES UP 
OA59 DO E2 SAL DL,2 3 @ COLUMNS ™ 2, SINCE 2 BYTES/CHAR 
OASB D1 E7 SAL DI,1 3 OFFSET *2 SINCE 2 BYTES/CHAR 
QASD 80 FC 04 cmMP AH,4¢ 3 TEST FOR MEDIUM RES 
QOA60 74 OF JE GRuP2 
0462 80 FC 05 cmp AH,5 + TEST FOR MEDIUM RES 
OA6S 74 09 JE GRuP2 
QAG7? 80 FC OA CMP AH, OAH 3 TEST FOR MEDIUM RES 
OAGA 73 04 JAE GRuP2 

s~--- LOW RES uP 
Oa6C DO E2 SAL DL,2 + @ COLUMNS * 2 AGAIN, SINCE 4 BYTES/CHAR 
OAGE Di E7 SAL DI,2 + OFFSET 2 AGAIN, SINCE 4 BYTES/CHAR 

g---~=~ DETERMINE THE SOURCE ADDRESS IN THE BUFFER 
0A70 GRUP2: + FIND_SOURCE 
0A70 2A ED SUB CH,CH 3 ZERO TO HIGH OF COUNT REG 
OA72 OA DB OR BL,BL 3 @ LINES TO SCROLL IS ZERO ? 
OA7&4 75 16 JNZ GRUPS 3 IF ZERO, THEN BLANK ENTIRE FIELD 
0A76 8A DE MOV BL.DH s SET BLANK COUNT TO EVERYTHING IW FIELD 
OA78 80 SE 0049 R 19 CMP CRT_MODE,19H 3 KJ GRAPHICS 32K REGEN ? 
OA7D 72 0A JB RUPS 3 NO 
OA7F F6 46 01 O01 TEST BYTE PTR (BP+SU. ? 
gas 76 a : 1 qutes C ULR),1 ; one ROW 
8 FBO aoD DI,4000H-80 *+ ADJUST POINTER 
0as9 GRUPS: Pet Pe 
OA89 «ED OB1D R JMP GRUP12 
0aac GRUP4: 
eine $3 : oer rere $ SAVE VALUE OF BL™L TO AL 
0A90 DO ES Sat Het 3 MULTIPLY NUMBER OF LINES BY 4 
OA92 80 SE 0049 R 14 cmPp CRT_MODE,KJGRAPH3 KJ GRAPHICS MODE ? 
OAM?) 72 04 JB GRUPS 3 NO 
OA99 DO ES SAL BLL ta | P Nl 9 
OAS 02 bs a DD: et : ULTIPLY NUMBER OF LINES BY 
$38 an cs eet 
MOV ALLBL 3 GET NUMBER OF LINES IN AL 

OA9F B4 50 MOV AH, 80 + 80 BYTES/ROW 
OAAL F6 E4 MUL AH 3 DETERMINE OFFSET TO SOURCE 
OAAS 8B F? MOV SI.DI 3 SET UP SOURCE 
OAAS O03 FO ADD SI,AX 3) = ADD IN OFFSET TO IT 
OAA? BA E6 MOV AH,DH 3 NUMBER OF ROWS IN FIELD 
OAAD 2A E3 SUB AH,BL + DETERMINE NUMBER TO MOVE 
QAAB AO 0049 R MoV AL. CRT_MODE 3 SET GRAPHICS MODE TO AL 
QAAE 06 PUSH Es + GET SEGMENTS BOTH POINTING TO REGEN 
OAAF 1F PoP oS 


ASSUME DS: VIDEO_RAM 
b-=-~ LOOP THROUGH, MOVING ONE ROW AT A TIME, BOTH EVEN AND ODD 
3 FIELOS 


OABO 80 7E 00 09 cMP BYTE PTR [BP+SUC_MODE).9 ; MODE USES 32K REGEN? 
OABS 73 11 JAE GRUP? + YES 

OABG GRUP6: 3s ROW LOOP 

OABG «EB ODES R CALL G_MOVE_ROW 3 MOVE ONE ROW 

OABO «81 EE 1F80 SUB S1I,2000H-80 3 MOVE TO NEXT ROW 

OABD 81 EF 1FBO SUB DI,2000H-80 

OACL FE CC DEC AH 3 NUMBER OF ROWS TO MOVE 

OACS 75 FL JNZ GRUP6 s CONTINUE TILL ALL MOVED 

OACS EB 52 Jp SHORT GRUP12 ; MOVE END 
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oB19 
OBB 


OB1B 
OBIF 


oB21 
OB22 


B23 
OB26 


OB29 
OB2A 


OB2B 
B28 


OB2E 
0332 


OBS4 
0836 


0838 
oBsc 
0B40 


0842 
OBS 


obese 
OBGA 


oBsc 
0BSD 


OBSE 
0B51 


0B546 
0855 


OBS6 
0BS6 
0BS9 
0BSD 
OB61 


OB6S 
0BG7 


GRUP7: sie 
3¢ 14 
72 16 JB 
F6 46 01 01 TEST 
it & SFBO AbD 
8 
GRUP8: 
F6 46 02 01 TEST 
a te SFBO ADD 
1 6 
. GRUP9: 
80 7E 00 OB CMP 
75 11 JHE 
57 PUSH 
56 PUSH 
1E PUSH 
06 PUSH 
8E SE 06 MOV 
8E 46 04 MoV 
E8 OD63 R CALL 
07 PoP 
1F POP 
SE PoP 
SF PoP 
GRUP91: 
E8 OD63 R CALL 
81 C6 2000 ADD 
81 FE 8000 cMP 
72 04 JB 
81 EE 7F6O SUB 
GRUP1O: 
81 C7 2000 ADD 
81 FF 8000 CMP 
72 06 JB 
81 EF 7F60 sus 
GRUP11: 
FE CC DEC 
7S 6 JNZ 
GRUP12: 
8A C7 MoV 
GRUPIS: 
80 7E 00 OB CMP 
75 0A JHE 
57 PUSH 
06 PUSH 
8E 46 06 MOV 
E8 OD7C R CALL 
07 PoP 
SF POP 
GRUP131: 
E8 OD7C R CALL 
80 7E 00 09 CMP 
72:33 Je 
FE CB DEC 
74°37 Jz 
81 C7 2000 ADD 
81 FF 8000 CMP 
72 04 JB 
81 EF 7F60 “sus 
GRUP 14: 
80 7E 00 op 
75 0A ii 
57 PUSH 
oe, PUSH 
BE 46 06 
€8 OD7C R cnt 
07 
Pop 
SF POP 
GRUP141: 
E8 oDIC R CALL 
81 C7 3FB0 
81 FF S9FBO ao 
72 04 ri 
81 EF 7F60 sus 
GRUP15: 


ten~~ 32K REGEN 
AL. KJGRAPH 3 KJ GRAPHICS MODE ? 
GRUP9 3 NO 
BYTE PTR (BP+SU_ULR),1 3; 
GRUPS 
DI, 4000H-80 
BYTE PTR (BP*SU_TSRI,1 
GRUP? 
$1,4000H-80 


ODD ROW ? 

NO 

ADJUST POINTER 
ODD ROW ? 

NO 

ADJUST POINTER 


wee 


; 
3 
3 


640 X 200 X 16 COLOR ? 
a SCROLL V-RAM 1 
SAVE REGISTERS 


BYTE oe (BP *SUC. OBEY See 3 
GRUP? NO 


; 

; 
Es 3 
DS, (BP+su_ES1) 


3 GET SEGMENT OF V-RAM 1 

ES,(BP+Ssu_E$1) 3 

G_MOVE_ROW + MOVE ROW 

Es ; 

Ds 3 RESTORE REGISTERS 

SI 3 

DI 3 

G_MOVE_Row 3 MOVE ONE ROW 

S1T,2000H 3 NEXT ROW 

SI,8000H 3 IN 32K REGEN 2 

GRUPO + YES 

ST,8000H-160 + NO, WRAP 

DI,2000H 3 NEXT ROW 

DI,8000H 3 IN 32K REGEN ? 

GRUP11 3 YES 

DI,8000H-160 + NO, WRAP 

AH + NUMBER OF ROWS TO MOVE 

GRUP? } CONTINUE TILL ALL MOVED 
s--~ FILL IN THE VACATED LINECS) 
3 CLEAR_ENTRY 

AL,BH 3 ATTRIBUTE TO FILL WITH 


BYTE PTR [BP+SUC_MODE),0BH 3 640 X 200 x 16 COLOR ? 
GRUP132 + NO 


DI + SAVE REGISTERS 

eS 3 

ES,CBP+SU_ES1) 5 GET SEGMENT OF V-RAM 1 
G_CLEAR_ROW 3 CLEAR ROW 

ES 3 RESTORE REGISTERS 

DI 3 

G_CLEAR_ROW 3 CLEAR THAT ROW 


BYTE PTR (BP#SUC_MODE),9 ; MODE USES 32K REGEN? 
GRUPIS 3 NO, JUMP 


BL 3 ADJUST COUNT 

GRUP 16 + IF ZERO, THEN DONE 
DI,2000K 

DI,8000H 5 IN 32K REGEN RANGE ? 
GRUP 14 + YES 


DI,8000H-160 3 ADJUST POIHTER 


BYTE PIR CBP+SUC_MODE), oBH 0x 16 COLOR ? 
GRUPLOy wae 3 64 200 X 16 ¢ 


DI + SAVE REGISTERS 

ES ; 

ES,CBP4SU_ES1) ; GET ,SEGHENT OF V-RaM 
G_CLEAR_ROW } CLEAR ROW ila 

ES 3 RESTORE REGISTERS 

DI ; 

G_CLEAR_ROW + CLEAR 2 MORE ROWS 
DI,2000H + (2000H-80) 

Cro OOH + (2000K-80)5 IN 32K REGEN RANGE ? 
GRUP15 > YES 


DI.8000H-160 + BACK UP POINTERS 
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81 
FE 
75 
cs 


55 


EF 1FBO 
cB 
ac 


EC 06 


8B EC 


50 
Es 
FD 
8A 
80 
88 
73 


EB 2 


0940 R 


Ds 
—7 77 


66 00 
FC 04 
05 


OBBF R 
7 


SE 0049 R 14 
1D 


OOAG 
co 


OBBF R 


0961 R 
C4 06 


SUB DI,2000H-80 3 POINT TO NEXT LINE 
DEC BL 3 NUMBER OF LINES TO FILL 
JNZ GRUP1$ + CLEAR_LOOP 
GRUP 16: 
RET 3 EVERYTHING DONE 
GRAPHICS_UP ENDP 
Jeeewnenn anne. seewece Sennwewencunons= 
SCROLL_DOWN INT 10H, AH = 7 


THIS ROUTINE MOVES THE CHARACTERS WITHIN A DEFINED 
BLOCK DOWN ON THE SCREEN, FILLING THE TOP LINES 
WITH A DEFINED CHARACTER 


INPUT AH = CURRENT CRT MODE ( MASKED ) 
AL = NUMBER OF LINES TO SCROLL 
CX = UPPER LEFT CORNER OF REGION 
DX = LOWER RIGHT CORNER OF REGION 
BH = ATTRIBUTE TO BE USED ON BLANKED LINE 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 


QUPUT NONE -~ SCREEN IS SCROLLED 


WORK CBP*SDC_MODE) CURRENT CRT MODE ( MASKED ) 
CBP*SD_LRR) LOWER RIGHT ROW POSITION 
CBP+SD_B8SR) BOTTOM OF SOURCE ROW POSITION 
{BP+SD_ES1) SEGMENT OF V-RAM 1 


ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 


Be We we We we we we we we OF OF Oe Be Be we Oe we we Be OF Oe we 


SCROLL_DOWN PROC NEAR 
PUSH BP 3 SAVE BP 
SUB SP,SDN_LOCAL 3 ALLOCATE 2 BYTE FOR LOCAL WORK AREA 
MOV BP,SP 3 SET BP AS FRAME POINTER 
PUSH Ax 3 SAVE CRT MODE 
PUSH DS 3 SAVE DS 
CALL ERASE_SCURSOR 3 ERASE SOFTWARE CURSOR 
STD 3 DIRECTION FOR SCROLL DOWN 
MoV BLLAL 3 LINE COUNT TO BL 
AND BH, HAN_MASK 3 STRIP KANJI BITS OFF FOR SPACE CODE 
MoV BYTE PTR (BP*SDC_MODEJ,AH; SEY MASKED CRT MODE 
CMP AH, GRAPHICS 3 TEST FOR GRAPHICS 
JAE SCRDN1 3 YES, HANDLE SEPARATELY 
CALL TEXT_DOWN 3 SCROLL TEXT DOWN 
JmP SHORT SCRDNS 3 END 
SCRDN1: 
CMP CRT_MODE,KJGRAPH; KJ GRAPHICS MODE ? 
JB SCRBN2 3 NO 
mov BYTE PTR C(BP+#SD_LRR),DH 3 SAVE LOWER RIGHT ROW POSITION 
MOV BYTE PTR (BP+SD_BSRJ,DH ; 
SUB BYTE PTR C(BP*SD_BSR),AL ; SAVE BOTTOM OF SOURCE ROW POSITION 
PUSH ax 3 
PUSH BX 3 
PUSH cx 3 SAVE REGISTERS 
PUSH DX 3 
PUSH DS 3 
PUSH ES 3 
MoV AX,P_CODE_START ; SET PEDUDO CODE BUFFER 
mov ES,AX 3 0 ES 
ASSUME ES:P_CODE_BUFFER 
CALL TEXT_DOWN 3 SCROLL TEXT DOWN 
PoP ES 8 
POP DS ’ 
PoP DX 3 
PoP cx 3 RESRORE REGISTERS 
PoP BX 3 
PoP AX 3 
SCRDN2: 
CALL GRAPHICS_DOWN 3 SCROLL DOWN IN GRAPHICS MODE 
SCRDNS: 
ASSUME DS: DATA 
POP Ds 3 RESTORE DS 
PoP ax 3 RESTORE CRT MODE 
CALL APPEAR_SCURSOR 3 WRITES SOFTWARE CURSOR 
adD SP.SDN_LOCAL 3 DEALLOCATE LOCAL WORK AREA 
POP BP 3 RESTORE BP 
RET 3 SCROLL_END 
SCROLL_DOWN ENDP 
J Rowen wwww nn nc ewww nnn nwween ce eeun ee 
TEXT_DOWN 


THIS ROUTINE MOVES THE CHARACTERS WITHIN A DEFINED 
BLOCK DOWN ON THE TEXT SCREEN, FILLING THE TOP LINES 
WITH A DEFINED CHARACTER 
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FD 
8B 


E38 
88 


2B 
81 
BA 


00 
80 
72 


Do 
02 


20 
OA2G RR 


F7 


DE 
€E 


08 
c2 


15E8 R 
F& 


D1 
C2 0101 


E6 
&6 
&6 


SE 00469 R 14 
04 


€6 
F4 


3 
3 INPUT BH = 
; BL = 
3 cx = 
; DX = 
3 DS = 
3 Es = 
, 
3 OUPUT NONE 
3 
3 VOLATILE 
3 
Jorn----------- ~~~, wenennce. 
TEXT_DOWN Proc 
PUSH BP 
PUSH BX 
MoV 
CALL 
JZ 
SUB SI,AX 
MoV AH,DH 
SUB AH, BL 
TDOWN1: 
CALL MOVE_| 
SUB BP 
SUB DI,BP 
DEC AH 
JNZ TDOWN 
TDOWN2: 
PoP AX 
MoV AL,* 
TDOWHS: 
CALL 
SUB 
DEC BL 
INZ TDOWN 
POP BP 
RET 
TDOWNS: 
MoV BL,DH 
JMP SHORT 
TEXT_DOWN ENDP 


ATTRIBUTE TO BE USED ON BLANKED LINE 
NUMBER OF LINES TO SCROLL 

UPPER LEFT CORNER OF REGION 

LOWER RIGHT CORNER OF REGION 

DATA SEGMENT 

REGEN SEGMENT 


AX,BL, 


CX,DX,SI,DI,DS 


3 SAVE BP 
3 SAVE ATTRIBUTE IN BH 


+ LOWER RIGHT CORNER 


SCROLL_POSITION + GET REGEN LOCATION 
TDOWNS 
ASSUME DS:VIDEO_RAM 


ROW 


1 


CLEAR_ROW 
DI,BP 


3 


TDOWN2 


SCROLL DOWN (GRAPHICS) 


a 


SI_IS FROM ADDRESS 
GET TOTAL ® ROWS 
COUNT TO MOVE IN SCROLL 


3 MOVE ONE ROW 


~ 


~ 


RECOVER ATTRIBUTE IN AH 


CLEAR ONE ROW 
GO TO NEXT ROW 


wee 


- 


RESTORE BP 
SCROLL_END 


THIS ROUTINE SCROLLS DOWN THE INFORMATION ON THE CRT 


INPUT 


BOTH 0 
8H 


CBP+s 


DC_MODE) 


CBP+SD_CRR) 


CBP+S 
CH,CL 
DH, DL 
4 


AL 
DS 
ES 


onaan 


D_BSR) 
= UPPER 
= LOWER 
THE ABOVE 
FILL VALU 
@ LINES T 


DATA SEGME 


REGEN SEG 


= CURRENT CRT MODE ( MASKED ) 

= LOWER RIGHT ROW POSITION 

= BOTTOM OF SOURCE ROW POSITION 

LEFT CORNER OF REGION TO SCROLL 

RIGHT CORNER OF REGION TO SCROLL 

ARE IN CHARACTER POSITIONS 

E FOR BLANKED LINES 

O SCROLL (AL=0 MEANS BLANK THE ENTIRE FIELD) 
NT 

MENT 


OUTPUT WOTHING, THE SCREEN IS SCROLLED 
VOLATILE 


GRAPHICS_DOWN 


AX, BL, CX,DX,SI,D1I,D$ 
Jratenen bisa nserver tea sone sn wucctenceece nel oi a = 
ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
PROC —s HEAR 
STD + SET DIRECTION 
MOV BL,AL =}, SAVE LINE COUNT IN BL 
MoV AX/DX 3 GET LOWER RIGHT POSITION INTO AX REG 
saane sohgOREsS RETURNED TS mUCTaP SY SES connect vaLuE 
exte denen noth ULTIPLIED BY 2 FROM CORRECT V 
MOV DI,AX + SAVE RESULT AS DESTINATION 
3 ADDRESS 
rn pees ; DETERMINE SIZE OF WINDOW 
ADD DX,101H } ADJUST VALUES 
MOV AH, DH 3 SAVE VALUE OF DHM1 TO AH 
SAL DH,1 i MULTIPLY 8 ROWS BY § SINCE 8 VER TS/CHAR 
SAL DHA + AND EVER/ODD Rote . 
CMP CRT_MODE,KJGRAPH; Kai 
“ CRE One. KANJI GRAPHICS MODE ? 
SAL DH, 
a ae i MULTIPLY @ ROWS BY 9 SINCE 18 VERT DOTS/CHAR 


GRDN1: 


A-42 


1D95 Rk 
46 04 


6 
FC 06 
21 


GRDN2: 
3E 
oD 


FC 09 
OOFO 
08 


OOA0 
oS 


0049 R 14 


GRDNS: 
GRDN¢: 


0280 
Fa 
DB 
19 
DE 
3E 
oD 
46 01 01 
04 

C7 SFBO 
OD19 R 
OD41 R 


0049 R 19 


GRONS: 
GRDN6: 


GRDN?: 
cs 
ES 
€3 


3E 
04 


ES 
D8 


0049 R 14 


GRDN8: 


0049 R 14 


7E 00 09 
2c 


GRDN9: 
0063 R 


7E 00 09 
15 

Cé 2000 
Cc? 2000 
OD63 R 


EE 4050 
EF 4050 
cc 


MOV 
ADD 


OR 
INZ 


MOV 
cmp 


JB 
TEST 
JZ 
ADD 


cme 
JAE 
CALL 


CMP 
vc 


apD 
CALL 
SUB 
DEC 


GET_DIRSEG 3 


GET DIRECT ACCESS SEGMENT OF V-RAM1 


CBP#SD_ES1),AX 3 SAVE IS 
s--- DETERMINE CRT MODE 


owe , (BP+SDC_MODE); 
GRONZ 3 
DL,1 


DI,1 
oI 


AH,4 


i2J 
Rr 
cs 
=x 
nN 
ee we we we we we 


ee we we we 


Bwewn--- DETERMINE THE rch ADDRESS IN THE BUFFER 


CH,CH ; 


CRT_MODE,KJGRAPH; 
GRDHS 3 


AH, ; 
AX;80M(B/2-1) 
GRONS 

AX, 160%(876-1) 
SHORT  GRDNS 


AX, B80(1872-1) 


BL.BL 
GRDN? 


BL,DH ; 
CRT_MODE,19H ; 


GRDN6 


BYTE PTR CBP¢SD_LRRI,1 
GRDNS 


DI,4000H-80 


aes CRT MODE TO AH 
TEST FOR HIGH RES 


OWN 
@ COLUMNS * 2, SINCE 2 BYTES/CHAR 
COFFSET OX) 
OFFSET M2 SINCE 2 BYTES/CHAR 
POINT TO LAST BYTE 


TEST FOR MEDIUM RES 
FIND_SOURCE_DOWN 
TEST FOR MEDIUM RES 
FIND_SOURCE_DOWN 
TEST FOR MEDIUM RES 
FIND_SOURCE_DOWN 


3 test for 640 x 200 x 16 color 
3 find_source_down 


@ COLUMNS % 2 AGAIN, SINCE 4 BYTES/CHAR 


(OFFSET OK) 
OFFSET M2 AGAIN, SINCE 4 BYTES/CHAR 
POINT TO LAST BYTE 


FIND_SOURCE_DOW 
ZERO TO HIGH OF COUNT REG 


KJ GRAPHICS MODE ? 
YES 
~~~ ANK gee 


s USING 32K REGEN 
aoa a LAST Row OF PIXELS IF 16K REGEN 


NO, 
3 OFFSET” To LAST ROW OF PIXELS IF S$2K REGEN 


g--- KJ GRAPHICS 


; OFFSET TO LAST ROW OF PIXELS 
DI,AX 3 


POINT TO LAST ROW OF PIXELS 


3 @ LINES TO SCROLL IS ZERO ? 


ET ENTIRE FIELD 
J GRAPHICS 32K REGEN ? 


Ra 


ODD ROW ? 
YES 
ADJUST POINTER 


GRDN16 

GRDN19 

ALLBL 3 SAVE VALUE OF BL™1 TO AL 

hee 3 MULTIPLY NUMBER OF LINES BY 4 


CRT_MODE, KIGRAPH3 
GRDNS 


3 


BL.1 
BLLAL 


ALLBL 
AH,80 
AH 

SI,DI 
SI,AXx 
AH,DH 
AH, BL 


CRT_MODE, KJGRAPH; 
ES 3 BOTH SEGMENTS TO REGEN 


ASSUME DS: VIDEO_RAN 
3 NO 


DS 
GRON? 


we we we we we we we 


eenet GRAPHICS MODE ? 


3 MULTIPLY NUMBER OF LINES BY 9 


GET NUMBER OF LINES IN AL 
80 BYTES/ROW 
DETERMINE OFFSET TO SOURCE 
SET UP SOURCE 

SUBTRACT THE OFFSET 
NUMBER OF ROWS IN FIELD 
DETERMINE NUMBER TO MOVE 


KJ GRAPHICS MODE ? 


une reas THROUGH, MOVING ONE ROW 


BYTE PTR (BP+SDC. 
GRDNLL 
G_MOVE_ROW 

BYTE PTR (BP#SDC 
GRONLO 

SI,2000H 
DI,2000H 
G_MOVE_ROW 


S1T,4000H+80 
DI,4000H+80 
AH 
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A TIME, 
‘MODE. 9 3 MODE USES 32K REGEN ? 
3 YES 


3 ROW_LOOP_DOWN 
+ MOVE ONE ROW 


MODE),9 3 MODE USES S$2K REGEN? 
JUMP 


> ’ 

3 ADJUST POINTERS 
3 MOVE 2 MORE ROWS 
3 BACK UP POINTERS 
; ADJUST COUNT 


BOTH EVEN AND ODD FIELDS 


Appendix A. 


GRDNO: MOVE TO NEXT ROW 
,2000H480 ; 
OcBF 81 EE 2030 hl ae TEEPE 
eerenes ee an + NUMBER OF ROWS TO MOVE 
occ? FE CC id GRDNY 3 CONTINUE TILL ALL MOVED 
occe 73 DG np SHORT GRON19 
bccn, EE 2S s--~ 32K REGEN KJ MODE 
ecco GRON est BYTE PIR (BP+SD_LRR),1 3 ODD ROW ? 
cep) 788 * Breage } ADJUST POINTER 
OcDs 1c? SFBO ADD ——DI, 4000H-80 7A 
ecb? ween YTE PTR (BP+SD_8SR],1 ; ODD ROW ? 
Test 
or te cet Jz GRDNLS 3 YES 
seab ee te ADD = SI, 4000H-80 ; ADJUST POINTER 
ocd 81 C& SFBO eee 
3 
OLOR ? 
CHP BYTE PTR (BP4SDC_MODEJ,0BH 3 640 x 200 X 16.6 
oes sar JME ——sGRDN131 ‘5 | eesieeelan , 
es 
3 
cree se PUSH St + SAVE REGISTERS 
secs Ge PUSH DS 3 
oce9 1€ $ ; 
PUSH E 
OCEA 06 
04 MOV DS, [BP#SD_ES1) 3 GET SEGMENT OF V-RAM 
Seer GE te MOV ES, (BP4+SD-ES1} 3 
OCFL ES OD6S'R CALL G_MOVE_ROW 3 MOVE ROW 
oc _MOVE_ 
eee ae POP DS } RESTORE REGISTERS 
ie te mF 3 
et a 
GRDN131: 
OCF8 ; ‘a 
OCFS EB OD63 R CALL G_MOVE_ROW 3 MODE i R 
‘ 3 NEXT R 
OcEF BS FE OO. cur St ougen } IN S2K REGEN ? 
JGE —- GRDN14 3 YES 
Obbe 81 C6 7F6O ADD ST,8000H-160 3 NO, WRAP 
GRDN14: 
0008 ; i 
ove 83 FF OO cnr rc eoaen PIN S2k REGEN ? 
3 YES 
opi ane? ADD DLS 000H-160 3 NO, WRAP 
oo ee GRDNIS: 
: 3 ADJUST COUNT 
Obl? SE So One oR 3 CONTINUE TILL ALL MOVED 
oD17 75 C8 cronies 2NZ —-GRONLS CON 
tbl? 8a ¢7 MOV AL, BH + ATTRIBUTE TO FILL WITH 
opis GRDN17: 
BP+SDC_MODE),OBH + 640 X 200 X 16 COLOR ? 
ODIs 80 7E 00 eB CMP «BYTE PTR [ I 
ODIF 75 0A JNE ——GRDNA71 7 NO 
SAVE REGISTERS 
e021 57 PUSH I 3 
0022 06 PUSH ES ; = 
+ GET SEGMENT OF V-RAM 
0D23 BE 46 06 MoV ES,([BP+SD_ES1) ; 
0D26 ES OD7C R CALL = G_CLEAR_ROW = CLEAR ROW 
PoP ES + RESTORE REGISTERS 
ir aie | 
0D23 GRDN171: 
OD2B ES OD7C R ; CALL = G_CLEAR_ROW =: CLEAR A ROW 
= era 2 a im, 
ODS2 83 FF 00 ‘ 
JGE — GRDNI8 + YES 
Obs? an cs 7F60 nig, 222“ DE-8000H-160 5 HO, WRAP 
oD3B GRDN18: 7 
F DEC BL 3 KUMBER OF LINES TO F 
to3D 75 e JHZGRDNI7 3 CLEAR ROW LOOP DOWN BY 2 ROW 
DSF EB 20 JMP = SHORT = GRDH22_«s-_: DONE 
jenee-- FILL IN THE VACATED LINECS) 
+ CLEAR_ENTRY_DOWN 
obs} ac aa AL, BH 3 ATTRIBUTE TO FILL WITH 
CD63 GRDN20: 3 CLEAR_LOOP_DowWN 
0063 EB oD7C R CALL = G_CLEAR_ROW =; CLEARTA ROW 
OD66 80 7E 00 09 Gor «BYTE PTR CBP+SDC_MODE),9 + MODE USES S2K REGEN? 
OD4A 72 0D Je GRDN2) + NO, JUMP 
oDsc 81 ¢7 2000 ADD — DT, 2000 + NEXT ROW 
0Ds0 €8 oD7C R CALL = G_CLEAR_ROW CS 


CLEAR 2 MORE ROWS 
OD53 81 EF 4050 
FE CB 


SUB DI,4000H+80 + BACK UP POINTERS 
0057 DEC BL + ADJUST COUNT 
0059 GRDK21: 
9D59 81 EF 2050 SUB DI.,2000H+80 3 POINT TO NEXT LINE 
SD5D FE cB DEC BL + NUMBER OF LINES TO FILL 
ODSF 75 E2 INZ GRDH20 + CLEAR_LOOP_DOWN 
0061 GRON22: 
0D61 FC CLD + RESET THE DIRECTION FLAG 
0D62 C3 RET + EVERYTHING DONE 
0063 


GRAPHICS_ DOWN ENDP 


MOVE ONE row ¢ GRAPHICS ) 
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THIS ROUTINE MOVES ONE GRAPHICS ROW 


INPUT DL = MOVE COUNT IN BYTE 
DS:SI = SOURCE ROW ADDRESS 


ES:DI = DESTINATION ROW ADDRESS 
OUTPUT SI = SI + 2000H 
DI = DI + 2000H 

VOLATILE cL 
ODéS G_MOVE_ROW Proc NEAR 
OD63 8A CA MOV CL,DL 3 NUMBER OF BYTES IN THE ROW 
0D65 56 PUSH SI 
0D66 57 PUSH DI SAVE POINTERS 
OD67 F37 AS REP MOVSB + MOVE THE EVEN FIELD 
0069 SF POP DI 
OD6A SE PoP SI 
0D6B 81 Cé 2000 ADD SI,2000H 
OD6F 81 C7 2000 AOD DI,2000H 3 POINT TO THE ODD FIELD 
OD73 «56 PUSH SI 
0D74 «57 PUSH or ; 1. THE FOAHTERS: 
OD75 8A CA mov CL.DL > COUNT BACK 
OD77 ~F37 AG REP MOVSB 3 MOVE THE ODD FIELD 
0D79 SF PoP oI 
OD7A SE POP s!I > POINTERS BACK 
OD7B OCS RET 3 RETURN TO CALLER 
op7c G_MOVE_ROW ENDP 


CLEAR ONE ROW ( GRAPHICS ) 
THIS ROUTINE MOVES ONE GRAPHICS ROW 


; 
; INPUT DL = CLEAR COUNT IN BYTE 
; ES:DI = DESTINATION ROW ADDRESS 
Hy 
; OUTPUT DI = DI + 2000H 
; VOLATILE cL 
op7c G_CLEAR_ROW = PROC-—O “NEAR 
0D7C 8A CA Nov CL. Dt 3 NUMBER OF BYTES IN FIELD 
OD7E 57 PUSH I ; SAVE POINTER 
OD7F FSV AA REP STOSB } STORE THE NEW VALUE 
0081 SF POP DI 3 POINTER BACK 
0p82 81 C7 2000 ADD DI, 2000H 3 POINT TO ODD FIELD 
0pa6 57 PUSH 
0087 8A CA MOV CL DL 
CD89 F37 AA REP STOSB 3 FILL THE ODD FILELD 
OD8B SF PoP DI 
opse ¢3 RET 3 RETURN TO CALLER 
opsp G_CLEAR.ROW © ENDP 
Faia ch be eens oe ee oe eee 
READ_AC_CURRENT INT 10H, AH = 


THIS ROUTINE READS THE ATTRIBUTE AND CHARACTER AT THE 
CURRENT CURSOR POSITION AND RETURNS THEM TO THE CALLER 


INPUT) = AH = CURRENT CRT MODE (MASKED) 
BH = DISPLAY PAGE ( ALPHA MODES ORLY ) 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 
OUTPUT AL = CHAR READ 
AH = ATTRIBUTE READ 


De we Oe we we we we we we we we we we wr we 


ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 


0D3D READ_AC_CURRENT PROC NEAR 

OD8D 80 SE 0049 R 04 cMP CRT_MODE,GRAPHICS;IS THIS ANK TEXT MODE ? 
0092 72 43 Jc RDATCA 3 YES 

0D94 80 SE 0049 R 14 cmp CRT_MODE.KJGRAPH; KANJI GRAPHICS MODE ? 
0099 73 0C JAE Roatc} > YES 

OD9B 80 JE 0049 R 10 CMP CRT_MODE,KJ_MODE; KANJI TEXT MODE 2? 

ODAO 73 0¢ JAE RDACC2 3 YES 

ODA2 E8 ODFC R CALL GRAPHICS_READ ; READ ANK GRAPHICS 

ODAS EB 38 JMP SHORT ROACCS + END 

ODA? RDACCL: 

ODA? Bg OOA0 MOV CX,P_CODE_START 3 SET PEDUDO CODE BUFFER SEGMENT 
ODAA 8E C1 MoV €s,cX + TOES 
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0 BH ; CLEAR DISPLAY PAGE 
opag ee roacezs ~o® wee y 2 READ_AC_CONTINUE 
nN ND_POSITIO 
ODaT i ee nove Sree + ESTABLISH ADDRESSING IN SI 
U ES 3 
opse IF Pore DS + GET SEGMENT FOR QUICK ACCESS 
ASSUME DS: VIDEO_RAM 
ODES AD LODSW 3 GET THE CHARZATIR 
ODBS Fé C4 80 TEST AH, ZENBIT 3 2 BYTE CODE ? 
ODBS 74 24 Jz RDACCS + XO 
ODBB FG C4 08 TEST AH, ZEN2BIT 3 2ND BYTE CODE ? 
ODBE 75 0B JNZ RDACCS + YES 
g--- 1ST BYTE 
ODCO 3A E8 MOV CH,AL + SET 1ST CHARACTER'S CODE To CH 
opc2 8a oc MOV CL,DS:(S1) 3 SET 2ND CHARACTER'S CODE TO CL 
ODCe «EB 1B42 R CALL = CHECK_ROSS_CODE ; CHECK AND CONVERT ROSSIAN CHARACTER CODE 
oDC7 8A C5 MOV AL, CH 3 SET 1ST BYTE OF CONVERTED CODE 
opcs EB 14 JMP SHORT RDACCS =; END 
pcs RDACCS: s--~_2ND BYTE 
CDCR 8A CB MoV CLLAL 3 SET 2D CHARACTER'S CODE TO CL 
ODCD 8A 6C FC MOV CH,DS:(SI-4] 5 SET 1ST CHARACTER'S CODE TO CH 
ODDO E8 1842 R CALL = CHECK_ROSS_CODE 3; CHECK AND CONVERT ROSSIAN CHARACTER CODE 
ODDS 8A C1 MoV AL, CL s SET 2ND BYTE OF CONVERTED CODE 
ODDS «EB 08 JMP SHORT RDACCS 
ASSUME DS:DATA 
oDD7 RDACC4: 3 READ_AC_CONTINUE 
ODD? E8 ODEO R CALL —- FIND_POSITION 
ODDA 8B FS MOV SI,BX + ESTABLISH ADDRESSING IN SI 
ODDC 06 PUSH = ES. 3 
ODDD 1F PoP DS 3 GET SEGMENT FOR QUICK ACCESS 
ODDE AD LODSW 3 GET THE CHARZATIR 
ODDF RDACCS: 
ODDF C3 RET 
ODED READ_AC_CURRENT ENDP 


FIND_POSITION 


THIS ROUTINE DETERMINES THE REGEN ADDRESS FORM 
CURRENT CURSOR POSITION 


INPUT = BH = DISPLAY PAGE 
OUTPUT BX 


REGEN ADDRESS CORRESPONDING TO 
CURRENT CURSOR POSITION 


VOLATILE AX, CX 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 


eDED FIND_POSITION PROC HEAR 
ODES 8A CF j 
ODE2 32 ED KOR chien ivinanptblage Seclg: 
Does 8h Fi ; MOV SI scx 3 MOVE TO SI FOR INDEX 
epee DL Ee SAL SI 3; 2 FOR WORD OFFSET 
CR MOV AX, (SI# OFFSET CURSOR_POSN] ; GET ROW/COLUMN OF THAT PAGE 
oDEC FIND_POSK LABEL NEAR ;-_ CALLED FROM 
| WRITE_ALT_CURSOR 
DEC 33 Ds XOR BX, BX 3 SET START ADDRESS “10 ZERO 
oDee rros1, 2OX% —_-FROS2 3 NO_PAGE 
+ PAGE_LOOP 
OOFo 9s LE anc x ADD BX, CRT_LEN + LENGTH OF BUFFER 
oDF6 FPOS2: ; 
ODFS E8 06D5 R CALL POSITION + OETEROE 
oFé + DETERMINE LOCATION IN REGEN 
0 oS DB ADD BX, AX + ADD TO START OF REGEN 
ODFB c3 RET 
OFC 


FIKD_POSITION EXDP 


GRAPHICS READ 


THIS ROUTINE READS THE ASCII CHARACT 

POSITION ON THE SCREEN BY MAT G THE BUTS" EN The eRe 
THE CHARACTER GENERATOR CODE POINTS Sia A TRE SPN 
INPUT AK = 


CRT MODE ( MASKED ) 
INPUT 


HONE (0 I5 ASSUMED AS THE BACKGROUKD COLOR) 


0 = 

UTPUT AL CHARACTER READ AT THAT POSITION (0 RETURNED IP NONE FOUND) 
NOTE 9 IS ASSUMED AS THE BACKGROUND COLOR 

VOLATILE 


we we we we Be we we we Oe we Oe Be we Be we Oe we we 


BX,CX,DX,SI,DI,DS,ES 
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55 
8B 
50 
E8 


EC 10 
Ec 


15E5 Rk 


8B FO 


58 
1F 
B6 


80 
74 


80 
74 


80 
74 


80 
74 


eB 


8A 
45 
BA 
45 
83 
75 
eB 


04 


FC 06 
PB y 


FC 04 
54 


FC 05 
4F 


FC OA 
GA 


17 


46 00 
84 2000 
00 


cé 50 


Dl &6 


01 
E8 


&6 


OFOS R 
Cé 2000 
R 


E& OFOS 


80 
75 


81 
E& 


81 
Ls 


81 


FEC 


81 
75 
EB 


o1 
€8 
c& 
80 


FC 09 
14 


C6 2000 
OFOS R 


C6 2000 
OFOS R 


EE SFBO 
E 


EE 1FB0 
cE 
DS 
20 


E6 

OECF R 
C6 2000 
OECF R 


FC 0A 


75 14 


81 
c8 


81 
E38 


81 


C6 2000 
OECF R 


C6 2000 
OECF R 


EE SFBO 


FE CE 


81 


EE 1F80 


FE CE 


75 


05 


8B DD 


83 


ED 08 


GREAD1: 


GREAD2: 


GREADS: 


GREAD4: 


GREADS: 
GREAD6: 


GREAD?: 


GREADS: 
i] 


GRAPHICS_READ 


PUSH 
SUB 
MoV 
PUSH 


CALL 
MOV 


CMP 


Jmp 


MOV 
INC 
MoV 
INC 
ADD 
JNZ 
JMP 


SAL 
SAL 


CALL 


ADD 
CALL 


cmp 
INE 


apD 
CALL 


ADD 
CALL 


SUB 
DEC 


SuB 
JNZ 
JmP 


SAL 
CALL 
CALL 


CMP 
JNE 


AOD 
CALL 


ADD 
CALL 


SUB 
DEC 


SUB 
DEC 


INZ 


OV 
SUB 


Proc NEAR 
BP 
SP,RAC_LOCAL 
BP,SP 

AX 
GRAPH_POSITION 
ST,AX 


SAVE BP 
H ALLOCATE SPACE TO SAVE THE READ CODE POINT 
+ POINTER TO SAVE AREA 


3 SAVE CRT MODE 

; Severn TO OFFSET IN REGEN 

3 SAVE IN SI 

hata aatel DETERMINE Pa MODES 
3 RESTORE CRT MOD 


POINT ie REGEN SEGMENT 


ASSUME DS: VIDEO_| RAM 


DH,4 


AH,6 
GREAD1 


AH,4 
GREADS 
AH,5 
GREADS 
AH, OAH 
GREADS 


SHORT GREAD2 


3-GET VALUES FROM REGEN BUFFER AND CONVERT YO CODE POINT 


AL, CST) 
(BP),AL 
BP 


AL, CSI#2000H) 
LS 


S1,80 

DH 

GREAD1 

SHORT GREAD8& 


SI,2 
SI,1 


LOW_READ_BYTE 
SI,2000H 


LOW_READ_BYTE 
AH.9 

GREADS 
SI,2000H 
LOW_READ_BYTE 


$1,2000K 
LOW_READ_BYTE 


$1,4000H-80 
DH 


ST,2000H-80 
DH 

GREADS 
SHORT GREADS 


SI,1 
MID_READ_BYTE 
$I,2000H 
MID_READ _BYTE 


AH, OAH 
GREAD? 


SI,2000H 
MID_READ_BYTE 


SI,2000H 
MID_READ_BYTE 
ST,4000H-80 
DH 
SI,2000H-80 
DH 

GREAD6 


BX, BP 
BP.8 
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3 NUMBER OF PASSES 
3 HIGH RESOLUTION 

+ MEDIUM RESOLUTION 
+ MEDIUM RESOLUTION 


+ MEDIUM RESOLUTION 

3 LOW RESOLUTION 

gew~--- HIGH RESOLUTION READ 
GET FIRST BYTE 

SAVE IN STORAGE AREA 

NEXT LOCATION 


GET LOWER REGION BYTE 
ADJUST AND STORE 


wee 


POINTER Hak REGEN 

LOOP CONT 

DO IT SOME. HORE 

GO MATCH THE SAVED CODE POINTS 
pntason LOW RESOLUTION READ 


3 OFFSETS SINCE 4 BYTES/CHAR 


we we ee 


GET 4 BYTES FROM REGEN INTO SINGLE SAVE 


GOTO LOWER REGION 
GET 4 BYTES FROM REGEN INTO SINGLE SAVE 


DO WE HAVE A 32K REGEN AREA? 
NO, JUMP 


wees we 


GOTO LOWER REGION 
GET 4 BYTES FROM REGEN INTO SINGLE SAVE 


GOTO LOWER REGION 
GET 4 BYTES FROM REGEN INTO SINGLE SAVE 


ADJUST POINTER 


we we 


wee 


ADJUST POINTER BACK TO UPPER 

3DO IT SOME MORE 

+ GO MATCH THE SAVED CODE POINTS 

iseSses: Pete RESOLUTION READ 

MED_RES_R 

OFFSETA SINCE 2 BYTES/CHAR 

GET PAIR eee FROM REGEN INTO SINGLE SAVE 
GO TO LOWER REGION 

GET THIS PAIR INTO SAVE 


DO WE HAVE A S2K REGEN AREA? 
NO, JUMP 


o 


we we we 


wee 


GOTO LOWER REGION 
GET PAIR BYTES FROM REGEN INTO SINGLE SAVE 


GOTO LOWER REGION 
GET PAIR BYTES FROM REGEN INTO SINGLE SAVE 


ADJUST POINTER 


ADJUST POINTER BACK INTO UPPER 


§ KEEP GOING UNTIL ALL 8 DONE 

im=~ SAVE AREA HAS CHARACTER IN IT, MATCH IT 
3 FIND_CHAR 

+ SET POINTER TO FONT PATTERN 

+ ADJUST POINTER TO BEGINNING OF SAVE AREA 
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MOV SI,BP 
Ha Fe re CUD 3 ENSURE DIRECTION 
CEAO 33 CO XOR AX, AX + CURRENT CODE POINT BEING MATCHED 
PUSH ss 3 ESTABLISH ADDRESSING TO STACK 
ocas if Por os 3 FOR THE STRING COMPARE . 
OEA4 16 PUSH ss + ESTABLISH ADDRESSING TO STACK 
OEAS 07 PoP es + FOR THE STRING COMPARE 
ASSUME DS:STACK, ES:STACK 
OEAG BA 0100 MoV DX,256 3 NUMBER TO TEST AGAINST 
GREAD9 
OEAd 56 : PUSH SI 5 SAVE AREA POINTER 
OEAA 50 PUSH ax 3 SAVE AX 
oEas 56 PUSH SI 3 SAVE SI 
OEAC 32 ED XOR CH,CH 3 CLEAR FOR HANKAKU FONT 
QOEAE 8A C8 Mov GLIAL 3 SET CHARACTER CoD 
OEBO 32 CO XOR AL,AL 3 SET REQUEST BASE FONT FUNCTION 
OEB2 52 PUSH Dx 3 SAVE DX 
OEBS B6 OO mov DH,0 3 INDICATES ANK MODE 
OEBS E8 LAGS R CALL FONT + DO IT 
OEBS SA POP DX + RESTORE DX 
CEBS 8B FB MOV DI,BX + SET FONT TOP ADDRESS TO DI 
OEBB SE PoP SI + RESTORE SI 
OEBC 58 PoP AX + RESTORE Ax 
OEBD BS 0008 MoV Cx.8 3 NUMBER OF BYTES TO MATCH 
SECO F3/ A6 REPE CMPSB + COMPARE THE 8 BYTES 
OEC2 5E PoP SI 
OECS 74 05 JZ GREAD1O 3 IF ZERO FLAG SET, THEN MATCH OCCURRED 
OECS FE CO INC AL 3 NO MATCH, MOVE ON TO NEXT 
OEC7 GA DEC Dx + LOOP CORTROL 
OECS 75 DF JNZ GREAD9 + DO ALL OF THEM 
s~~-CHARACTER IS FOUND ¢ AL=0 IF NOT FOUND ) 
OECA GREADIO: 
CECA 83 C4 10 ADD SP,RAC_LOCAL + READJUST THE STACK, THROW AWAY WORK AREA 
OECD SD PoP BP 3 RESTORE BP 
OECE C3 RET 3 ALL DONE 
OECF 


GRAPHICS_READ  ENDP 


MED_READ_BYTE 


THIS ROUTINE WILL TAKE 2 BYTES FROM THE REGEN BUFFER, 
COMPARE AGAINST THE CURRENT FOREGROUND COLOR, AND PLACE 


THE CORRESPONDING ON/OFF BIT PATTERN INTO THE CURRENT 
POSITION IN THE SAVE AREA 


INPUT AH = CRY MODE ( MASKED ) 
SI,DS_ = POINTER TO REGEN AREA OF INTEREST 
BX = EXPANDED FOREGROUND COLOR 

BP = POINTER TO SAVE AREA 


ee We we We we Oe We Be Be We Be we OF Oe we we Be Oe we 


OUTPUT BP = BP41 
VOLATILE CX,DL 
secs - MID_READ_BYTE proc NEAR 
PUSH Ax 3 SAVE CURRENT AX 
OEDO 80 FC OA CMP AH, OAH 3 IN 640X200 4 COLOR MODE? 
COEDS 8a 26 Mov AH, (ST) 
, 3 GET FIRST BYTE 
OEDS 8A 46 01 Mov AL, (S141) + GET SECOND BYTE 
OEDS 75 12 JNE MRBYTE2 + NO, JUMP 
3 IN 640X200 4 COLOR MODE, ALL THE cO BITS ARE IN ONE BYTE, AND ALL 
+ THE cl BITS ARE IM THE HEXT BYTE. H K 10 
+ NORMAL clcO ADJACENT PAIRS. RAR AE RAMEE THEY RE 
OEDA 53 
OEDB 89 C008 nor te 8 + SAVE REG 
OEE Hisvins . 3 SET LOOP CouUNTER 
DO FC : 
SAR AH,1 
OEEO D1 OF ’ 3 cO BIT INTO CARRY 
iss RCR 8X,1 + AND INTO Bx 
2 Do FB 
oEES DA Ds Ha abet ’ Led ante CARRY 
’ H 
sis Loop MRBYTEL 3 REPEAT ih 
c3 
CEEA SB an AX, BX s RESULT INTO Ax 
OEEE 32 v2 MoV CX,0CO00K + 2 BIT MASK To TEST THE ENTRIES 
oEFO ee meayres;~o* DL, DL + RESULT REGISTER 
OEF2 76 OL TEST AX, CX } IS THIS SECTION BACKGROUND? 
nadie. Jz MRBYTES IF ZERO, IT IS BACKGROUND 
DEES ‘aie mrsytes: 20° 3 WASN'T, SO SET CaRRY 
RCL DL,1 


~ 


MOVE THAT BIT INTO THE RESULT 
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8A 
BA 


32 0 


Es 
8A 
E8 


88 
45 


58 
cs 


26 

44 OL 
2 
OFID R 
64 02 
44 03 
OFLD R 


56 00 


F000 


Ci 
01 


SHR 
SHR 
Juc 


MoV 
INC 


PoP 
RET 


MID_READ_BYTE 


Jrmnwn nnn nnn eee eee, oe 


SP we we we we we Be we we we we we Be ws we 


CX,1 
CX,1 
MRBYTES 
CBP),DL 
BP 

AX 


ENDP 


LOW_READ_BYTE 


THIS ROUTINE WILL TAKE 4 BYTES FROM THE REGEN BUFFER, 
COMPARE FOR BACKGROUND COLOR, AND PLACE 

THE CORRESPONDING ON/OFF BIT PATTERN INTO THE CURRENT 
POSITION IN THE SAVE AREA 


LOW_READ_BYTE 


LOW_READ_BYTE 


Brrr mmm renew nn ween wn enon wwe ewe 


3 
3 
3 
3 
3 
3 
t 
3 
3 
3 
3 
3 
3 
3 


BUILD_NIBBLE 


MOVE THE MASK TO THE RIGHT BY 2 BITS 
; DO IT AGAIN IF MASK DIDN'T FALL OUT 


STORE RESULT IN SAVE AREA 
ADJUST POINTER 


RESTORE AX 
ALL DONE 


wee we 


~~ 


INPUT SI,DS = POINTER TO REGEN AREA OF INTEREST 
BP = POINTER TO SAVE AREA 
OUTPUT SP = BP +1 
VOLATILE CX, DL 
PROC NEAR 
PUSH Ax 3 SAVE CURRENT AX 
MOV AH, CST) sGET FIRST 2 BYTES 
mov AL, CSI+1) 
XOR DL.DL 
CALL BUILD_NIBBLE sBUILD HIGH NIBBLE 
MOV AH, (SI+2) sGET SECOND 2 BYTES 
MoV AL, (S143) 
CALL BUILD_NIBBLE sBUILD LOW WIBBLE 
MOV CBPJ,DL sSTORE RESULT IN SAVE AREA 
INC op sADJUST POINTER 
PoP ax 3 RESTORE AX 
RET 
ENDP 


THIS ROUTINE WILL TAKE 1 WORD FROM THE REGEN BUFFER, 


BUILD_NIBBLE 


BLDNI: 


BLDN2: 


AND MAKE 4 
INPUT AX = 
OUTPUT DL = 
VOLATILE cx 
PROC NEAR 
MOV CX, OFOOOK 
TEST AX, CX 
Jz BLDN2 
sTc 
RCL DL.1 
SHR CX,1 
SHR CX. 
SHR CX,1 
SHR CX,21 
INC BLDN 
RET 
ENDP 


BUILD_NIBBLE 


Jer mmwwwww ewww wenn ee wen eee ene 


8 


ee we ee we we we we we we we we wr ee we 


WRITE_AC_CURRENT 
THIS ROUTINE WRITES THE ATTRIBUTE AND CHARACTER AT 
THE CURRENT CURSOR POSITION 


INPUT 


> 
cr 
nnn 


CURRENT C 
DISPLAY PAGE 

COUNT OF CHARACTERS TO WRITE 
CHAR TO WRITE 

ATTRIBUTE OF CHAR TO WRITE 
DATA SEGMENT 

REGEN SEGMENT 
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BIT PATTERN FROM THAT. 


ANY WORD OF REGEN BUFFER 


DOT PATTERN 
CLOW NIBBLE, HIGH IS LOW NIBBLE OF INPUT DL) 


POLL LLL LN SNL RNR DER RE ROEM Renn enenanweneseccececce 


5 4 BIT MASK TO TEST THE ENTRIES 


3 IS THIS SECTION BACKGROUND? 
3 IF ZERO, IT IS BACKGROUND 


3 WASN'T, SO SET CARRY 


sMOVE THAT BIT INTO RESULT 
sMOVE MASK RIGH 4 BITS 


500 IT AGAIN IF MASK DID'T FALL OUT 


INT 10K, AH = 9 


RT MODE (MASKED) 
A 


Appendix A. 


731 


80 
72 


€9 


B2 
Es 


cs 


80 
73 


80 
72 


€9 


.. 0069 R 10 
FC 04 

es 

1625. R 

ES 


ODEO R 
FB 


00 
OF7B R 


SE 0069 R 10 
18 


FC 04 
os 


1625 R 
ODEO R 
FB 


cs 


FA 


FF 
OF7B.R 


OUTPUT 


CALL CGRAPHICS_WRITE) 
FIND_POSITION 
WRITE_AC 


VOLATILE AX, BX,CX,DX,SI,DI 


ee we we we we we we we wr we 


ATA, ES: VIDEO_RAM 


WRITE_AC_CURRENT PROC NEAR 
CMP CRT_MODE.KJ_MODE; KJ DISPLAY MODE ? 
JAE WRTACCS 3 YES 
cMP AH, GRAPHICS + IS THIS GRAPHICS? 
Jc WRTACCL 3 NO 
JMP GRAPHICS_WRITE ; GO TO WRITE ANK IN GRAPHICS 
WRTACCL: 3 WRITE_AC_CONTINUE 
Mov AH, BL 3 GET ATTRIBUTE TO AH 
PUSH AX 3 SAVE ON STACK 
PUSH cx 3 SAVE WRITE COUNT 
CALL FIND_POSITION 
MOV DI,BX 3 ADDRESS TO DI REGISTER 
POP cx 3 WRITE COUNT 
POP AX 3 CHARACTER IN AX REG 
WRTACC2: 3 WRITE_LOOP 
STOSW 3 PUT THE CHARZATIR 
Loop WRTACC2 + AS MANY TIMES AS REQUESTED 
RET 
WRTACCS: 
MoV DL, FALSE 3 RESET WRITE CHAR ONLY FLAG 
CALL WRITE_AC + WRITE ATTRIBUTE AND CHARACTER 
RET 
WRITE_AC_CURRENT ENDP 
Jrrmmmewn mmm wwwmeww wn nnn ne eee 
3 
3 WRITE_C_CURRENT INT 10H, AK = 10 COAH) 
5 ss eee ceeteeonene 
3 THIS ROUTINE WRITES THE CHARACTER AT 
3 THE CURRENT CURSOR POSITION, ATTRIBUTE UNCHANGED 
3 INPUT 
; AH = CURRENT CRT MODE (MASKED) 
3 BH = DISPLAY PAGE 
3 CX = COUNT OF CHARACTERS TO WRITE 
3 AL = CHAR TO WRITE 
3 BL = COLOR OF CHAR (GRAPHICS) 
$ DS = DATA SEGMENT 
3 ES = REGEN SEGMENT 
i OUTPUT 
3 NONE 
t 
; CALL (GRAPHICS _WRITE) 
*- FIND _POSITION 
3 WRITE_AC 
ty 
; VOLATILE AX, BX, CX, DX, SI, DI 
Jenwensecccccceusce, 


we me mew ww wewwn wee we eee 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
WRITE_C_CURRENT PROC HEAR 


CMP = CRT_MODE,KJ_MODEs KJ DISPLAY HO 
SKE WRTECS MODE: Yes =e 


cup AH, GRAPHICS Ist 
o perce S THIS GRAPHICS? 
JMP GRAPHICS _WRITE + GO TO WRITE ANK IN GRAPHICS 
WRICC1: Q 
USH ax 3 SAVE OW STACK 
PUSH cx 
CALL FIND_Positron sAVE UERTE ‘COURT 
Ey DI,BX 3 ADDRESS TO DY 
a EE } WRITE COUNT 
wrtec2: + BL HAS CHAR TO WRITE 
= xi ’ WRITE_LooP 
STOSB BL } RECOVER CHAR 
ig s PUT THE CHARVATIR 
ier untece : BUMP POINTER PAST ATTRIBUTE 


AS MANY TIMES AS REQUESTED 


WRICCS: 


MOV OL, TRUE 
CALL WRITE_AC 


SET WRITE CHAR ONLY FLAG 
WRITE ATTRIBUTE AND CHARACTER 
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QF7A C3 


OF7B 


24 
F7 


EC 2€ 
Ec 


46 08 08 
66 09 

FC 04 

18 


15E5 8 
46 00 


46 06 

46 08 FF 
O0A0 

co 


€7 O7FF 


OF 

Es 

87 OS5SC R 
76 02 


hy 0340 R FFFF 


7F 
Cé OOFF 


RET 


WRITE_C_CURRENT ENDP 


Jrmewenne-- eee. - 


Be we ee we we we we we we 


WRITE_AC 


THIS ROUTINE WRITES THE 
THE CURRENT CURSOR POSIT 


5~-CHARACTER IS 


ATTRIBUTECIF DL=0) AND CHARACTER AT 
ION 


REGEN ADDRESS TO WRITE IN GRAPHICS 
ATTRIBUTE/CODE OF 2ND BYTE OF 2 BYTE CODE 


ALLOCATE LOCAL WORK AREA 


ASSIGN BP AS FRAME PO 


INTER 


SAVE DISPLAY PAGE AND ATTRIBUTE 


SAVE COUNTER 
GET REGEN ADDRESS TO 
IN DI 


RESTORE COUNTER 
RESTORE DISPLAY PAGE 
RESTORE MODE 


+ SET CRT MODE 
THIS GRAPHICS? 
4 


j~-~ GRAPHICS MODE 


WRITE 


AND ATTRIBUTE 


MODE 


SAVE MODE AND CHARACTER CODE 
GET eon ADDRESS TO WRITE 
N 


SAVE REGEN SEGMENT 


+ SET GRAPHICS MODE 
SET PESUDO CODE BUFFER SEGMENT 
To ES 


MASK POINTER TO INSURE RANGE 
AX 


SAVE DISPLAY PAGE AND ATTRIBUTE 


SET PAGE NUMBER TO BL 
CLEAR FOR WORD 
CONVERT TO WORD OFFSE 


+ GET CURSOR PO 
SET IT TO LOCAL WORK 


RESTORE DISPLAY PAGE 
1ST BYTE OF 2 BYTE CO 
MST BYTE OF 2 BYTE co 
NO, GO TO WRITE ONE C 
NO, GO TO WRITE ONE C 


T 


SITION 
AREA 


AND ATTRIBUTE 

DE HAS BEEN SET ¢ 
OE? 

HARACTER 
HARACTER 


NO, GO TO WRITE ONE CHARACTER 


SET ATTRIBUTE T 


\ST BYTE OF 2 BYTE CODE 
0 AH 


s-SET ZERO COLUMN FLAG FOR AVOLD 


DESTRUCT OF PREVOUS 


ROW 


3 SET ZERO COLUMN BIT OFF 


INPUT 
AH = CURRENT CRT MODE (MASKED) 
BH = DISPLAY PAGE 
; CX = COUNT OF CHARACTERS TO WRITE 
3 AL = CHAR TO WRITE 
3 BL = ATTRIBUTE OF CHAR TO WRITE 
5 DL = FLAG OF WRITE CHARACTER ONLY 
3 OS = DATA SEGMENT 
3 ES = REGEN SEGMENT 
3 
3 WORK = [BP+8IGPOSN) = 
r CBP+WPOSK) = ROW/COLUMN POSITION TO WRITE 
3 (BP+W2CODE} = 
3 (BP*WR_SEG) = REGEN SEGMENT 
3 CBP*+WGMODE) = FLAG OF GRAPHICS MODE 
3 (BP4WC_MODE3= CURRENT CRT MODE (MASKED) 
3 CBP+WFONT - WFONT+35) = FONT PATTERN 
; OUTPUT NORE 
3 
3 CALL FINT_POSITION 
3 GRAPH_POSITION 
3 WRITE_ONE_CHAR 
3 WRITE_TWO_CHAR 
; VOLATILE AX, BX, CX,DI,SI 
3 
WRITE_AC PROC = NEAR 
PUSH BP + SAVE BP 
SUB SP,W_LOCAL 3 
MOV BP,SP 3 
PUSH = AX 3 SAVE MODE 
PUSH = BX 3 
PUSH =X ; 
CALL FIND_POSITION : 
MOV DI, BX 3 
POP cx 3 
PoP ax 3 
PoP Ax $ 
MOV BYTE PTR (BP+WGMODE],FALSE ; SET NO GRAPHICS 
MOV BYTE PTR (BP4WC_MODE],AH 
CMP AH, GRAPHICS, 3 
JB WRTACL 3 
PUSH ax ; 
CALL GRAPH_POSITION 3 
MoV CBP+WGPOSN), AX ; 
mov CBP+WR_SEG).ES 3 
MoV BYTE PTR CBP¢NGMODE), TRUE 
MoV AX,P_CODE_START 3 
HOV ESsak ; 
AND DI,PCB_MASK 3 
POP AX 3 RESTORE 
WRTACL: 
PUSH = BX 3 
MOV BL,BH ’ 
xoR BR, BH 3 
SAL BX, 1 3 
MOV SI, (BX¢OFFSET CURSOR_POSN) 
MoV (BP+WPOSN),SI 3 
PoP Bx 3 
TEST Hist CHAR, TRUE 3 
JNZ wRracd 3 YES 
CMP AL, O80H 3 
JBE WRTACG ; 
CMP AL, OFDH 3 
JAE WRTACG 3 
CMP AL, OAOH 3 
JB WRTAC2 > YES 
CMP AL, ODFH 3 
JBE WRTACG ; 
WRTAC2t 
MOV AH, BL 3 
AND AL,NOT ZEROCOL 
TEST SI, OOFFH 
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3s CURRENT COLUMN IS ZERO ? 
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75 


88 
88 


a 
80 
88 
75 
Fe 


75 0 


02 
80 


O340 R 
4D 


06 0340 R 0000 
103A R 

FB 

34 

46 04 

SE 05 

SE 0340 R 
CE 0340 R 80 
cé 

co 

OA 

Cc? 80 

F 


FE CC 


Ao 


FE 
89 


SF 
GF 


FF 


E8 
E2 


c7 


83 
5D 


cs 


OOGA R 


ca 
46 02 


4E€ 00 
10E1 R 
FB 


06 0340 R C000 
C4 2E 


26: 8A 65 6 
C4 80 : 


OA 
75 


BA 


80 
AB 


17 
D2 
62 
E3 
E477 


JN WRTACS 
ORAL zERocot 
ac 
Ce ay W_IST_CHAR, AX 


JMP SHORT WRTAC1O 


4 s-~~ CHARACTER MUST BE 2ND BYTE 
mnenyr cmp AL,040H + 2ND BYTE OF 2 BYTE CODE ? 
JB WRTACS + NO 
CMP AL,OFCH ; 
JA WRTACS 3 MO 
cmp AL,O7FH ; 
JRE WRTAC7 + YES 
WRTACS: s~~- IGNORE 1ST BYTE 
MOV W_IST_CHAR,0 + RESET FLAG OF 1ST BYTE 
WRTAC6: s-~~ WRITE ONE BYTE CODE 
CALL WRITE_ONE_CHAR } WRITE ONE BYTE CHARACTER 
Loop WRTAC6 > REPEAT CX TIMES 
JMP SHORT WRTACLO s~-~ END 
WRTACT: 
MOV (BP4W2CODE),AL 3 SAVE CODE OF 2ND BYTE IN LOCAL 
MOV CBP+W2ATTRI,BL 3 SAVE ATTR OF 2ND BYTE IN LOCAL 
Mov BH,BYTE PTR WLIST_CHAR ; GET isT BYTE CODE TO SEE IF ZEROCOL 
; FLAG IS ON 
OR BYTE PTR W_IST_CHAR,ZEROCOL ; RESTORE CHARACTER CODE 
MoV AX, SI + GET CURSOR POSITION 
OR AL,AL + COLUMN IS ZERO ? 
JINZ WRTACS + NO 
TEST BH, ZEROCOL 3 ZERO COLUMN FLAG ON ? 
INZ WRTACO + YES, SKIP CORRECT CURSOR POSN. 
DEC AK 3 DECREMENT ROW 
warace mov AL, BYTE PTR CRT_COLS + SET COLUMN NUMBER AT END OF LINE 
t 
DEC AL + DECREMENT ROW FOR 2 BYTE CODE 
Mov CBP+WPOSN), AX 3 SET IT TO LOCAL WORK AREA 
DEC DI 3 DECREMENT WRITE POSITION 2 (CODE/ATTR) 
DEC ol 3 
unTAts DEC WORD PTR [BP+WGPOSN) 3 DECREMENT GRAPHICS WRITE POSITION 
t 
CALL WRITE_TWO_CHAR + WRITE TWO BYTE CHARACTER 
Loop WRTACO 3 REPEAT CX TIMES 
MoV W_1IST_CHAR,0 + RESET FLAG OF 1ST BYTE 
WRTAC1O: 
AD SP,W_LOCAL 5 DEALLOCATE LOCAL WORK AREA 
PoP BP + RESTORE BP 
RET 


WRITE_AC ENDP 


~ 
‘ 
' 
' 
' 
t 
' 
‘ 
' 
' 
' 
' 
‘ 
' 
‘ 
' 
' 
t 
‘ 
' 
‘ 
i 
' 
' 
‘ 
‘ 
' 
‘ 
t 
' 
‘ 
t 
' 
‘ 
' 
i] 


3 WO 
+ YES, SET ZERO COLUMN BIT ON 


+ SAVE 1ST BYTE OF 2 BYTE CODE 
+ RETURN; WRITE PROCESS IS PENDING 


RETURN TO CALLER 


FLAG OF WRITE CHARACTER ONLY 
= GRAPHICS WRITE POSITION 


OSITION TO WRITE 
PHICS MODE 
WRITE 


ES:DI = REGEN ADDRESS TO WRITE NEXT CHAR 


SAVE CHARACTER CODE 
SAVE ATTRIBUTE 


3 WRITE_ONE_CHAR 
: THIS ROUTINE WRITES ONE CHARACTER 
; INPUT AL = CHARACTER CODE 
; BL = ATTRIBUTE 
; DL = L 
; (BP+WGPOSN} 
H (BP+UPOSN]= ROW/COLUMN P 
1 LBP+WGMODEJ= FLAG OF GRA 
i ES:DI = REGEN ADDRESS 70 
. 
; ouput 
’ 
; CALL G_WRITE1 
; GRAPH_POSH 
; VOLATILE st 
8 
3 TORRES ESS Re nina a een ansecSaencusmsececcvecetcnc-< 
WRITE_ONE CHAR PROC HEAR 
PUSH ax 
PUSH BX 
PUSH CX 
PUSH DX 


MOV AH, ES: (DI41) 


SAVE NUMBER OF CHARACTER TO WRITE 
SAVE FLAG OF WRITE CHARACTER ONLY 


wee ee 


GET ATTRIBUTE AT CURRENT POSITION 
TEST = AH, ZENBIT ; 

JRZ WOC3 ; KO emi: 

Jomaeeeee el 

“reresm= OVERRIDE HANKAKU 

oR DL, DL i 

an bt ep i WRITE CHARACTER ONLY 1? 

Mi 
a Ov AH, BL 3 SET ATTRIBUTE 

AD 

Stosy AM +HAN_MASK 3 MASK OFF ZEN,1$T/2ND BIT 
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3 WRITE CHAR/ATIRIBUTE 


lanl nal ed ad ook td 
ooo ocococoo eo 
CUR VNU wW 
H-mmM AOON WR 


F6 46 08 FF 
74 05 


32 D2 
E8 1213 Rk 


EB SE 


Fé C4 08 
75 2D 


OA D2 
75 02 
BA ES 


80 E4 77 
a3 


26: C6 05 20 
26: 80 65 01 77 


F6 46 08 FF 
74 «12 

8A ES 

50 

Bo 20 

B2 01 

EB 1213 Rk 


58 
8a DC 


32 D2 

EB 1213 8 
EB 2c 

OA D2 

75 02 

BA ES 

80 E46 77 


26: C6 45 FE 20 
26: 80 6S FF 77 


AB 
Fé 46 08 FF 
74:12 


8A ES 
50 


ES 1213 R 


58 
8a oC 


32 D2 

ES 1213 R 
8B 46 02 

FE co 

3A 06 OO4AR 
72:12 

32 CO 

FE c4 

Fo 46 08 FF 
74 08 

50 

E8 15E8 R 
89 46 00 

58 

89 46 02 
SA 

59 

5B 


58 
cs 


WOC2: 


WOC3: 


WOC4: 


WOCS: 


WOC6: 


wWOC7: 


WOC9: 


TEST 
JZ 


XOR 
CALL 


JMP 


TEST 
JINZ 


OR 
JINZ 


MOV 


AND 
STOSW 


MOV 
AND 


TEST 
pr4 


MOV 
PUSH 


MOV 


MOV 
CALL 


POP 
MOV 
XOR 
CALL 


JP 


Mov 


PoP 
Pop 
POP 
POP 
RET 


BYTE PTR (BP¢WGMODE), 
wWoce 


DL,DL 
G_WRITE1 


SHORT WOC8 


AH, ZEN2BIT 
Wocé 


AH, BL 
AH, HAN_MASK 


BYTE PTR ES:(DIJ,* * 


AHLBL 
Ax 


AL," * 


DL,1 
G_WRITE! 


Ax 


G. _WRITEL 
SHORT WOCs 


AH, BL 
AH, HAN_MASK 


BYTE PTR ES:(DI-2), 
BYTE PTR ES:{DI-1),H 


TRUE 3G 
3 NO 
3 SET 0 
3 WRITE 
s--- END 
3 SECOND 
> YES 
OVERRIDE 15 
+ WRITE 
3 YES 
3 SET AT 
3 MASK O 


RAPHICS MODE ? 


TO DISPLACEMENT 


ONE CHAR IN GRAPHICS 


BYTE OF ZENKAKU ? 


T BYTE OF ZENKAKU 
CHARACTER ONLY ? 


TRIBUTE 


FF ZEN,1ST/2ND BIT 


WRITE CHAR/ATIRIBUTE 


¢ ERASE 2ND BYTE OF ZENKAKU 
BYTE PTR ES: (DI+1],HAN_MASK; MASK OFF ZEN,1ST/2ND BIT 


BYTE PTR (BP+WGMODE), 
wocs 


TRUE ; GRAPHICS MODE ? 
3 NO 


eee 


AND 


SET +1 


wee 


s--- END 


SAVE ATTRIBUTE 


CHARACTER 


SET SPACE 


TO DISPLACEMENT 


ERASE 2ND BYTE OF ZENKAKU 


RESTORE CHARACTER 

AND ATTRIBUTE 
SET 0 TO DISPLACEMENT 
WRITE ONE CHAR IN GRAPHICS 


Heme mennwe as 24ND BYTE OF ZENKAKU 
ere CHARACTER ONLY ? 


¢ SET ATTRIBUTE 


3 MASK OFF ZEN,1ST/2ND BIT 


* 5 ERASE 1ST BYTE OF ZENKAKU 
HAN_MASK; MASK OFF ZEN,1ST/2ND BIT 
+ WRITE CHAR/ATIRIBUTE 


BYTE PTR CBP+NGMODE], TRUE; GRAPHICS MODE ? 
wocs 3 NO 


AH, BL 

Ax 

AL,* i) 

DL.-1 

G_LWRITEL 

G. SRITEL 

AX, (BP¢NPOSN) 

AL 

AL, BYTE PTR CRT_COLS 
woce 

AL, AL 

Aw 

BYTE PTR (BP+NGMODE) 
woc9 


Ax 
GRAPH_POSN 
CaPentPosn, ax 


COP+WPOSN), AX 


WRITE_ONE_CHAR ENDP 


SAVE A 


wee 


SET SP 
SET +2 
ERASE 


we ee ee 


SET 0 
WRITE 


wee we we we ee 


CLEAR 


we 


Q 
RESTOR 


et we we we 


RESTOR 
RESTOR 


me we we we 


TTRIBUTE 
AND CHARACTER 


ACE 
TO DISPLACEMENT 


2ND BYTE OF ZENKAKU 
RESTORE CHARACTER 


AND ATTRIBUTE 
TO DISPLACEMENT 


ONE CHAR IN GRAPHICS 


GET COLUMN COUNT 
INCREMENT COLUMN 


3 EXCEED END OF LINE ? 
xO 


RAPHICS MODE ? 


SAVE AX 
aei NEW GRAPHICS WRITE POSITION 


E ax 


SET NEW ROW/COLUMN POSITION 


RESTORE FLAG OF WRITE CHARACTER ONLY 
E NUMBER OF CHARACTER 


E ATTRIBUTE 


RESTORE CHARACTER CODE 


Jrrem teres wenn ne ween nn wenn =e. meee ee teem ww ewe wenn w wwe ee nen 


WRITE_TWO_CHAR 
THIS ROUTINE WRITES TWO BYTE CHARACTER 
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SINCE MODULO OF CRT_COLS 
INCREMENT ROW 


» TRUE 3 Gi 
NO 
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10€2 $1 
10E2 52 


10E3 8B 46 02 
10E6 FE CO 


10ES 3A 06 OO4A R 
72 2¢ 


10F5 aes C6 05 20 
4 

1O0FA 26: 80 25 77 
47 

10FF F6 46 08 FF 
74:15 

1105 50 


1106 52 


1107 BO 20 
1109 8A 1E O341 R 
32 D2 


JIOF €8 1213. R 
1112—sSA 

11S 88 

1114 E38 ISEB R 
1117° 89 46 00 


VIIA 26: 8A 7D 01 
LIIE 26: BA SD 83 


1122) F6 C7 80 

1125 74 05 

1127, Fé C7 68 

112A 75 3A 

112C F6 C3 80 
05 


1131 F6 C3 08 
OE 


1136 £8 11E6 R 


1139 F6 46 08 FF 
113D 74 63 


JISF E88 1335 R 
1162) EB 7D 


1164 E8 LIES R 


1147) 26: C6 05 20 
116B 26: 


1150 FG 66 08 FF 
1156 74 OF 


1156) BO 20 

1158 8A 1E o3e1 R 
115C B2 02 

LUISE £8 1213 R 
1161 E838 1335 R 
1166 «EB SB 


tl 
1166 F6 C3 80 
1169) 75 23 


116B 26: C6 45 FE 29 
1170 26: 80 65 FF 77 


1175 £8 L1EG R 


80 65 01 77 


De we we we we Be we we we we Oe Or we wr Oe we we 


INPUT 


(BP+W2CODE) 


C 
C 


OUTPUT 
CALL 


VOLATILE 


BP¢W2ATTR) 


+ = ROW/COLUMN POSITION TO WRITE 
tapsuscene 2ND BYTE OF 2 BYTE CODE TO WRITE 
ATTRIBUTE FOR 2ND BYTE 


BP+WGMODE) = FLAG OF GRAPHICS MODE 
OL = FLAG OF WRITE CHARACTER ONLY 
ES:DI = REGEN ADDRESS TO WRITE 


Es:DI 


WRITE_TWO 
G_WRITEL 
G_WRITE2 
GRAPH_POSN 


AX, BX,SI 


WRITE_TWO_CHAR PROC NEAR 


WTC1: 


WIC2: 


WIC3: 


WIC4: 


WTCS5: 


WIC6: 


WIC7: 


PUSH CX 
PUSH DX 
Mov AX, [BP*WPOSNI 
INC AL 
CMP AL, BYTE PTR CRT_COLS 
8 wTc1 
IKC AH 
XOR AL, AL 
MoV (BP+WPOSH), AX 
Mov BYTE PTR ES:[DI}," * 
INC DI 
AND 
IHC 
TEST BYTE PTR CBP+WGMODE}, TRUE 
Jz wren ; 
PUSH AX 
PUSH DX 
Mov ALLS t 
MOV 
XOR 
CALL G_WRITEX 
POP Dx 
POP AX 
CALL —- GRAPH_POSN 
HOV CBP+WGPOSH) , AX 
Mov BHLES:(DI01) 
HOV BLES: {D143} 
TEST BH, ZENBIT 
Jz wrc2 
TEST BH, ZEN2BIT 
JNZ wre? 
jes 
TEST BL, ZENBIT 
Jz WICS 
TEST BL, ZEN2BIT 
Jz WTCS 
CALL sOWRITETHO 
TEST BYTE PTR CBP¢WGNODE), 
Jz WTC4 
CALL G_WRITE2 
snp SHORT WICLO 
CALL sOWRITETHOSSS 
mov BYTE PTR ES:(DI_ ),+ 
TEST 
Jz 
mov AL,t * 
v BL, BYTE 
hoy BLOBYTE PTR W_1ST_CHAREL 
CALL G_URITER 
CALL G_urtTe2 
JmP SHORT WIC1O 
TEST BL, ZENBIT 
JNZ wres 
foe "aeie pun eavearcanc 
AND BYTE PIR ES: DI-ah 
CALL 


REGEN ADDRESS TO WRITE NEXT CHARACTER 


- 


SAVE NUMBER OF CHARACTER TO WRITE 
SAVE FLAG OF WRITE CHARACTER ONLY 


GET ROW/COLUMN POSITION 
ADJUST FOR COMPARE 


ss LINE END BOUNDARY ? 
N 


we we 


INCREMENT ROW 
SET 0 TO COLUMN 
SET IT TO WORK 


WRITE SPACE 


oe PTR ES: (D1), HAN_MASK; MASK KJ-BIT OFF 


+ ADVANCE POINTER 
+ GRAPHICS MODE ? 
NO 
SAVE ROW/COLUMN 
SAVE FLAG OF WRITE CHAR ONLY 
WRITE SPACE 


moe PTR W_1ST_CHAR#1; GET ATTRIBUTE OF 1ST BYTE 
’ 


WRITE AT CURRENT CURSOR POSITON +0 
WRITE ONE BYTE CHAR IN GRAPHICS 
RESTORE FLAG 
RESTORE ROW/COLUMN 
SET NEW GRAPHICS WRITE POSITION 

TO AX 


we we ee ee we we 


GET ATTR. AT CURRENT CURSOR POSN 
GET ATTR. AT CURRENT CURSOR POSN+1 


HANKAKU ? 
YES 


we 


2ND BYTE OF 2 BYTE CODE ? 
> YES 
HANKAKU OR 1ST BYTE IS PRESENT AT CURRENT 
3 HANKAKU ? 
3 YES 
; ane BYTE OF 2 BYTE CODE ? 
N 


i 


OVERRIDE TWO HANKAKU OR 1ST,2ND BYTE 
+ WRITE TWO BYTE CHARACTER IN REGEN 


TRUE 3 GRAPHICS MODE ? 
+ MO 


s WRITE 2 BYTE CHARACTER IN GRAPHICS 
bw-~ END 


OVERRIDE HANKAKU,1ST BYTE OF 2 BYTE CODE 
+ WRITE TWO BYTE CHARACTER IN REGEN 


‘ 3 ERASE 2ND BYTE OF 2 BYTE CODE 


BYTE PIR ES:(DI+1),HAN_MASK; MASK OFF KJ-BIT 


BYTE PTR COP+WGMODE), TRUE; GRAPHICS MODE 7 
WIC6 + WO 


WRITE_THO 
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ERASE 2ND BYTE OF 2 BYTE CODE 

GET ATTRIBUTE OF 1ST BYTE 

WRITE AT CURRENT CURSOR POSITON ¢2 
WRITE ONE BYTE CHAR IN GRAPHICS 


we we we we 


~ 


WRITE 2 BYTE CHARACTER IN GRAPHICS 
j--- END 


s AG rRIBUTE AT CURRENT #1 IS HANKAKU ? 
’ 


OVERRIDE 24D BYTE, HANKAKU 
5 ERASE 1ST BYTE OF 2 BYTE CODE 
T 


AK_MASK; MASK OFF KJ-BI 


} WRITE Two BYTE CHARACTER IN REGEN 


1178 
117¢ 
1I7E 
1180 
1184 
1186 


1189 
118C¢ 
118¢C 


118E 
118E 
1193 


~ 

~~ 
> 22 2 
* no oO 


> 
o 


ow wo>> 
en KFOnN> 


ese wvoow 
mmm oooc00 99 20 29M ANN bef 


| lh al and oe ee Lend oe pe | dl al | lh aad 

ee he eee le ee 

Or mt Oyen er er kt ed ee ed od od och al el ee ed 
“enKe MmMOoFrvO FO MO FH Seem Boe 


m 
o 


11€4 
11E4 


Cd al 
—— 
mm 
ou 


—— aoe 
—— ee 

al an am om 
onwnn ea oS 


ereteteto 
Nem mee 
-meewwo “uw 


F6 46 08 FF 


TEST BYTE PTR (BP4WGMODE), TRUE: GRAPHICS MODE ? 
74 0€ Jz WTC8 3 NO 
BO 20 Mov AL,’ * 3 ERASE 1ST BYTE OF 2 BYTE CODE 
8A 1E 0341 R MoV BL, BYTE PTR W_IST_CHAR#1; GET ATTRIBUTE OF 1ST BYTE 
B2 FF MoV DL,-1 3 WRITE AT CURRENT CURSOR POSITON -1 
€8 1213 R CALL G_WRITEL + WRITE ONE BYTE CHAR IN GRAPHICS 
E8 1335 R ine CALL G_WRITE2 + WRITE 2 BYTE CHARACTER IN GRAPHICS 
’ 

EB 33 JMP SHORT WTC10 s--- END 

WIC9: 9 3 ------~---------~------------ OVERRIDE 2ND,1ST BYTE OF 2 BYTE CODE 
26: C6 45 FE 20 Mov BYTE PTR ES:(DI-2)," ' ; ERASE 1ST BYTE OF 2 BYTE CODE 
26: 80 65 FF 77 AND BYTE PTR ES:(DI-1],HAN_MASK; MASK OFF KJ-BIT 
E8 1LE4 R CALL WRITE_TWO 3 WRITE TWO BYTE CHARACTER IN REGEN 
26: C6 05 20 Mov BYTE PTR ES:(DI J,° * 3 ERASE 1ST BYTE OF 2 BYTE CODE 
26: 80 65 01 77 ARD BYTE PTR ES:C(OI#1),HAN_MASK; MASK OFF KJ-BIT 
F6 46 08 FF TEST BYTE PTR [BP+WGMODE), TRUE 3 GRAPHICS MODE ? 
74:17 JZ wICLO 3 NO 
BO 20 MOV AL,’ ' > ERASE 1ST BYTE OF 2 BYTE CODE 
8A LE O341 R MOV BL,BYTE PTR W_LAIST_CHAR+1; GET ATTRIBUTE OF 1ST BYTE 
50 PUSH AX 3 SAVE AX 
53 PUSH Bx 3 SAVE BX 
B2 FF Mov DL,-1 3 WRITE AT CURRENT CURSOR POSITON -1 
EB 1213 R CALL G_WRITEL 3 WRITE ONE BYTE CHAR IN GRAPHICS 
58 PoP Bx 3 RESTORE BX 
58 POP AX 3 RESTORE AX 
82 02 MOV DL,2 + WRITE CURRENT CURSOR POSITON #2 
EB 1213 R CALL G_WRITE1 3 WRITE ONE BYTE CHAR IN GRAPHICS 
EB 1335 R wena CALL G_WRITE2 + WRITE 2 BYTE CHARACTER IN GRAPHICS 
8B 46 02 “NOV AX, (BP+WPOSN) 3 GET COLUMN COUNT 
04 02 ADD +2 3 ADVANCE 2 BY 2 BYTE CHAR WRITING 
3A 06 COSA R cMP AL, BYTE PTR CRT_COLS- 5 EXCEED END OF LINE ? 
72 12 JB WTCLL + NO 
32 co XOR ALL AL + CLEAR SINCE MODULO OF CRT_COLS 
FE C4 INC AH 3 INCREMENT ROW 
F6 66 08 FF TEST BYTE PTR CBP+NGMODE], TRUE; GRAPHICS MODE ? 
74 08 JZ WTCLi 3 NO 
50 PUSH ax 3 SAVE ROW/COLUMN 
E8 1568 R CALL GRAPH_POSK 3 SET NEW GRAPHICS WRITE POSITION 
89 46 00 MoV CBP+WGPOSN),AX 3 TO (BP+WGPOSN) 
58 on PoP AX 3 RESTORE ROW/COLUMN 

? 

89 46 02 Mov (BP¢WPOSN), AX 3 SET NEW ROW/COLUMN POSITION 
SA POP DX 3 RESTORE FLAG OF WRITE CHARACTER ONLY 
59 PoP cx 3 RESTORE NUMBER OF CHARECTER 
cs RET 

WRITE_TWO_CHAR ENDP 

brn nner em em wwn wn ene www eww ewww eww ewww wenn eee een nee eee wce 

s 

3 WRITE_TWO 

$ 

3 THIS ROUTINE WRITES TWO BYTE CHARACTER IN REGEN 

3 

i INPUT (BP+W2CODE) = 2ND BYTE OF 2 BYTE CODE TO WRITE 

3 CBP+W2ATTR) = ATTRIBUTE FOR 2ND BYTE 

3 BH = ATTRIBUTE AT CURRENT CURSOR POSITION 

3 BL = ATTRIBUTE AT CURRENT CURSOR POSITION ¢ 1 

t DL = FLAG OF WRITE CHARACTER ONLY 

’ EStDI = REGEN ADDRESS TO WRITE 

3 OUTPUT ES:DI = REGEN ADDRESS TO WRITE NEXT CHARACTER 

3 

’ CALL CHECK_ROSS_CHAR 

3 

; VOLATILE AX 

i 

Pree re rte eee e een www eww www www n eww mwemw enw wenwwennceccccouccccace 

WRITE_TWO PROC NEAR 
51 PUSH cx 3 SAVE CX 
8A 2E 0340 R MoV CH,BYTE PTR W_IST_CHAR ; GET 2ST CHARACTERS CODE 
BA 4E 04 MOV CL,BYTE PTR [BP+W2CODE) ; GET 2ND CHARACTER'S CODE 
ES 1B65 R CALL CHECK_ROSS_CHAR 3 CHECK AND CONVERT ROSSIAN CHARACTER 
8A CS MoV AL, CR s GET 1ST CHARACTER'S CODE 
BA 26 O341 R MOV AH, BYTE PTR W_IST_CHAR#1; GET 1ST CHARACTER'S ATTRIBUTE 
OA D2 OR DL, OL 3 WRITE CHARACTER ONLY ? 
74 02 Jz WRITWOL 3 NO 
8A E? Mov AH, BH + GET ATTRIBUTE AT CURRENT 

WRITWOL: 
80 E477 AND AH, HAN_MASK 3 STRIP OFF ZEN,1ST/2ND BIT 
80 CC 80 OR AH, ZENBLY 3 SET ZENKAKU BIT 
AB STOSW 3 WRITE TO REGEN 
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202 38a C 
1308 BA 66 05 


1207 0A D2 
1209 74 02 


1208 8A ES 


120D 80 CC 88 
1210 AB 


1211 «59 
1212. 3 


1213, 1E 

1215 06 

1216 ~F6 C3 80 
75 05 


121B C6 06 0349 R 00 
1220 53 

1221) 16 

1222) 07 

1223) 8D SE OA 


1226 32 &4 
1228 «88 C8 


122A 80 F9 AO 
122D 38 2455 
1230 (76 «07 


1232 80 F9 20 
1235 75 18 


1237) 33 co 


1239 8B FB 
1238 B39 0008 


123E F37 AB 
33 co 
1242) AB 


1263) Fé 06 0353 R FF 
4 0c 


124A ES 1BB4 R 
124D EB 07 


1246F BO 80 
1253 E38 LAGS R 
1256 06 

1257 1F 

1258 «83 FS 
125A 5B 


MoV 
MOV 


OR 

JZ 

MoV 
WRITWO2: 

OR 

STOSHW 

POP 

RET 
WRITE_TWO 


G_WRITE) 
THIS ROU 
INPUT 


WORK 
QUTPUT 
CALL 


VOLATILE 


[0 Ue Se We Be Be we OF we Be Or Oe we Bs we we we we we Oe ee we 


pocree------- ~~. 


G_WRITEL Proc 


Mov 
G_WRT11: 
PUSH 


PUSH 
PoP 
LEA 


xOR 
MoV 


CMP 
JE 


CMP 
JNE 


XOR 
G_WRT12: 
MoV 
MoV 
REP 
STOSW 
TEST 
JZ 
CALL 
JMP 
G_WRT13: 


CL $ GET 2ND CHARACTER'S CODE 
AR, EBPSW2ATTRI § GET 2ND CHARACTER'S ATTR/CODE 
DL,DL 3 WRITE CHARACTER ONLY ? 
WRITWO2 3 KO 
AH, BL 3 GET ATTRIBUTE AT CURRENT + 1 
AK, ZEN2_MASK + SET ZENKAKU,2ND_BYTE BIT 

3 WRITE TO REGEN 

cx + RESTORE Cx 
ENDP 


tee we nn nw mw wwe www ene nn wn ween ew cnc cue 


TINE WRITES ONE CHARACTER IN GRAPHICS 


AL = CHARACTER CODE TO WRITE 

BL = ATTRIBUTE 

DL = DISPLACEMENT FOR WRITE POSITION 
CBP¢WGPOSK) = WRITE POSITION 
CBP+WPOSHJ= ROW/COLUMN POSITION TO WRITE 
CBP+WR_SEGJ= REGEN SEGMENT FOR GRAPHICS 
CBP+WC_MODEJ= CRT MODE (MASKED) 
CBP¢WFONT - WFONT+17) = FONT PATTERN 


CBP¢WGPOSN) = NEXT WRITE POSITION (IF DL = 0) 
ENABLE_VRAM 
FONT 


G_LWRT1 
AX, BX,CX,DX,SI 
HEAR 
Ds 3 SAVE CURRENT DS 
DI + SAVE CURRENT DI 
Es $ SAVE CURRENT ES 
BL, XOR_BIT 3 XOR WRITE BIT ON ? 
G_WRT11 3 YES 
GC_PRESENT, FALSE 3 GRAPHICS CURSOR FLAG OFF 
BX 3 SAVE COLOR ATTRIBUTE 
ss + SET DESTINATION SEGMENT FOR FONT 
Es TO ES 


3 
ASSUME ES:STACK 
BX, (BP+WFONT) + SET DESTINATION OFFSET FOR FONT TO BX 
AH, AH CLEAR FOR 1 BYTE CODE 


CX,AX ; SET CHARACTER CODE TO Cx 

CL, HALFTONE + HALF TONE CHARACTER ? 

AX, HT_FONT 3 SET FONT PATTERN OF HALF TONE 

G_WRT12 3 YES 

cL,’ * 3 SPACE ? 

G_LWRT13 + NO 
g-~~ SPACE & HALF TONE CODE IS HANDLED SPECIALLY FOR 
gwe- IMPROVE THROUGHPUT OF "BASIC" AND KANA-KAN 

AX, AX + CLEAR FOR FONT PATTERN OF SPACE 


DI,BxX } SET DESTINATION ADDRESS 
CX, (CBOX_ROW-2)723 SET CLEAR COUNT BY WORD 


STOSW 3 SET FONT PATTERN 

AX, AX 3 
5 CLEAR BOTTOM 2 ROW 
s--- INSURE Y-RAM IS ON FOR KANA-KAN INTERFACE 
i Nn? 


KJROM_STAT, TRUE ; KJ-ROM IS 0 
G_WRT14 + NO 


EXABLE_VRAM 
SHORT  G_WRT14 


b MUST ENABLE VRAM FOR WRITE GRAPHICS PATTERN 


AL, 80H 3 SET FUNCTION OF REQUEST FOKT WITH FULL BOX 
OH, KJ_MODE } INDICATES KJ MODE 
FONT 3 GET FONT PATTERN 
ME ' SET SEGHENT FOR FONT PATTERN 
ASSUME DS:STACK 
SI,BX 5 SET TOP ADDRESS OF FONT PATTERN 
BX 


} RESTORE COLOR ATTRIBUTE 


THIS ROUTINE WRITES 


ES, (BP*WR_SEG) 
ASSUME 
G_WRT1 


BL 


3 GET fe tn REGEN SEGMENT FOR GRAPHICS 
ES: VIDEO_R 


3 WRITE FONT PATTERN 


3 RESTORE ES 
s RESTORE DI 
3 RESTORE DS 


GRAPHICS PATTERN 


ATTRIBUTE 
DL DISPLACEMENT 
CBP+WGPOSN) = WRITE POSITION 
(BP+WPOSN) 


(BP +WC_MODE) 
DS:SI 
es 


CBP+WGPOSK) = 


ROW/COLUMN Cost TION TO WRITE 
CRT MODE CMASKED) 

FONT PATTERN ADDRESS 

REGEN SEGMENT 


NEXT WRITE POSITION CIF DL=0) 


ASSUME CS:CODE, DS: INDETERMINATE, ES: VIDEO_RAN 


BE 46 06 MOV 
E8 1265 R CALL 
07 POP 
SF POP 
iF POP 
cs RET 

G_WRITEL ENDP 

i 

3 O_WRTA 

5 

3 

3 

3 INPUT 

3 

3 

3 

; 

3 

3 

3 OUTPUT 

$ 

3 CALL 

5 

1 

3 

3 

3 

$ 

’ VOLATILE 

3 

G_WRT1 PROC 
8a C2 MoV 
98 CBW 
50 PUSH 
03 46 00 ADD 
8B FS HOV 
8A 76 09 MOV 
80 FE 09 CMP 
74 25 JE 
80 FE OB cP 
74 3B JE 
80 FE OA cP 
74 68 E 
80 FE 04 
74:7 JE 
80 FE 05 CHP 
74°77 JE 
80 FE 06 cup 
74°73 JE 
DL E7 SAL 
DL E? SAL 
B6 09 HOV 
ES 14FS R CALL 
E9 1320 R JMP 

GWRTL1: 
Di €7 SAL 
DL E7 SAL 
Be 09 MoV 
8B 46 02 Mov 
Do EC SHR 
72 05 Jc 
E8 14F3 R CALL 
EB 7F ump 

GWRTL2: 
81 C7 SFBO Abb 
€8 1527 R CALL 
EB 76 amp 

GWRTL21: 
53 PUSH 
3? PUSH 
56 PUSH 
8A FB MOV 
80 E7 80 AND 
DO EB SHR 
DO EB SHR 


NEAR 
AL, DL 


ax 
coe LSP MePmana 


are serene) MODE) 
GWRTLL 


DH, OBH 
GWRT121 


DH, OAH 
GWRTLS 
DH.4 
GWRT15 
DH.5 
GWRTL5 
DH,6 
GWRTA6 
DI,1 
DIL. 


oe CBOX_ROWs2 
G_W_4 in 


GWRT110 


Or,1 
DI,1 


DH, CBOX_ROW/(472)3 SET LOOP COUNT ( 18 ROW 7 4 SCAN 7 2 DEC. ) 


AX, CBP*NPOSN) 
outa 

os 

SHORT GWRTLI0 
DI,4000H-380 
G_W_40 


SHORT GWRT110 


ux 
or 
SI 


BH,BL 
ae ‘om tae BIT 


it: 1 
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SEY DISPLACEMENT 
TO AX 

SAVE IT 

GET POSITION TO WRITE 
IW DI 


we we we ee we 


GET CRT MODE 
320X200 16 COLOR 2 
YES 


we eee 


3 640X200 16 COLOR ? 
> YES 

3 640X200 4 COLOR ? 
3 YES 


3 320X200 4 COLOR ? 
Yes 
ia & SHADE 2 


3 
3 640X200 2 SHADE ? 
3 YES 


s--~ 160X200 16 COLOR: MODE 8 
3 
3 OFFSETH4 SINCE 4 BYTES/CHAR 


3 SET LOOP COUNT ( 18 ROW 7 2 SCAN ) 
3 WRITE ONE CHAR 


b--- END 

s--~ 320X260 16 COLOR 

3 

3 OFFSETH4 SINCE 4 BYTES/CHAR 


3 GET ROW COLUMN POSITION 

3 ODD ROW ? 

+ YES 

b~~~ WRITE EVEN ROW CHARACTER 
3 WRITE ONE CHAR 


s--- WRITE ODD ROW CHARACTER 
3 ADJUST WRITE ADDRESS FOR ODD ROW 
+ WRITE ONE CHAR 


s-~~ 640X200 16 COLOR 

so-> WRITE V-RAM 2 

SAVE ATTRIBUTE 

SAVE REGEN POINTER 

SAVE CHARACTER PATTERN ADDRESS 


SAVE ATTRIBUTE TO BH 
GET XOR BIT 


SHIFT ATTRIBUTE FOR WRITE TO V-RAM2 


wo we we 


wee eee 
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P RESTORE XOR BIT 
13 Bt Hd gat brie } OFFSETK2 SINCE 2 BYTES/CHAR 
12¢6 B6 09 Mov DH, CBOX_ROW/(472)3 SET LOOP COUNT ( 18 ROW 7 4 SCAN / 2 DEC.) 
12¢8 BB 46 02 Mov AX, LBP4NPOSN) =; GET RoW COLUMN POSITION 
12CB 00 EC SHR AN + 00D 
iceislinliteed 7 ve s--- WRITE EVEN ROW CHARACTER 
12CF £8 1498 R CALL GWA 3 WRITE ONE CAHAR 
12D2 EB 07 mp SHORT GHRT123 
s--- WRITE ODD ROW CHARACTER 
pn sien DI,4000H-80 3 ADJUST WRITE ADDRESS FOR ODD ROW 
12D¢ 81 C7 3FBO ‘ 
1208 E8 16C2 R . CALL = G_W_10 3 WRITE ONE CHAR 
13DB SE iene SI 3 RESTORE CHARACTER PATTERN ADDRESS 
13p¢ SF POP DI ; RESTORE REGEN POINTER 
1200 5B POP BX 3 RESTORE A 
PUSH DS + SAVE DS 
13DE ts 0000 € CALL DDS. + POINT TO DATA AREA 
E8 1D95 R CALL —- GET_DIRSEG } GET DIRECT ACCESS SEGENT OF V-RAM 1 
13E5 8E CO MOV ES,AX 3 SET IT TO ES 
12E7 1F POP DS t RESTORE!DS. j 
GWRT13: 3--- 640X200 4 COLOR 
izes pi 7 SAL DI,1 3 OFFSETM2 SINCE 2 BYTES/CHAR 
12EA BG 09 mov DH, CBOX_ROW/(472); SET LOOP COUNT ( 18 ROW 7 @ SCAN 7 2 DEC.) 
1ZEC 8B 46 02 Mov AX, {BP¢WPOSN] = 5. GET ROW COLUMN POSITION 
12EF DO EC SHR AML + ODD ROW 
J ; 
Sein ee --- WRITE EVEN ROW CHARACTER 
12F3. E8 1498 R CALL = G_WLA } WRITE ONE CAHAR 
12F6 EB 36 JMP SHORT GWRT110  3--- END 
GURT14: s--- WRITE ODD ROW CHARACTER 
13es 81 C7 SFBO ADD DI,4000H-80 3 ADJUST WRITE ADDRESS FOR ODD ROW 
12FC E8 14C2 R CALL = G_W_10 3 WRITE ONE CHAR 
12FF EB 2B JMP SHORT GWRT110 
1301 GWRT15: s--- 320X200 6 COLOR/SHADE 
1301 D1 E7 SAL DI,1 3 OFFSETH2 SINCE 2 BYTES/CHAR 
1303 86 09 MoV DH,CBOX_ROW/2 3 SET LOOP COUNT ( 18 ROW 7 2 SCAN ) 
1305 €8 168 R CALL = G_W_2 3 WRITE ONE CHAR 
1308 EB 22 Jup SHORT GWRT110  3--- END 
130A GURT16: $--- 640X200 2 SHADE 
1304 B6 09 re DH,CBOX_ROW/2 =; SET LOOP COUNT ( 16 ROW 7 2 SCAN ) 
130¢ Ac * Lopss 3 GET WORD FROM CODE POINTS 
1300 F6 CS 80 TEST BL, XOR_BIT 3 SHOULD WE USE THE FUNCTION 
1310 75 06 INZ GWRT18 + TO PUT CHAR IN? 
13120 AA : STOSB 3 STORE IN REGEN BUFFER 
M3130 ac LoODSB 3 GET NEXT ROW 
1316 EB OA JMP SHORT GWRT19 
1316 GWRT18: 
ae ete 32 05 XOR AL, ES: (D1) 3 EXCLUSIVE On tw TH COnnent DATA 
STOSB + STORE THE CODE 
131A AC LODSB + AGAIN FOR ODD FIELD 
131B 26: 32 85 1FFF XOR AL, ES:€DI4#2000H-1) 
1320 GHRT19: 
1329 26: 88 <id FFF mov ES: {or+2000H- 13,AL ; STORE IN SECOND HALE 
MOVE TO NEXT ROW IN RE 
1328 FE Ce DEC DH i DONE WITH LOOP ? 
132A 75 £0 JZ GWRT17 NO 
132e 58 IE a i RESTORE DISPLACEMENT 
5 ACEM 
132D 0A CO OR ALLAL 3 ZERO ? 
132F 75 03 JHE GWRT111 3 NO 
i sininay. WORD PTR [BP+WGPOSH] 5 ADVANCE WRITE POSITION 
1334 ¢3 RET 
1335 G_WRT1 ENDP 
3 SE SSSR SSE See wewebe Sim Ssnccnecaosemeacewsceceu 
; G_WRITE2 
; THIS ROUTINE WRITES TWO BYTE CHARACTER IN GRAPHICS 
5 IHPUT [BP+WGPOSN) = WRITE PosiTr 
ON 
i EBPsUPOSN] == ROW/COLUMN POSITION To WRITE 
; tarsus oer = ATIRIBUTE/CODE OF 2ND BYTE 
3 (BPsucTAoGe) = EN SEGMENT FOR GRAPHICS 


CURRENT CRT MODE (MASKED) 
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| ad aed anal Ct lh el al ae el oe al 
CEN Levu uu 
Con wav VS 
Kon CrPwewve ou 


ee ee ee 
Vu VueUuUlunuu 
C2o O8OCA0O 
VN DOeOnOuw 
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=o 
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BO 
iz.) 
06 
1F 
88 
58 
8E 


80 
75 


D1 


C3 80 


06 0349 R 00 
1E 0340 R 


46 04 
SE 05 


SE OA 


cs 
1B65 ® 


80 
1 
1A63 R 


FS 


46 06 


7E 00 
76 09 
2F 


0002 
09 


C7 80 
04 


OA 


32 05 


: 32 85 1FFF 


88 85 lLFFF 
C7? 4F 


cE 
€0 


FB 
07 


148E R 


FE 08 
18 


€7 


Se ee 


OUTPUT 


(BP+WGPOSN) = 


NEXT WRITE POSITION 


(UBP+WFONT - WFONT¢35] = FONT PATTERN 


WORK 
CALL CHECK_ROSS_CHAR 
We 
G_W_10 
HL 
G_W_S 
G_W_40 
GET_DIRSEG 
VOLATILE 


G_WRITE2 PROC 


ASSUME CS:CODE, 
NEAR 


AX, BX,CX,DX,SI 


DS: DATA, ES: VIDEO_ RAN 


PUSH DS 3 SAVE CURRENT DS 
PUSH or 3 SAVE CURRENT DI 
PUSH ES 3 SAVE CURRENT ES 
TEST BL,XOR_BIT + XOR WRITE BIT ON ? 
JINZ GWRT21 3 YES 
mov GC_PRESENT, FALSE + GRAPHICS CURSOR FLAG OFF 
GWRT21: 
MOV BX,W_IST_CHAR 5 SET ATTRIBUTE OF 1ST BYTE TO BH 
MoV AH,BL 3 SET 1ST BYTE OF 2 BYTE CODE TO AN 
MoV AL, CBP+W2CODE] ; SET 2ND BYTE OF 2 BYTE CODE TO AL 
MOV BL,» CBP*W2ATTR] + SET ATTRIBUTE OF 2ND BYTE TO BL 
PUSH BX 3 SAVE COLOR ATTRIBUTE 
PUSH ss 3 SET DESTINATION SEGMENT FOR FONT 
PoP ES H To ES 
ASSUME ES: STACK 
LEA BX, (BP+WFONT) 3 SET DESTINATION OFFSET FOR FONT TO BX 
MOV CX, AX 3 SET CHARACTER CODE TO CX 
CALL CHECK_ROSS_CHAR 3; CHECK AND CONVERT ROSSIAN CHARACTER 
MOV AL,80H } SET FUNCTION OF REQUEST FONT WITH FULL BOX 
mov DH, KJ_MODE + INDICATES KJ MODE 
CALL FONT + GET FONT PATTERN 
PUSH Es ; SET a FOR FONT PATTERN 
Pop DS To D 
ASSUME DS: stack 
MOV ST,Bx + SET TOP ADDRESS OF FONT PATTERN 
PoP Bx 3 RESTORE COLOR ATTRIBUTE 
MOV Cae Care SEG) 5 GET ACTUAL REGEN SEGMENT FOR GRAPHICS 
ASSUME ES: VIDEO_RAM 
MOV DI,CBP+NGPOSN) 5 SET WRITE POSITION TO DI 
MoV DH, CBP*WC_MODE) ; GET CRT MODE 
CMP OH.6 + 640X200 2 SHADE ? 
JNE GURT26 3 NO, MODE IS 8 
MoV CX,2 ; REPEAT 2 TIMES, FOR FT/R Al 
H $ ‘ 
GURT22: ’ ; LE IGHT PART 
PUSH DI 3 SAVE REGEN ADDRESS TO WRITE 
cuRT23 MOV OH, CBOX_ROW/2 3 NUMBER OF TIMES THROUGH LOOP 
t 
LODS8 3 GET WORD FROM CODE POINTS 
TEST BH, XOR_BIT 3 SHOULD WE USE THE FUNCTION 
INZ GWRT24 3 TO PUT CHAR IN? 
STOSB 3 STORE IN REGEN BUFFER 
LODsB 3 GET NEXT ROW 
JMP SHORT GWRT25 
GHRT24: 
XOR AL, ES: (DI) s EXCLUSIVE OR WITH CURRENT DATA 
STOS 3 STORE THE CODE POIN 
LODSB $ AGAIN FOR ODD FIELD. 
XOR AL, ES: (DI*2000H-1) 
GWRT25: 
MOV ES:(DI*2000H-1),AL 3 STORE IN SECOND HALF 
add O1,79 3 MOVE TO NEXT ROW IN REGEN 
DEC OH 3 DONE WITH LOOP ? 
INZ GWRT23 3 NO 
PoP or 5 RESTORE REGEN ADDRESS 
INC DI 3 NEXT POSITION 
MOV BHLOBL + SET 2ND ATTRIBUTE TO BH 
Loop GURT22 
JMP GWRT212 geo~ END 
GWRT26: 
CMP DH.8 3 160X200 16 COLOR ? 
JHE GWRT27 + 60 
s--~ 160X200 16 COLOR: MODE 8 
SAL or,1 ‘ 
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13A9 D1 ET SAL 
13AB_ 53 PUSH 
13AC 8A DF Mov 
13AE BG 09 MoV 
1380 E83 16F3 R CALL 
13B3 83 €7 04 ADD 
1386 SB POP 
1337 B6 09 MoV 
13B9 E83 14FS R CALL 
13BC ED 148E R JMp 
A3BF GWRT27: 
138F 80 FE 09 cmp 
13sc2_ 75 32 JHE 
13cé DLE? SAL 
13¢6 DL E7 SAL 
13c8 53 PUSH 
13¢9 8A DF MoV 
13CB BG 09 MOV 
13CD 8B 46 02 MoV 
13D0 DO EC SHR 
1302 72 «OF Jc 
13D¢ EB 14FS R CALL 
1307 83 C7 04 AbD 
13DA 5B PoP 
13DB 36 09 MOV 
1SDD €8 14F3 R CALL 
1SE8 £9 1468E R JMP 
ASES GHRT28: 
(SES 81 C7 SEBO ADD 
13E7 £8 1527 R CALL 
A3EA 83 C7 04 ADD 
13ED 5B POP 
1SEE BG 09 MoV 
13FO E83 1527 R CALL 
ASFS Ed 168E R JMP 
13F6 GURT281: 
13F6 80 FE OB che 
13F9 75 4D JRE 
13FB 53 PUSH 
ASFC 57 PUSH 
ASFD 56 PUSH 
13FE 8B C3 MoV 
1400 25 8080 AND 
1603 81 E3 2¢7¢ AND 
1407 Di EB SHR 
1609 Di EB SHR 
160B OB ba OR 
160D Di E7 SAL 
160F 53 
1610 8A DE hove 
1612 Be 09 Mov 
1614 8B 46 02 
1617 DO EC Shy 
1419 72 o€ Je 
1913 £8 1498 R CALL 
1S1E 83 ¢7 02 ADD 
1421 53 
1622 BG 09 tsa 
14624 £3 14698 R CALL 
1627 EB 19 amp 
1629 
1629 81 C7 sepe iii 
1462D E38 14c2 R CALL 
4 
1430 83 ¢7 92 ie 
1633 5B 
1436 B6 O9 Pop 
1636 £8 16c2 R Mov 
1639 CALL 
1639 Se GWRT283 
1630 SF rae 
1438 

_ POP 


br.1 


BX 

BL,BH 

DH, CBOX_ROW/2 
G_W_4 


bI.4 


BX 
DH, CBOX_ROW/2 
G_W_4 


GWRT212 


DH,9 
GWRT281 


DI,1 

DI,1 

Bx 

BL, BH 

OH, CBOX_ROW/ (472 
AX, (BP+WPOSN) 
AH, 

GURT28 

G_W_¢ 


DI,4 

Bx 

DH, CBOX_ROW/ (472 
G_W_4¢ 

GWRT212 
DI,4000H-80 
G_W_40 


DI.4¢ 


BX aR 
DH, CBOX_ROW/( 472); 


G_W_40 
GWRT212 


DH, OBH 
GWRT29 


BX 

DI 

SI 

AX, BX 
AX,XOR_BITH1O0H 
BX,7C7CH 

BX,1 

BX,1 

BX,AX 

DI,1 


BX 

BL,BH 

DH, CBOX_Row/( 472 
AX, (BPOWPOSH) 
AH,1 

GWRT282 

GM_1 

01,2 

BX 


DH. CBOX_Rows(47 
Gut 25 SET L 


SHORT GWRT283 


DI, 4000H-89 
G_W_10 


01,2 
Bx 


DH. CBOX_Rows ; 
610 ROW (472); 


ST 
oI 
BX 


A-80 


SAVE ATTRIBUTE 
SET 1ST ATTRIBUTE 


- 


we 


WRITE LEFT PART 


OFFSETH4 SINCE 4 BYTES/CHAR 


SET LOOP COUNT ( 18 ROW / 2 SCAN ) 


NEXT WRITE POSITION 

} RESTORE ATTRIBUTE 

+ SET LOOP COUNT ( 18 ROW 7 2 SCAN ) 
WRITE RIGHT PART 


b--- END 


- 


§ 320X200 16 COLOR + 
+ KO 


d~~~ $20X200 16 COLOR 
; 


} OFFSETH4 SINCE 4 BYTES/CHAR 
3 SAVE ATTRIBUTE 
3 SET 1ST ATTRIBUTE 


)s SET LOOP COUNT ¢ 18 ROW 7 4 SCAN 7 2 DEC. ) 


$ GET ROW COLUMN POSITION 

+ ODD ROW ? 

3 YES 

so~~ WRITE EVEN ROW CHARACTER 
3 WRITE LEFT PART 

3 NEXT WRITE POSITION 


} RESTORE ATTRIBUTE 


2; SET LOOP COUNT ¢ 18 ROW 7 4 SCAN / 2 DEC. ) 


3 WRITE RIGHT 
g--- END 


PART 


s--~ WRITE ODD ROW CHARACTER 
s ADJUST FOR ODD Row 

3 WRITE LEFT PART 

} NEXT WRITE POSITION 


ESTORE ATTRIBUTE 


} WRITE RIGHT PART 
so~- END 


} 640X200 16 COLOR 7 
+ 0 


F--- 640X200 16 COLOR 
so-~ WRITE V-RAM 2 

3 SAVE ATTRIBUTE 

+ SAVE REGEN POINTER 

} SAVE CHARACTER PATTERN ADDRESS 


3 SAVE ATTRIBUTE TO BH 
OR XOR_BIT 3 GET XOR BIT 
i MASK XOR BIT 
+ SHIFT ATTRIBUTE FOR WRITE TO V-RAM2 


3 RESTORE XOR BIT 

i OFFSETH2 SINCE 2 BYTES/CHAR 
3 SAVE ATTRIBUTE 

+ SET 1ST ATTRIBUTE 

d; SET 

+ GET 
+ ODD 
ry 


ROW COLUMN POSITION 
ROW ? 


bo-~ WRITE EVEN ROW CHARACTER 
+ WRITE LEFT Part 


} HEXT WRITE POSITION 
’ RESTORE ATTRIBUTE 
i WRITE 
bm-- END 


RIGHT PART 


d--- WRITE ODD ROW 
’ ADJUST FOR ODD RO! 
} WRITE LEFT PaRyT 
3 MEXT WRITE POSITION 


RESTORE ATTRIBUTE 


CHARACTER 
WW 


3 WRITE RIGHT PART 


+ RESTORE CHARACTER PATTERN ADDRESS 
+ RESTORE REGEN POINTER 


} RESTORE ATTRIBUTE 


SET LOOP COUNT ( 18 ROW 7 4 SCAN 7 2 DEC. ) 


LOOP COUNT ( 18 ROW 7 4 SCAN 7 2 DEC.) 


OOP COUNT ( 18 ROW 7 4 SCAN / 2 DEC.) 


SET LOOP COUNT ( 18 ROW 7 4 SCAN / 2 DEC.) 


143¢ 
143D 


1440 
1443 
1445 
1446 


1448 
1448 
144B 


144D 
144D 


144F 
1450 
1452 


1454 
1457 
1459 


1458 
145E 


1461 
1462 
1464 


1467 


1469 
1469 
146D 


1470 
1473 
1474 
1476 


1479 


1478 
1478 


147D 
147E 
1480 
1482 


1485 


1488 
1489 
1488 


148E 
148E 
1491 


1494 
1495 
1496 


1497 
1498 


1498 
1498 


1493 
149¢ 
149C 
149F 
14a3s 
14A6 


1E PUSH DS + SAVE DS 
€8 0000 E CALL pps 3 POINT TO DATA AREA 
E8 1D95 R CALL GET_DIRSEG 3 GET DIRECT ACCESS SEGENT OF V-RAM 1 
BE CO MOV ES, AX 3 SET IY TO ES 
1F PoP DS 3 RESTORE DS 
EB 05 JMP SHORT GWRT291 s--- WRITE V-RAM 1 
GWRT29: 
80 FE OA chp DH, OAK + 640X200 4 COLOR ? 
75 2€ JNE GWRT211 3 NO, MODE = 4,5 
GWRT291: s-7> 640X200 4 COLOR 
Dl £7 SAL DI,1 3 OFFSETMH2 SINCE 2 BYTES/CHAR 
53 PUSH Bx 3 SAVE ATTRIBUTE 
8A DF MoV BL,BH 3 SET 1ST ATTRIBUTE 
B6 09 MOV DH, CBOX_ROW/(472)3 SET LOOP COUNT ( 18 ROW 7 4 SCAN / 2 DEC.) 
8B 46 02 MOV AX, CBP*HPOSH) 5 GET ROW COLUMN POSITION 
Do EC SHR AH, 1 + ODD ROW ? 
72 OE Jc GWRT210 3 YES 
go--> WRITE EVEN ROW CHARACTER 
EB 1498 R CALL G_W_1 3 WRITE LEFT PART 
83 C7 02 ADD DI.2 3 NEXT WRITE POSITION 
5B PoP Bx 3 RESTORE ATTRIBUTE 
B6 09 mov DH,CBOX_ROW/(472); SET LOOP COUNT ( 18 ROW 7 4 SCAN / 2 DEC.) 
E8 1498 R CALL G_W1 3 WRITE RIGHT PART 
EB 25 JMP SHORT GWRT212 9 ;--- END 
GWRT210: s--> WRITE ODD ROW CHARACTER 
81 C7? SFBO ADD DI,4000H-80 3 ADJUST FOR ODD ROW 
E8 14C2 R CALL G_W_10 3 WRITE LEFT PART 
83 C7 02 ADD DI,2 3 NEXT WRITE POSITION 
53 PoP Bx 3 RESTORE ATTRIBUTE 
B6 09 MoV OH, CROK_Row/C472)5 SET LOOP COUNT ¢ 18 ROW 7 4 SCAN / 2 DEC.) 
EB 14C2 R CALL GW + WRITE RIGHT PART 
eB 13 JMP SHORT GWRT212 3--- END 
GURT211: 3~-- 320X200 4 COLOR/SHADE 
Di £7 SAL DI, + OFFSETH2 SINCE 2 BYTES/CHAR 
53 PUSH Bx 3 SAVE ATTRIBUTE 
8A DF MOV 3L,BH 3 SET 1ST ATTRIBUTE 
B6 09 MOV DH,CBOX_ROW/2 =: SET LOOP COUNT ( 18 ROW 7 2 SCAN ) 
ES 14C8 R CALL G_W_2 3 WRITE LEFT PART 
83 C7 02 ADD DI,2 3 NEXT WRITE POSITION 
5B PoP ax 3 RESTORE ATTRIBUTE 
B6 09 MOV DH,CBOX_ROW/2 = 5, SET LOOP COUNT ( 18 ROW 7 2 SCAN ) 
E€8 14C8 R CALL a 3 WRITE RIGHT PART 
GURT212: 3--- END 
BS 0002 nov AX,2 i 
01 46 00 ADD CBP*WNGPOSN],AX 5 ADVANCE WRITE POSITION 
07 PoP ES + RESTORE ES 
SF POP DI 3 RESTORE DI 
\F PoP DS + RESTORE DS 
cs RET 
G_WRITE2 ENDP 
b mew m em ee nen ewe wewwmwwm www ne nem ween ccc w ee ee www ee eee ene eee ce ccue 
3 
3 OW) : 
3 
’ THIS ROUTINE WRITES ONE CHARACTER PATTERN INTO REGEN 
: ( 640x200 4 COLOR ) 
3 INPUT BL = ATTRIBUTE 
’ DH = ROW NUMBER OF ONE SCAN BANK 
' DS:SI = CHARACTER PATTERN ADDRESS 
: EStDI = REGEN ADDRESS TO WRITE 
5 OUTPUT NONE 
t 
H CALL EX_2BIT 
’ G_W_RI 
t 
’ VOLATILE AX, BX, DH, ST 
5 
f men aunncwcnuueusetevacuccouss Scccans eacecewsosesen sacanscesess 
ASSUME CS:CODE, DS:STACK, ES:VIDEO_RAM 
O_W1 PROC NEAR 
E8 152D R CALL EX_2BIT 3 EXPAND LOW 2 BITS IN 8x 
po-~ WRITE CHARACTER 
57 PUSH DI 3 SAVE REGEN POINTER 
GWALs 
EB 1554 R CALL G_W_R1 3 DO FIRST DOT ROW 
81 C7? 2000 ADD DT,2000H 3 ADJUST REGEN POINTER 
ES 1554 R CALL G_W_R1 3 DO NEXT DOT ROW 
81 C7 2000 ADD DY, 2000H 3 ADJUST REGEN POINTER 
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14¢2 
14C2 


146C5 
14C6 


14¢8 


14E9 


14ED 
16€F 


14F1 
16F2 


16F3 


€ 


57 
€3 


cE 
12 
1554 Rk 
c7 2000 
1554 R 
EF 5SF60 


cE 
oc 


1520 R 


& 


1572 R 


EF 1FBO 


cE 
€E 


Gu12: 


OH 
Gw1s 


G_W_R1 
DI,2000H 


WRI 
DI, 6000H-160 
DH 

GW11 

pI 


ary 


we ee we we 


~ 


ALL DONE ? 
Oo 


DO NEXT DOT ROW 
ADJUST REGEN POINTER 
DO NEXT DOT 


ADJUST REGEN POINTER TO NEXT ROW 


KEEP GOING 
RECOVER REGEN POINTER 


THIS ROUTINE WRITES ONE CHARACTER PATTERN INTO REGEN ( FOR ODD ROW ) 
( 640X200 4 COLOR ) 


INPUT BL = ATTRIBUTE 
DH = ROW NUMBER OF ONE SCAN BANK 
DS:SI = CHARACTER PATTERN ADDRESS 
ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT NONE 
CALL EX_2BIT 
(G_W_1) 
VOLATILE AX, BX, DH, SI 
Vewaseseesecce toast sece res soa ee eae sce 
ASSUME CS:CODE, DS:STACK, ES: VIDEO_RAN 
PROC = NEAR 
CALL EX_2BIT 3 EXPAND LOW 2 COLOR BITS IN BL 
$--- WRITE CHARACTER 
PUSH DI 3 SAVE REGEN POINTER 
JMP Gwi2 
ENDP 
G_W_2 


ere ee 


G21: 


GW22: 


G_W_2 


THIS ROUTINE WRITES ONE CHARACTER PATTERN aaa REGEN 
© 320X200 4 COLOR, 320X200 4 SHADE 
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INPUT BL = = ATTRIBUTE 

DH = —- ROW NUMBER OF ONE SCAN BANK 

DS:SI = CHARACTER PATTERN ADDRESS 

ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT NONE 
CALL G_W_R2 
VOLATILE AX, BX, DH, SI 

petes eee ese sot ies, Wiener mecerenncnnneencenweesnnconcccenen 
PROC — NEAR 
MOV DL, BL + COPY ATTRIBUTE YO DL 
: ---EXPANDS THE LOW 2 BITS IM BL TO FILL THE BX 
AND BL,3 3 ISOLATE THE COLOR BITS 
MOV AL, BL 3 COPY TO AL 
PUSH = CX 3 SAVE REGISTER 
MoV CX, 3 3 HUMBER OF TIMES TO DO THIS 
SAL Als. 
SAL AL, t 5s LEFT SHIFT BY 
OR BL. AL 3 ANOTHER COLOR VERSION INTO BL 
LOOP) = G21 s FILL ALL OF B 
Mov BH, BL i FILL UPPER PORTION 
POP x i REGISTER BACK 
b--- WRITE CHARACTER 
PUSH oI $ SAVE REGEN POINTER 
CALL = G_W_R2 3 DO FIRST 2 BYTES 
oo. bY .2esan + NEXT SPOT IN REGEN 
pe N 

SUB DI, 2000H-80 : OM 2 aSTES 
DEC DH 
JNZ Gw22 + KEEP GOING 
a8 DI + RECOVER REGEN POINTER 
ENDP 


powenne----- nae ina wien on as pee a eee nn nn nee ooo oo nnn wees os 
G_W_S 


TH woe WRITES ONE CHARACTER PATTERN ae REGEN 
me 160X200 16 COLOR, 320X200 16 COLOR ) 


NP’ t = ATTRIBUTE (LOW 4 BITS) 

emer D = W NUMBER OF ONE SCAN BANK 
TBPeNC HOE): CURRENT CRT MODE (MASKED) 
DS:SI = CHARACTER PATTERN ADDRESS 


ee ee 


ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT NONE 
CALL EX_4BIT 
_B_RS 
VOLATILE AX,BX,DH, ST 
ae Boo seus, clea tan eemernmenes eee Seeeeons 
14FS G_M_4 PROC NEAR 
16F3 EB 1542 R CALL EX_4BIT + EXPANDS THE LOW 4 BITS 
g--- WRITE CHARACTER 
16F6 57 PUSH DI 3 SAVE REGEN POINTER 
14F7 G41: 
14F7 £8 158C R CALL G_W_R4¢ 3 EXPAND DOT ROW IN REGEN 
16FA 81 C7 2000 ADD DI,2000H 3 POINT TO NEXT REGEN ROW 
16FE £8 158C R CALL G_W_R4& 3 EXPAND DOT ROW IN REGEN 
1501 80 7E 09 09 cue BYTE PTR (BP+NC_MODE],09H 3 USING 32K REGEN AREAY 
1505 75 16 SNE Gud 3 JUMP IF 16K REGEN 
1507 FE CE DEC DH 3 DECREMENT COUNTER 
1509 74 1A JZ G44 3 ALL DONE 
150B 81 C7 2000 ADD DI,2000H 3 POINT TO NEXT REGEN ROW 
150F GW42: 
150F E8 158C R CALL G_W_RS 3 EXPAND DOT ROW IN REGEN 
1512 81 C7? 2000 ADD DI,2000H 3 POINT TO NEXT REGEN ROW 
1516 E8 158C R CALL G_W_R4 3 EXPAND DOT ROW IN REGEN 
1319 81 EF SFBO aes SUB DI.4000H-80 3 ADJUST REGEN POINTER 
1 ry 
151D 81 EF 1FBO SUB DI,2000H-80 3 ADJUST REGEN POINTER TO NEXT ROW 
1521 FE CE DEC DH 
1523 75 bd2 INZ Gw41 3 KEEP GOING 
1525 GH44: 
1525 SF PoP DI 3 RECOVER REGEN POINTER 
1526 CS RET 
1527 G_W4 =  ENDP 
t FLL LLL LOS OS OOO OOOO RONEN Ne wee w eens eweeeeeeeeceeconce 
$ 
3 G_W_40 
8 
3 THIS ROUTINE WRITES ONE CHARACTER PATTERN INTO REGEN (ODD ROW) 
i € 160X200 16 COLOR, 320X200 16 COLOR » 
3 INPUT BL = ATTRIBUTE (LOW 4 BITS) 
3 DH = ROW NUMBER OF ONE SCAN BANK 
3 CBP+WC_MODEJ= CURRENT CRT MODE (NIBBLE) 
3 DS:SI = CHARACTER PATTERN ADDRESS 
; ES:DI = REGEN ADDRESS TO WRITE 
3 ouTPUT NONE 
t 
3 CALL EX_4BIT 
: (O_W_4) 
, VOLATILE AX,8X,DH,SI 
t ewer eeeree= ee Ree eee eee eee ewer wees SOR O88 OS SS SSeS eee See ee Sees 
1527 O_W_40 PROC NEAR 
1527, EB 1542 R CALL EX_4BIT 3 EXPANDS THE LOW 4 BITS 
bo-~ WRITE CHARACTER 
1S2a 57 PUSH pr 3 SAVE REGEN POINTER 
152B EB E2 Jnp Gu42 3 
152D G_W_40 ENDP 
J ne ere ewww meme ewww ew ww we ween we ww eee we we cece ee eeececena 
EX_2BIT 
THIS ROUTINE EXPANDS hee 2 COLOR BITS IN BL 
640X200 4 COLOR ) 


INPUT «BL = ATTRIBUTE 


OUTPUT DL = ATTRIBUTE 
Bx =F EXPANDED COLOR 


CALL NONE 
VOLATILE AX, BX 


Wee ee ee we we we we we we ee ee ewe 
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1542 


1542 
1544 


1945 
1548 


154A 
154c 


154E 
1550 
1552 
1553 


1554 


bs 


co 
cs 


FF 
cs 
FF 


8a DS 


51 


80 ES OF 
BA FB 


Bl 04 
b2 E7 


OA FB 
3A OF 


59 
cs 


ac 
ba 
23 


EO 
cs 


Fe C2 80 


74 


26: 32 25 
26: 32 45 01 


26: 88 25 
26: 88 45 OL 


c3 


07 


Joneore ween nee eee -- 


EX_2BIT PROC 
Mov 


XOR 
TEST 
JZ 
MOV 


TEST 
JZ 
mov 


MoV 
RET 


EX_2BIT ENDP 


EX2B1: 


EX2B2: 


ASSUME “ES:CODE, 
HEAR 
DL. BL 


AK, OFFH 
BL,2 
EX2B2 
AL, OFFH 
BX,AX 


DS:STACK, ES: VIDEO. _RAM 


COPY ATTRIBUTE TO DL 


s--~ EXPAND LOW 2 COLOR BITS IN BL (C1CO) 


ww we 


we ee we 


INTO BX (Cococococococecocicicicicicicicid 
CO COLOR BIT ON? 


NO, JUMP 

YES, SET ALL CO BITS ON 
C1 COLOR BIT ON? 

NO, JUMP 

YES, SET ALL C1 BITS ON 


COLOR MASK IN BX 


meres Wecteccetsculs ERS R Se eee a Re eS ae eRe ee ee 
; EX_4BIT 
3 
; THIS ROUTINE EXPANDS LOW 4 COLOR BITS IN BL 
; (160X200 16 COLOR, 320x200 16 COLOR > 
; 
3 INPUT BL = ATTRIBUTE (LOW 4 BITS) 
; OUTPUT DL = ATTRIBUTE 
3 BX = ‘EXPANDED ATTRIBUTE 
3 
; CALL NONE 
5 
3 VOLATILE AX 
: 
Satan SNL Senne Team AP OES RE sites na ah os ee 
EX_4BIT PROC NEAR 
MoV DL, BL 3 COPY ATTRIBUTE TO DL 
PUSH CX $~--EXPANDS THE LOW 4 BITS IN BL TO FILL BX 
AND BL, OFH 3 ISOLATE THE COLOR BITS 
MOV BH, BL 3; COPY TO BH 
Mov cL.4 ; MOVE TO HIGH NIBBLE 
SHL BH,CL ; 
OR BH, BL 3 MAKE BYTE FROM HIGH AND LOW NIBBLES 
MOV BL, BH ; 
POP cx 
RET 
EX_4BIT ENDP 
3 sea aeaoves: wewe ee: Pee Se OS OD OP OP OT OE SSS SSS SSS SSS SSE SSeS Oronoco eee 
3 
3 G_W_RI 
; THIS ROUTINE WRITES ONE ROW OF CHARACTER PATTERN INTO REGEN 
3, EXPAND 1 DOT ROW OF A CHAR INTO 2 BYTES 
3 © 640X200 4 COLOR ) 
3 
3 INPUT BX = EXPANDED ATTRIBUTE 
3 DL = ATTRIBUTE 
3 DS:SI = CHARACTER PATTERN ADDRESS 
3 ES:DI = REGEN ADDRESS TO WRITE 
3 
5 OUTPUT Sz = Ssr#2 
3 
3 CALL HONE 
3 
3 VOLATILE AX 
3 
H PPO OOO OR ORO OOD OOOO SOOO Cereseewowwooeewwwoeoeseoeeeocoecoa: een apes areas 
ASSUME CS:CODE, DS:STACK, ES:VIDEO_RAM 
G_W_R1 PROC NEAR 
Lopss 3 GET CODE POINT 
MoV AH, AL 3; COPY INTO AH 
AND AXS BX + SET COLOR 
TEST DL XOR_BIT + XOR FUNCTION? 
Jz GWRIL 3 NO, JUMP 
XOR AH, ES: (DI} 3 EXCLUSIV WITH CURRENT DATA 
XOR AL, ES:CDI#1) iis tact 
MRI: 
Mov ES:(DI],AH 3 STORE I FFER 
MOV ES: (DI#i),AL RAGED, AM 
RET 
G_W_R1 ENDP 
IDRIS RE Maneater scenes cco csccmuseccusec. oon ise, eseawe 
i EX_W_R2 


156D 


156D 
1570 


1572 


158¢ 


~ 
w 
o 
a 


ee ed 
VUE VU BEUwW w 
200 2D WOOD & 
>on VP uUenm Oo 


E8 15C2 ® 
EB 046 


ac 
cs 
23 


F6 
74 


15A0 R® 
cs 


C2 80 
07 


26: 32 25 


26: 32 45 01 


26: 88 25 


26: 88 45 O1 
cs 


04 
€& 


1S56D R 


156D R 


EX_W_R2 


GHR22: 


G_W_R2 


ee oe 


G_LWLR4 


THIS ROUTINE EXPANDS Seen ROW OF CHARACTER PATTERN 
AND WRITES IT INTO REGEN 


INPUT = AL = CHARACTER PATTERN 
og = EXPANDED ATTRIBUTE 
= ATTRIBUTE 
D311 = CHARACTER PATTERN ADDRESS 
= REGEN ADDRESS TO WRITE 


OUTPUT SI = SI#1 


CALL EX_NIBBLE 
(G_W_R2) 
VOLATILE Ax 
PROC = NEAR 
CALL EX_NIBBLE + QUAD UP THE LOW NIBBLE 
JMP SHORT GWR22 
ENDP 
G_W_R2 


THIS ROUTINE WRITES ONE ROW OF CHARACTER PATTERN INTO REGEN 
EXPAND 1 DOT ROW OF A CHAR INTO 2 BYTES 


€ 320X200 4 COLOR, 320x200 4 SHADE ) 


INPUT BX = petty ATTRIBUTE 
DL = ATTRIBUTE 
OS:SI = CHARACTER PATTERN ADDRESS 
ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT SI = SI*1 
CALL EX_BYTE 
VOLATILE Ax 
PROC NEAR 
LODSB 3 GET CODE POIN 
CALL EX_BYTE + DOUBLE UP AL THE BITS 
AND AX, BX ; rae ee TO FOREGROUND COLOR 
TEST DL,XOR_BIT ; IS THIS XOR FUNCTION? 
JZ GWR22 3 


NO, STORE IT IN AS IT IS 


DO FUNCTION WITH HALF 
AND WITH OTHER HALF 


STORE FIRST BYTE 
STORE SECOND BYTE 


XOR AH, ES: (DI) 
XOR AL, ES: (COIe2) 


MOV ES: (DIJ,An 
MOV ES: CDI#1),Ab 


ee 


we 


TR mre w enn ew meee nnn new ern wen www ewww ee enw e ewww wenn 


G_LW_R4 


THIS ROUTINE WRITES ONE ROW OF CHARACTER PATTERN INTO REGEN 
EXPAND 1 DOT ROW OF A CHAR INTO 4 BYTES 


€ 160X200 16 COLOR, 320x200 16 COLOR > 


INPUT §=BX = EXPANDED ATTRIBUTE 
DL = ATTRIBUTE 
OS:SI = CHARACTER PATTERN ADDRESS 


ES:DI = REGEN ADDRESS TO WRITE 
OUTPUT SI = SI 
CALL EX_W_R2 
VOLATILE Ax 
PROC = NEAR 
LODSB 3 GET CODE POINT 
PUSH AX 3 SAVE 
PUSH CX 
MOV CL. 4 3} MOV HIGH NIBBLE TO Low 
SHR ALCL 
PoP cx 


~ 


EXPAND TO 2 BYTES & PUT IN REGEN 
RECOVER CODE POINT 


ADJUST REGEN POINTER 
EXPAND LOW NIBBLE & PUT IN REGEN 


CALL EX_W_R2 
Ax 


~~ 
o 
vw 


INC or 
or 
CALL EX_W_R2 
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159D 
159E 


159F 
15A0 


4F 
4F 


cs 


08 
oS 


cE 


04 
os 


cE 


02 
03 


Ca 


01 
03 


CA 
c2 


Fo 


DEC pI 3 RESTORE REGEN POINTER 
DEC DI 
RET 
G_W_R4ENDP 
Jeeneowsswceceswebeccst hee sebeecckacuan ul. 
: EX_BYTE EXPAND BYTE 
: THIS ROUTINE TAKES THE BYTE IN AL AND DOUBLES ALL 
; OF THE BITS, TURNING THE 8 BITS INTO 16 BITS, 
; THE RESULT IS LEFT IN 
i INPUT AL = BIT TO DOUBLE 
3 
; OUTPUT AX = DOUBLED BITS 
F CALL NONE 
3 
; VOLATILE NONE 
EX_BYTE PROC NEAR 
PUSH Dx 3 SAVE REGISTERS 
PUSH CX 
PUSH BX 
SUB DX, DX 3s RESULT REGISTER 
Mov CX.1 3 MASK REGISTER 
EXBYTE2: 
Mov BX, AX 3 BASE INTO TEMP 
AND BX, CX 3 USE MASK TO EXTRACT A BIT 
OR DX, BX 3 PUT INTO RESULT REGISTER 
SHL AXs1 
SHL CX, 3 SHIFT BASE AND MASK BY 1 
Mov BX, AX 3; BASE TO TEMP 
AND BX, CX } EXTRACT THE SAME BIT 
OR DX, BX ; PUT INTO RESULT 
SHL Xo 3 SHIFT ONLY MASK NOW, MOVING TO NEXT BASE 
INC EXBYTE1 3 USE MASK BIT COMING OUT TO TERMINATE 
MoV AX, DX 3 RESULT TO PARM REGISTER 
POP BX 
POP cx ; RECOVER REGISTERS 
POP DX 
RET 3 ALL DONE 
EX_BYTE EXDP 
peseceeonssseeceeee se aoc 
3 
; EX_NIBBLE EXPAND NIBBLE 
3 
; THIS ROUTINE TAKES THE LOW NIBBLE IN AL AND QUADS ALL 
; OF THE BITS, TURNING THE © BITS INTO 16 BITS. 
; THE RESULT IS LEFT IN A 
3 
3 IKPUT AL = NIBBLE DATA 
3. 
; OUTPUT AX = QUADED BITS 
3 
3 CALL KOE 
3 
; VOLATILE HOHE 
Br rn we eww www www ee eee, 


EX_NIBBLE PROC HEAR 


EXNBL1: 


EXNBL2: 


EXMBL3: 


EXNBL4: 


PUSH = DX 3; SAVE REGISTERS 
XOR DX, DX ; RESULT REGISTER 
TEST = ALB 
sz EXNBL 
oR DH, OFCH 
TEST — ALG 
Jz EXNBL2 
OR DH, OFK 
TEST ~—s AL, 2 
Jz EXNBLS 
OR DL, OFOK 
TEST = AL 
J2 EXNBL4 
OR DL,OFK 
MoV AX, DX + RESULT 
TO PARM REGISTER 
4 ox RECOVER | REGISTERS = 


EX_NIBBLE ExpP 


ad dad ad adadad had i il lad al lt 
AR SHOSSSFAAAHR SAAR SABAH OD 
NN NER eee eee &HOOe CO0O Co 
VN OMMONFOSTTON SCOWGHW wy~vyY Wo 


1624 


- 
o 
nN 
w 


1625 


al 


53 
$1 


8B 
F6 


8A 
80 


80 
73 
80 
73 
D1 


ol 
8 


O35C R 


Ds 
26 
3E 


&7 0 


se 
oB 


CO4A R 
OO69 R 
F 


0049 R 14 


prceesen- nee. 


GRAPH_P: 


BE DOU 


INPUT 
OUTPUT 


VOLATIL 


we Se we we we we we we we we we we we we we 


GRAPH_POSITIOK 
mov 


GRAPH_POSH 


PUSH 
PUSH 


MOV 
MOV 
MUL 


MOV 
AND 


cmp 
JAE 


cmp 
JuC 


GRPOS1: 


GRPOS2: 


GRPOSS: 


GRPOS4: 
SUB 
AbD 
PoP 
POP 
RET 
GRAPH_POSITION 


prtweeeww enue 
i 


IWPUT 


ee 


OUTPUT 
CALL 


WORK 


wee we we we we we we we we we we we we we Oe we we we Oe ewe 


VOLATILE 


OSITION 


BLED. 


THIS ROUTINE TAKES THE CURSOR POSITION CONTAINED IN 
THE MEMORY LOCATION, AKD CONVERTS IT INTO AN OFFSET 
INTO THE REGEN BUFFER, ASSUMING ONE BYTE/CHAR. 

FOR MEDIUM RESOLUTION GRAPHICS, THE NUMBER MUST 


HO REGISTERS, MEMORY LOCATION CURSOR_POSN IS USED 
AX CONTAINS OFFSET INTO REGEN BUFFER 


EAR 
AX,CURSOR_POSN 3 GET CURRENT CURSOR 


PROC 4 
LABEL NEAR 
BX 

cx 

BX, AX 


3 SAVE REGISTER 
SAVE CX 


SAVE A COPY OF CURRENT CURSOR 
GET ROWS TO AL 


AL, AH ; 
BYTE PTR CRT_COLS ; MULTIPLY BY BYTES/COLUMN 


8H, CRT_MODE 
BH, KJ_OFF 


CRT_MODE, KJGRAPH; 
GRPOS2 ; 


BH,9 
GRPOS) 


AX,1 


AX,1 
SHORT GRPOS4 


CX, AX 
BH,9 
GRPOSS 
AX, 1 
CX,2 


ENDP 


GRAPHICS WRITE 


THIS ROUTIN 
POSITION ON 


AH 
AL 
BL 
cx 


DS 
ES 


wn 


3 GET CRT MODE 
3 MASK VIDEO PROCESSOR NO. OFF 


a GRAPHICS MODE ? 
Ss 


3~~~ AHZANK GRAPHICS MODE 
+ MODE USING 32K REGEN? 
+ YES, JUMP 


3 MULTIPLY ™ 4 SINCE 4 ROWS/BYTE 


s--~ KANJI GRAPHICS MODE 

$ SAVE AX VALUE FOR AFTER CALCULATION 
s MODE USING 32K REGEN? 

+ YES, JUMP 


MULTIPLY M9 SINCE 18/2=9 ROWS/BYTE 


MULTIPLY ™ 4.5 SINCE 1874=4.5 ROWS/BYTE 


we we we we 


~ 


ISOLATE COLUMN VALUE 
DETERMINE OFFSET 


RESTORE CX 
RECOVER POINTER 


ALL DONE 


we 


E WRITES THE ASCII CHARACTER TO THE CURRENT 
THE SCREEN. 


CURRENT CRT MODE (MASKED) 

CHARACTER TO WRITE 

COLOR ATTRIBUTE TO BE USED FOR FOREGROUND COLOR 

IF BIT 7 IS SET, THE CHAR IS XOR'D INTO THE REGEN BU 


(0 IS USED FOR THE BACKGROUND COLOR) 
NUMBER OF CHARS TO WRITE 

DATA SEGMENT 

REGEN SEGMENT 


NOTHING 


FONT 
GRAPH_POSITION 
G_Wlt 


CBP+WC_MODEJ= CURRENT CRT MODE (MASKED) 
CBP+WFORT - WFONT+7) = FONT PATTERN 


AX, BX,CX,DX,S1,DI,DS 
FOR BOTH ROUTINES, THE IMAGES USED TO FORM CHARS ARE CONTAINED IN 
ROM. 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
PROC NEAR 
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GRAPHICS_WRITE 


Appendix A. 


PUSH BP + SAVE CURRENT BP 
1625 55 SUB SP.GW_LOCAL 3 ALLOCATE LOCAL WORK AREA 
1626 e ee 12 MOV BP,SP_ 3 ASSIGN BP AS FRAME POINTER 
1629 8 
ese a 89 MOV [BP+WC_MODE],AH 3 SAVE CURRENT CRT MODE 
ES ts SAVE REGEN SEGMERT 
ME Se rush Ax 3 SAVE CODE POINT AND CRT MODE VALUE 
16 
PUSH = BX 3 SAVE COLOR ATTRIBUTE 
$33 33 PUSH = CX 3 SAVE NUMBER OF CHAR 
cian. Hd pusH $$ 3 SET DESTINATION SEGMENT FOR FONT 
1633 07 ASSUME ES:STACK 
case ap se ti LEA BX,CBP+WFONT] 5 SET DESTINATION OFFSET FOR FONT TO BX 
Es XOR AH, AH 3 CLEAR FOR 1 BYTE CODE 
1839 FY cs : * MOV CX, AX 3 SET CHARACTER CODE TO Cx 
80 MOV AL, — 3 SET FUNCTION OF aia FONT WITH FULL BOX 
1638, Be oe MOV DH, 3 INDICATES ANK MODE 
MSP OES 1A63 R CALL FONT ; GET FONT PATTERN 
1642 8B FS MoV SI,BX + SET TOP ADDRESS OF FONT PATTERN 
aoe PoP cx 3 RESTORE NUMBER OF CHAR 
oy etd POP BX + RESTORE COLOR ATTRIBUTE 
3~-DETERMINE POSITION IN REGEN BUFFER To PUT CODE POINTS 
1646 E8 1SES R CALL GRAPH_POSITION “FIND LOCATION IN REGEN BUFFER 
1649 8B FS MoV DI,AX~ 3 REGEN POINTER IN DI 
~~~ DETERMINE REGION TO GET CODE POINTS FROM 
1663 58 PoP ax + RECOVER CODE POINT AND CRT MODE 
164C 06 PUSHES. 3 SET FONT PATTERN SEGMENT 
1660 1F POP DS 3 0D 
ASSUME DS:STACK 
164E 07 POP ES 3 RESTORE REGEN SEGMENT 
ASSUME ES:VIDEO_RAM 
64F 80 FC 04 cup AH.4 + 320X200 4 COLOR ? 
ese 98 58 JE GRURTS 3 YES 
1656 80 FC 05 cP AH,S 3 320X200 4 SHADE ? 
1657 74 56 JE GRWRT9 3 YES 
1659 80 FC OA CHP AH, OAH 3 640X200 4 COLOR ? 
165 74 42 JE GRWRT7 3 YES 
165E 80 FC 06 CMP AH. 6 3 640X200 2 SHADE ? 
1661 75 2B crurti: ONE GRWRT5 3 NO, MODE IS 8 OR 9 
1663 : 
1663 7 pusH DI 3 SAVE POINTERS 
3 
3--~ 640X200 2 SHADE 
1665 BG 04 senienis Oe DH.8/2 3 NUMBER OF TIMES THROUGH LOOP 
z 
1667 AC LODSB 3 GET WORD FROM CODE POINTS 
1668 F6 C3 80 TEST —- BL, XOR_BIT + SHOULD WE USE THE FUNCTION 
1668 75 64 JNZ GRURTS 3 TO PUT CHAR IN 
166D AA STOSB STORE IN REGEN BUFFER 
166E Ac . LODSB GET NEXT ROW 
166F EB OA JMP SHORT GRWRTS 
1671 GRURTS: 
1671 26: 32 05 XOR ALES: (D1) 3 EXCLUSIVE OR WITH CURRENT DATA 
1676 AA STOSB 3 STORE THE CODE POINT 
1675 AC LODSB 3 _AGAIN FOR ODD FIELD 
1676 261 32 85 LFF ee AL, ES: (DI+#2000H-1) 
: 
167B 26: 88 85 FFF MoV ES:(DI+2000H-1],AL ; STORE IN SECOND HALF 
1680 83 C7 4F ADD D1,79 3 MOVE TO NEXT ROW IN REGEN 
1683 FE CE DEC DH + DONE WITH LOOP 2 
1685 75 £0 JNZ GRURT2 3 HO 
1687 SE 
nr 3e rg 
1689 47 
168A E2 D7 tOoP ORWRT ; 
168C EB 2E JMP SHORT GRWRT11 = 5--- END 
168E 
168E D1 E7 GRURTS: “ai — so~~ 1607320x200 16 COLOR 
690 DA E? , 
tues SAL DI,1 3} OFFSETN4 SINCE 4 BYTES/CHAR 
GRURT6: 
1692 56 PUSH sr ‘ 
1693 36 06 
1695 E8 16F3 RK MoV DH.87(472) 3 SET LOOP COUNT ( 8 ROW 7 4 SCAN / 2 DEC.) 
CALL GW 3 WRITE ONE CHAR 
1698 83 C7 046 - 
1693 SE ety 24 ; 
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169C E2 F4 Loop GRWRT6 3 


169E EB 1C JMP = SHORT GRWRT11.—3-== END 
A GRWRT?: $--~ 640X200 4 COLOR 
1éa0 Da E? SAL DI 3 OFFSETH2 SINCE 2 BYTES/CHAR 
1642 GRURTS: 
16A2 56 PUSH SI ; 
16A3 BG 06 MOV DH 87472) + SET LOOP COUNT ( 8 ROW / 4 SCAN 7 2 DEC.) 
1645 E8 1498 R CALL = G_W1 3 WRITE ONE CHAR 
AB 47 Incr ; 
1eay 9 INC ODE ; 
GAA pops SI ; 
igas eS FS LOOP = GRWRT8 ; 
16AD EB OD JMP = SHORT GRWRT11 = s--- END 
GRWRT9: s--- 320X200 4 COLOR/SHADE 
ISaF DL €7 SAL DE. } OFFSETH2 SINCE 2 BYTES/CHAR 
B1 GRWRT1O: 
igbl 56 PUSH SI ; 
1632 BG 06 MOV DH, 872 3 SET LOOP COUNT ( 8 ROW 7 2 SCAN ) 
16B6 E8 14¢8 R CALL GW 3 WRITE ONE CHAR 
67 INC DI ; 
ieps 49 INC DI ; 
5 Pops $i ; 
1gBA ES FS LOOP = GRWRT0 ; 
tae cena ae GH_LOCAL } DEALLOCATE LOCAL WORK 
BC 83 C4 12 ; ; 
lense 5D POP sa 3 RESTORE BP 
16c0 C3 RET 
16¢1 GRAPHICS_WRITE _ENDP 
; SET COLOR INT 10H, AH = 11 COBH) 
es 
; THIS ROUTINE WILL ESTABLISH THE BACKGROUND COLOR, THE 
; OVERSCAN COLOR, AND THE FOREGROUND COLOR SET FOR GRAPHICS 
3 
3 INPUT 
; = CURRENT CRT MODE (MASKED) 
; CHM Has coven 36 
; IF BH=0, THE BACKGROUND COLOR VALUE 18 SET 
; FROM THE LOW BITS OF BL (0-31) 
; IN GRAPHIC MODES, BOTH THE SACKGROUMD AND 
3 BORDER ARE SET. IN ALPHA MODES, ONLY THE 
3 BORDER IS SET. 
F IF BHE1, THE PALETTE SELECTION IS MADE 
3 BASED ON THE LOW BIT OF BL: 
3 2 COLOR MODE 
i es WRITE FOR COLOR 1 
i = BLACK FOR COLOR 1 
; 4 covor “MODES: 
; 0'= GREEN, RED, YELLOW FOR 
i COLORS 1.2.3 
i 1 = BLUE, CYAN, MAGENTA FoR 
3 COLORS 1,2.3 
; 16 COLOR MODES: 
; ALWAYS SETS UP PALETTE AS: 
; BLU FOR COLOR 1 
i GREEN FOR COLOR 2 
i CYAN FOR COLOR 3 
; RED FOR COLOR & 
; MAGENTA FOR COLOR $ 
: YELLOW FOR COLOR 6 
i LIGHT GRAY FOR COLOR 7 
; DARK GRAY FOR COLOR 8 
5 LIGHT BLUE FOR COLOR 9 
; LIGHT GREEN FOR COLOR 10 
3 LIGHT CYAN FOR COLOR 11 
; LIGHT RED FOR CoLoR 12 
3 LIGHT MAGENTA FOR COLOR 313 
i LIGHT YELLOW FOR COLOR 16 
; WHITE FOR COLOR 15 
: (BL) HAS THE COLOR VALUE To BE USED 
t 
; outeut 
; THE COLOR SELECTION I$ UPDATED 
3 
i CALL ENABLE_VG12 
‘ ENABLE_VG2 
i SUPREG 
3 
3 VOLATILE AX, BX, CX, DX 
; 
: ASSUME CS:CODE, DS:DATA 
é 16C1 SET_COLOR PROC NEAR 
16C1 E8 1DFC R CALL ENABLE_vG12 + ENABLE VIDEO GENERATER 1 AND 2 
16C6 BA O3DA MOV DX, VGA_CTL + 170 PORT FOR PALETTE 
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ETC1: 
16¢7 AL, Dx 3 SYHC UP VGA FOR REG ADDRESS 
16¢7 EC TEST AL, VERTRET 3 IS VERTICAL RETRACE ON? 
16C8 AB 08 J3z SETCL 3 NO, WAIT UNTIL IT IS 
16CA 74 FB Mov AL, PCSUPER ; 
16cc BO 06 OUT DX, AL + CLEAR SUPERIMPOSE COTROL REGISTER 
ned: 52 co XOR AL. AL 3 FOR SET PALETTE 
ou i ; 
16D1_ EE 
OR BH. BH 3 IS THIS COLOR 0? 
1602 OA FF JNZ SETCS 3; OUTPUT COLOR 1 
1604 «(75 s--- HANDLE COLOR 0 BY SETTING THE 
: BACKGROUND COLOR AND BORDER COLOR 
5 oe 48 ? CMP AH, GRAPHICS 3 IN ALPHA MODE? 
108 32 0D Jc SETC2 3 YES, JUST SET BORDER REG 
BO 10 MOV AL, IXPALET + SET PALETTE REG 0 
top 80 FC OB cMP AH, OBH 3 640 X 200 X 16 COLOR ? 
ice 75 02 JNE SETC11 3 NO 
XOR AL, 10108 ; 
ibe 30 0A SETCLI: i 
ee ge our DX, AL + SELECT VGA REG 
SES 84 C3 OUY = DXTAL } Set ir 
16E7 EE SeTc2: 2 ‘ 
Mees Bo 02 MOV AL, IXBORD + SET BORDER REG 
wk ee OUT DX, AL 3 SELECT VGA BORDER REG 
Ha es ar Sea SEP et 
16ED EE ‘ . 
OEE AZ 0066 8 MoV CRT_PALLETTE,AL ; SAVE THE COLOR VALUE 
16F1 EB SF JMP SHORT SETC1O 
16F3 SETCS: geen ne HANDLE COLOR 1 BY CHANGING PALETTE REGISTERS 
16F3 B9 O2B1 R Mov CX,OFFSET PL1C20; POINT TO 2 COLOR TABLE ENTRY 
FC 06 cup AH,6 3 2 COLOR MODE? 
Mee ie JE SETCS ; YES, JUMP 
16FB 80 FC 04 CMP AH,4 i 4 COLOR MODE? 
He EBs sie ce 
1703 74 05 JE SETCG 3 YES, JUMP 
1705 80 FC OA cmp AH, OAK 3 4 COLOR MODE? 
1708 75 20 JNE SETCS + NO, GO TO 16 COLOR SET UP 
1704 SETC4: 
170k BS O2BOR gives, OP CX,OFFSET PLTC40; POINT TO 4 COLOR TABLE ENTRY 
70D : 
tied oe cs ROR BL.2 3 SELECT ALTERNATE SET? 
170F 73 03 INC SETC6 + NO, JUMP 
1712-83 C1 06 ADD CX, PLTC2OL + POINT TO NEXT ENTRY 
1714 SETC6: 
1716 8B DS MoV BX, CX + TABLE ADDRESS IM BX 
1716 63 INC BX 3 SKIP OVER BACKGROUND COLOR 
1717 BY 0083 mov CX,PLTCZ0L-1 =; SET NUMBER OF REGS TO FILL 
171A B61 a AH, 11H + AH IS REGISTER COUNTER 
2 
171 BA C4 mov AL, AH + GET REG HUNBER 
171E EE ouT DX, AL 3 SELEC 
171F 2E: 8a 07 MOV AL, CS: (BX) 3 GET DATA. 
1722, «EE OUT DX, + SET IT 
1723 FE ca INC AH 3 NEXT REG 
1725 INC BX 3 NEXT TABLE VALUE 
1726 Hy FS LOOP = SETC7 
1728 «EB 18 JMP SHORT SETC10 
172A SETC8: 
172A 8A FC mov BH, AH ; SET MODE TO BH 
172¢ B4 11 MoV AH, 11H + AH IS REGISTER COUNTER 
1726 BY 800F seress CX,15 3 NUMBER OF PALETTES 
1731 8A C6 MOV AL. AH + GET REG NUMBER 
1733 80 FF OB CMP BH, OBH 3 640 X 200 X 16 COLOR ? 
1736 75 02 Je SETC91 3 HO 
OR AL, 1010B ; 
173A SETC91: 
1754 ee our DX, AL 3 SELECT IT 
1738 Bh C4 MoV AL, AH 3 GET REG NUMBER 
OUT DX, AL + SET PALETTE VALUE 
173E FE C4 INC AH ; 
1760 E2 EF LOOP = SETC9 ar 
1742 SETCiO: 
ie EB ao2y mov  AH,SUPIPCR 
CALL = SET_SUPREG + RESTORE SUPERIMPOSE CONTROL REGISTER 
1749 £8 1006 RK 
6c 63 CALL ENABLE_VG2 + EMABLE VIDEO GENERATER 2 
174D SET_COLOR ENDP 
; OO RNR CUO Ome mn aSnenecweca 
: MITE ‘bor IHT 10H, AM = 12 (OCH) 
Hy 


THESE ROUTINES WILL WRITE THE DoT 
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AT THE INDICATED LOCATION 


>>r> OD 2S COLL SD CAO Oe OAMneOws wW 


— ee ee ee ee ee eee Oe Oe et 
> v~ 
> OFS NTN OF SFOFN CO OY YVuUKrTnNSO we ~ 


~ NNN NN ONS ONNS™ ONS NS OVS OSS OS OS 


- = 
_vo™~ 
> > 
non 


1782 
1734 


8B 
80 


FF OB 


75 04 


DO 
bo 


iz) 
8A 
Fo 
8A 


b2 


12.) 
E& 


17E7 R 
F4 
D4 
be 


E8 


22 co 
26: 8A 2C 


F6 
75 


22 
OA 


C3 80 
6A 


EA 
cs 


26: 88 64 


80 
72 


8A 
74 


do 
bdo 
bo 
Do 
d2 


22 Cé 
261 BA 6C 01 


Fé 
75 


22 
OA 


26: 88 44 61 


80 
75 


E8 
8E 


FF OA 
5D 


cs 
04 


Es 
i} 


133 
ca 
€8 
CS 80 
49 


EA 
cs 


FF OB 
37 


1095 R 
co 


22 C6 
26: 8A 2C 


F6 
75 


22 


C3 80 
28 


€A 


INPUT 


o> 
x= 
one 


CURRENT CRT MODE (MASKED) 
ROW (0-199) 
COLUMN (0-639) € THE VALUES ARE NOT RANGE CHECKED ) 

DOT VALUE TO WRITE (1,2 OR 4 BITS DEPENDING ON MODE, 
REQ’D FOR WRITE DOT ONLY, RIGHT JUSTIFIED) 

BIT 7 OF AL = 1 INDICATES XOR THE VALUE INTO THE LOCATION 


(THE ACTUAL VALUE DEPENDS ON THE MODE) 


DS = DATA SEGMENT 
= REGEN SEGMENT 
OUTPUT NONE 
CALL DOT_POSITION 
GET_DIRSEG 
VOLATILE BX,CX,DX,SI 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 


3 
3 REGISTER USAGE 
3 
Hy 
3 
3 
3 
5 
s 
3 
U 
WRITE_DOT PROC HEAR 
MoV BX, AX 
cup BH, OBH 
JNE WDOTL 
SHR AL,2 
SHR AL,2 
WDOTL: 
CALL DOT_POSITION 
MOV OH,AH 
NOT AH 
MOV DL. AH 
SHR ALCL 
AND AL,DH 
MOV CH,ES:(S1) 
TEST BL,XOR_BIT 
JNZ WDOT? 
AND CH, DL 
R AL,CH 
WDOT2: 
MOV ES: (SIJ,AL 
CMP BH, OAH 
aT) WDOT6 
MoV AL, BL 
JE WDOT21 
SHR ALo. 
SHR AL,2 
woOT2i: 
SHR AL 
ROR AL, 
SHR AL, CL 
AND AL, 
MOV cH, es: (S#1} 
TEST BL.XOR_BIT 
JNZ WDOTS 
AND CH, DL 
R AL. CH 
WDOTS: 
MOV ESi(ST#2], Ab 
che 3H.0BH 
JHE WOOTS 
CALL GET_DIRSEG 
MOV €S,Ax 
MOV AL BL 
ROR AL. 
SHR AL,CL 
AND AL. DH 
MOV CHL ES: ($2) 
TEST BL, XOR_BIT 
JNZ wDOT9 
AND CH DL 
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AH 
AL 


BH 
BL 
CH 
cL 
DH 
OL 


ee er 


wees we 


we we we oe 


wee eee wee 


a ee eT 


ee 


~ 


DOT VALUE CTEMPORALY SAVED) 
ACCUMULATER 


CRT MODE 
DOT VALUE (NOT CHANGED) 


MOVED DATA FROM APA 
SHIFT COUNT 


MASK 
MASK( COMPLIMENT) 


SAVE CRT MODE AND DOT VALUE TO BX 
uae X 208 X 16 COLOR ? 


SHIFT PAL ADDR 2-3 TO LSB FOR WRITE IN V-RAMZ 


DETERMINE BYTE POSITION OF THE BIT 
SET MASK TO DH 

SET COMPLIMENT OF MASK TO DL 

SHIFT TO ADJUST IN THE DOT POSITION 


STRIP OFF THE OTHER BITS 
GET THE BYTE 


XOR THE DOT ? 
YES 

REMOVE THE INDICATED BITS 
MERGE NEW BIT TO APA 

SET IT TO APA 


64e x hi X 4716 COLOR 2 
WO, END 


GET THE DOT VALUE 
4 COLOR 


€ALL POINT ADDRESSABLE BUFFER) 


SHIFT PAL ADDR 2-3 TO LSB FOR WRITE IN V-RAM2 


SHIFT 1 BIT TO FIT IN ODD BYTE 
LEFT JUSTIFY THE VALUE 
SHIFT TO ADJUST IN THE DOT POSITION 


STRIP OFF THE OTHER BITS 
GET THE BYTE 


XOR THE DOT ? 

YES 

REMOVE THE INDICATED BITS 
MERGE NEW BITS TO APA 

SET IT TO APA 

640 X 200 X 16 COLOR ¢ 

NO 

GET gs ight wt V-RAM 1 
SET IT TOE 

GET DOT VALUE 

LEFT JUSTIFY THE VALUE 
SHIFT TO ADJUST IN THE DOT POSITION 


STRIP OFF THE OTHER BITS 
GET THE BYTE 


XOR THE DOT ? 
YES 


REMOVE OTHER BITS 
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ie oR AL, CH 3 MERGE HEW DOT TO APA 
ee WDOT4: 2 
1788 26: 88 04 MoV. «ES: £51, AL + SET IT TO APA 
MOV ALLBL 
a sae ALS + SHIFT NEXT BIT TO FIT IN ODD BYTE 
0 
ee SHR ALCL + SHIFT TO SDJUST IN THE DOT POSITION 
AND AL, DH + MASK OTHER BITS OFF 
es an Oe MOV CHLES:(SI¢1) + GET THE BYTE 
0 TEST BL, XOR_BIT + XOR THE DoT ? 
a i JkZWDOTIO + NO 
wer oo a AND CH DL 3 REMOVE THE OTHER BITS 
ee a ce acca AL,CH 3 MERGE MEW BITS TO APA 
1}bs 26: 88 46 02 MOV = ES1ESI#2},AL 3 SET IT TO APA 
1706 WDOT6: 
1706 3 RET 
WDOT7: 
aT gs cs XOR —AL.CH 
1709 EB 96 JHP SHORT = WDOT2 
wDoTs: 
1yDB 32 ¢S XOR AL,CH 
DD ED BT SMP SHORT = WDOTS 
F WDOT9: 
IDF 32 C5 XOR AL, CH 
17E1_ EB DS JMP = SHORT = WDOTS 
17E3 WDOT10: 
I7ES. 32 65 XOR AL, CH 
1765 ED EB UMP SHORT = WDOTS 
1767 WRITE_DOT ENDP 
t Sheet et Se Oe eee eee, eee 
3 
; DOT_POSITION 
3 
3 THIS SUBROUTINE DETERMINES THE REGEN BYTE LOCATION OF THE 
: INDICATED ROW COLUMN VALUE IN GRAPHICS MODE. 
3 
3 INPUT 
; AH = CURRENT CRT MODE (MASKED) 
; AL = DOT VALUDE 
i DX = ROW VALUE (0-199) 
3 CX = COLUMN VALUE (0-639) 
i ourpuT 
3 SI = OFFSET INTO REGEN BUFFER FOR BYTE OF INTEREST 
i AH = MASK TO STRIP OFF THE BITS OF INTEREST 
; AL = DOT VALUE (LEFT JUSTIFYED) 
; CL = BITS TO SHIFT TO RIGHT JUSTIFY THE MASK IN AH 
3 DH = @ BITS IN RESULT 
; CALL HONE 
, 
; VOLATILE CH, DL 
3 
1787 DOT_POSITION PROC —NEAR 
1787 53 PUSH BX 3 SAVE BX DURING OPERATION 
17&8 50 PUSH = AX 3s WILL SAVE AL DURING OPERATION ‘ 
u 
i~~"DETERMINE 1ST BYTE IN INDICATED ROW BY MULTIPLYING ROW VAL 
17E9 0 28 mov ar ght $0€ LOW BIT OF ROW DETERMINES EVEN/0DD, 80 BYT 
ea PUSH px’ 
17EC + SAVE ROW VALUE 
80 £2 FE AND ODL OF EH 3 STRIP OFF ODD/EVEN BIT 
17EF 8A FC 
17FL 80 FC a9 mov BH AH + SAVE CRT MODE 10 BK 
17F4 92 85 ck AH, 09H 3 MODE USING 32K REGEN? 
oe DPOS1 + HO, JUMP 
0 E2 Fc 
17FS pposi, “MN? DL OF CH + STRIP OFF LOW 2 BITS 
17F9 Fe E2 MUL TED ROW 
ei a DL 3 AX HAS ADDRESS OF 1ST BYTE OF INDICA 
17FC F6 C2 01 FOr bx 3 RECOVER IT 
LIFE 76 03 yer Seite + TEST FOR EVEN/ODD 
ie 38 aves + JUMP IF EVEN ROW 
AD 
tt a0 eek pposz, “9 AX, 2000H 1 QFESET 10 LOCATION OF ODD ROWS 
1807 72 08 CMP BH 09H + MODE ? 
lia 8 we ic briies i MODE USING 32K REGEN? 
180C 74 63 TEST DL,2 
Q Spies + TEST FOR ROW 2 OR ROW 3 
10E 05 sone ins + JUMP IF ROW 0 OR 1 
It 
1811 8B Fe DPOSS: AX, 4000H } OFFSET TO LOCATION OF ROW 2 OR 3 
Mov SI,AX 
1813 58 1 MOVE POINTER TO SI 
1814 88 pa Pop Ax 
Mov DX, cx : 


RECOVER AL VALUE AND CRT MODE 
COLUMN VALUE To Dx 


~ 
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1858 
185B 


1850 
1860 


1862 
1865 


1867 
1869 
1668 


186D 
1870 


BB 02C0 
BY 0302 


80 FC 04 
80 FC 05 
16 
BB 04F0 
B9 0101 
80 FC OA 


80 FC 06 
06 


80 FC OA 


8B DS 
€8 17E7 R 
BA E9 
26: BA 04 
22 ¢c4 
O02 EO 
6A CE 
b2 co 


80 FF OA 
72 30 


DPOS4: 


DPOSS: 


DPOS6: 


OPOS7: 


DOT <POSITION 


wee we we we we we we we we Oe we Oe Be Oe we OF Oe we OF Oe 


ee 


P THE R 


ee See erate MODE edd anid an Better: 


ISTERS ACCORDING T € 
VAASE FOR LOW OF COLUMH ADDRESS” € 77371 FOR Er ta RES) 


cl i @ OF ADDRESS BITS IN COLUMN VALUE ( 3/2/71 FOR H/PY 
BL = MASK 10 SELECT BITS FROM POINTED BYTE CSUH/COH/FON FOR H/PVL) 
$ BH = NUMBER OF VALID BITS IN POINTED BYTE ( 1/274 FOR H/PVL) 
MOV = BX, 2C0H 
MOV CX, 302H 3 SET PARMS FOR MED RES 
CHP AHA 
JE DPOSS ) HANDLE IF MED RES 
CHP AHS 
JE DPOSS s HANDLE IF MED RES 
mov BX, 4FOH 
MOV «CX, 101H sSET PARMS FOR LOW RES 
cup AH, OAH 
JAE DPOS4 ; HANDLE MODE A,B AS HIGH RES 
cup AH, 6 
JME ——sDPOSS s HANDLE IF LOW RES 
MoV BX, 180H 
mov CX, 703H SET PARMS FOR HIGH RES 
joo> DETERMINE BIT OFFSET IN BYTE FROM COLUMN MASK 
AND CH, DL ; ADDRESS OF PEL WITHIN BYTE T 
jo-~ DETERMINE BYTE OFFSET FOR THIS LOCATION IW COLURM 
SHR DX,CL 3 SHIFT BY CORRECT AMOUNT 
ADD —s ST, DX 3 INCREMENT THE POINTER 
CHP AH, OAH 5 640X200 4716 COLOR? 
JB DPOS6 3 NO, JUMP 
ADD ST, DX + INCREMENT THE POINTER 
MoV DH, BH 3 GET THE @ OF BITS IN RESULT TO DH 
g--= MULTIPLY BM CVALID BITS IN BYTE) BY CH (BIT OFFSET) 
SUB cLck 3 ZERO INTO STORAGE LOCATION 
ROR ALs1 3 LEFT JUSTIFY THE VALUE IN AL 
3 CFOR WRITE) 
ADD CL CH 3 ADD IN THE BIT OFFSET VALUE 
DEC 3 LOOP CONTROL 
JNZ ——-DPOS7 3 ON EXIT, CL HAS SHIFT COUNT TO RESTORE BITS 
mov AH, BL > GET MASK TO A 
SHR AH,CL ; MOVE THE MASK’ TO CORRECT LOCATION 
POP Bx 3 RECOVER REG 
RET 3 RETURN WITH EVERYTHING SET UP 
eNDP 
READ DOT INT 20H, AH = 13 (ODHD 
THESE ROUTINES WILL READ THE DOT AT THE INDICATED LOCATION 
INPUT 
AH = CURRENT CRT MODE (MASKED) 
DX = ROW (0-199) (THE ACTUAL VALUE DEPENDS ON THE MODE) 
CX = COLUMN (0-639) ( THE VALUES ARE NOT RANGE CHECKED ) 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 
ourPuT 
AL = DOT VALUE READ, RIGHT JUSTIFIED, READ ONLY 
CALL DOT_POSITION 
GET_DIRSEG 
VOLATILE AH, BX, CX, DX, SI, ES 


ASSUME CS:CODE, OS:DATA, ES:VIDEO_RAN 


REGISTER USAGE 


READ_DOT 


mov 


CALL 
MOV 


MoV 
AND 


SHL 
ROL 


CMP 
JB 


PROC = NEAR 
BX, AX 
DOT_POSITION 
CHLeL 


AL.CL 
CL,DH 
AL, CL 


BH,OAH 
RDOT! 


AL. ES: (SI) 
L,AW 
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AH MASK 

AL ACCUMULATER 

3H CRT MODE 

BL TEMPORARY SAVE DATA OF DOT VALUE 
CH SHIFT COUNT (SAVED) 

ck SHIFT COUNT 

DH @ OF BITS IN ONE PIXEL 

$ SAVE CRT MODE TO 8H 


+ DETERMINE BYTE POSITION OF THE SIT 
3 SAVE SHIFT COUNT TO CH 


GET THE BYTE 
STRIP THE OTHER BITS OFF 


SHIFT TO LEFT JUSTIFY 
RIGHT JUSTIFY THE RESULT 


3 640 X 200 X 4726 COLOR ? 
WO, END 


wee 


Appendix A. 


8A D8 
26: BA 44 OL 


FF OB 


1095 Rk 
co 


26: BA 04 
22 c4 


b2 
be 
OA 


Eo 
ce 
os 


26: BA 44 01 
22 C4 


3c 
75 


32 
e9 


SE 0062 2 
OF 

ES 
7 


97 O35C R 


OE o362 Rr 
06 6342 R C000 


68 
03 


19C2 R 
05 


D2 
19BE ® 


ROOT: 


READ_DOT 


mov BL.AL 
mov AL, ES: (SI#2) 
AND AL, AK 
MoV CL,CH 
SHL AL,CL 
ROL AL,t 
ROL AL,1 
OR ALLBL 
CMP BH, OBH 
JNE RDOTL 
SHL AL,1 
SHL AL,1 
MOV BL,AL 
PUSH ax 
CALL GET_DIRSEG 
MoV ES,AX 
PoP AX 
MOV ALES: ($1) 
AND AL, AH 
SHL AL,CL 
ROL AL,2 
OR BL,AL 
Mov AL, ES: (S141) 
AND ALLAH 
SHL ALCL 
ROL ALL 
ROL AL,1 
OR ALLBL 
eT 
ENDP 
J ereen nnn nnn wenn ene 
WRITE_TTY 


on we wee Woe we we we we we we we Oe 2 we we we Be we we we we ee 
“=e we Be we 0s we © 


THIS INTERFACE PROVIDES A TEL 


VIDEO 
CURSOR 
IF THE 
Is SET 
VALUE 


ROW, FIRST COLUMN, AND THE ENTIRE § 
WHEN THE SCREEN IS SCROLLED U 


LINE. 


GRAPHI 
INPUT 


OUTPUT 
CALL 
VOLATIL 


ASSUME 


WRITE_TTY 


WTYLs 


PUSH 
PUSH 


INE 


XOR 
JMP 


CARD. THE INPUT 
POSITION, 
CURSOR LEA 


3 SAVE EVEN VALUE TO BL 


GET THE 
STRIP TH 


LEFT JUS 


we we wee ee eee we 


COMBINE 
640 X 20 
NO, END 


wee 


wae 


SAVE EVE 
SAVE AX 


SEY I 
RESTORE 


GET THE 
STRIP TH 
LEFT Jus 
RIGHT JU 
COMEBINE 


GET THE 
STRIP TH 
LEFT JUS 
RIGHT JU 
MOVE TO 
COMBINE 


ee ee 


Be we we we we we 


OOD BYTE 
€ OTHER BITS OFF 


RESTORE SHIFT COUNT 


TIFY THE VALUE 


RIGHT JUSTIFY THE VALUE 
MOVE TO PALETTE ADDRESS 1 POSITION 


EVEN/ODD BIT 
0 X 16 COLOR ? 


SHIFT LOW 2 BIT TO PALETTE ADDR 2-3 POSITION 


NM VALUE TO BL 


GET DIRECT SEGMENT OF V-RAM 1 
T 10 ES 


Ax 


BYTE 

E OTHER BITS OFF 
TIFY THE VALUE 
STIFY THE VALUE 


EVEN BIT OF V-RAM 1 TO PAL ADDR O 


BYTE 

E OTHER BITS OFF 

TIFY THE VALUE 

STIFY THE VALUE 

PALETTE ADDRESS © POSITION 
ALL 4 BITS 


INT 10H, AH = 14 (OEH) 


CHARACTER 


ETYPE LIKE INTERFACE TO THE 


IS WRITTEN TO THE CURRENT 


AND THE CURSOR IS MOVED TO THE NEXT POSITION. 
VES THE LAST COLUMN OF THE FIELD, THE COLUMN 


TO ZERO, AND THE ROW VALUE IS INCREMENTED. IF THE ROW 


LEAVES THE FIELD, 


THE CURSO 


R IS PLACED ON THE LAST 
CREEN IS SCROLLED UP ONE 
P, THE ATTRIBUTE FOR FILLING 


WLY BLANKED LINE IS READ FROM THE CURSOR POSITION ON THE 
US LINE BEFORE THE SCROLL, IN CHARACTER MODE. 
CS MODE, THE 0 COLOR IS USED. 


AH = CURRENT CRT 
AL = CHARACTER T 


MODE (Mm 
O BE WRITT 


ASKED) 
EN 


NOTE THAT BACK SPACE, CAR RET, BELL AND LINE FEED ARE 


HANDLED AS COMMANDS RATHER THAN 


BL = FOREGROUND COLOR FOR CHAR WRITE IF CURRENTLY IN A 


OX, (BX*OFFSET cu 
Bx 


Ax 


CX, TTY_1ST_CHAR 
TTY_IST_CHER, 0 


AL,BS 
WTY1 


WTY19 


AL.CR 
WTY2 


DL,DL 
WTY18 
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GRAPHICS MODE 
NONE 
BEEP 
VIDEO 
E BH, CX, DX 
CS:CODE, DS:DATA 
Proc NEAR 
Ax 3 SAVE REGISTERS 
Ax » SAVE CHAR TO WRITE 
BH, ACTIVE _PAGE 3; GET CURRENT PAGE SETTING 
Bx 3 SAVE IT 
BL. BH + IN BL 
BH, BH 
BX,1 


CORVERT TO WORD OFFSET 


3 
RSOR_POSH) 


+ GET CURSOR POSITION 


s RECOVER CURRENT PAGE 
3 RECOVER CHAR 


i-c> DX NOW HAS THE CURRENT CURSOR POSITION 


’ SAVE 1ST BYTE OF 2 BYTE CODE 


CLEAR IT 
sISITA 
+ 0 


~ 


b~-~ CARRI 
3 MOVE TO 


3 SET_CURSOR 


FOR SPECIAL CODE 
BACKSPACE? 


BACK_SPACE 


as IT A CARRIAGE RETURN? 


AGE RETURN 
FIRST COLUMN 


AS DISPLAYABLE GRAPHICS 


3c 
75 


e9 


3¢ 


OA 
os 


1982 R 


75 08 


83 
€9 


SE 0049 R 10 
2 7A 


OE 0342 R 


ce 
18 


06 0342 R 0008 
6 


OE OO4A R 


D1 
21 


36 0342 R 
C6 O342 R CbC8 


OE20 
10 


OF 
FF 


ES 
97 OSSC R 
06 0342 R 


0342 R 
pc 
OA 


0001 
10 


at O342 R C000 


02 
10 


OA 
0001 
10 


16 OO4A R 


36 0346 R 


WTY2: 


WTYS: 


WTY4: 


WTYS: 


WTY6: 


WTY7: 


WTY8: 


WTY9: 


WTY10: 


WTYiad: 


JNE 
JMP 


CMP 
JHE 


MoV 
CALL 
JMP 


AL,LF 
WTYS 


WTY11 


AL, BELL 
WTY¢ 


BL,2 
BEEP 
WTY16 


3 IS IT A LINE FEED 
3 WO 
3 LINE_FEED 


s IS IT A BELL 
3 NO 


ELL 
3 SET UP COUNT FOR BEEP 
3 SOUND THE POD BELL 
TTY_RETURN 


~ 


CRT_MODE,KJ_MODE; KANJI MODE ? 
WTY10 


TTY_IST_CHAR, CX 


CX,CX 
WTY6 


AL,O80H 


AH, BL 
TTY_1ST_CHAR, AX 
WTYi¢ 


AL,OSOH 
WTY7 
AL,OFCH 
WTY7 
AL,O7FH 
WTYs 


TTY_1ST_CHAR,O 


SHORT WTY10 


CX, CRT_COLS 
cx 


DL.CL 
WTY9 


ax 
3x 


TTY_1ST_CHAR 


TTY_IST_CHAR,@ 


AX,QEQOH + * ¢ 
VIDEO 





ox. taxeorrser CURSOR ~POSN) 


TTY_1ST_CHAR 


Bx 
AX 


AX 
BX 


AX, TTY_IST_CHAR 
BLAH 


TTY_IST_CHAR,0 
OL 


AH,2 
VIDEO 
ax 


AH,10 
Cx.) 
VIDEO 


~ 


NO, SKIP 2 BYTE CODE HANDLING 


+ RESTORE 1ST BYTE OF 2 BYTE CODE 
; Aer BYTE OF 2 BYTE CODE HAS BEEN SET ft 
3 YES 


1ST BYTE OF 2 BYTE CODE ? 
NC, GO TO WRITE ONE CHARACTER 


NO, GO TO WRITE ONE CHARACTER 
YES 


ee we oe we ee we Oe we 


NO, GO TO WRITE ONE CHARACTER 


b-~~ CHARACTER IS 1ST BYTE OF 2 BYTE CODE 
+ SET COLOR 


3 SAVE 1ST BYTE OF 2 BYTE CODE AND SET FLAG 
+ RETURN; WRITE PROCESS IS PENDING 


bw>~ CHARACTER MUST BE 2ND BYTE OF 2 BYTE CODE 
; a BYTE OF 2 BYTE CODE ? 
3 ON 


Oo 
YES 


j-~~ IGNORE 1ST BYTE 
+ RESET FLAG OF 1ST BYTE 
3 GO TO WRITE ONE BYTE 


s--- WRITE 2 BYTE CODE 

3 CHECK COLUMN BOUNDARY 

+ ADJUST FOR COMPARE 

; re COLUMN AT END OF LINE ? 
3 


we ee ee we 


SAVE 2ND BYTE OF 2 BYTE CODE 
SAVE FOREGROUND COLOR 


SAVE 1ST BYTE OF 2 BYTE CODE 
CLEAR FOR RECURSIVE CALL 


CAH)=OEH: WRITE SPACE 
VIDEO 170 


PAGE NUMBER 


3 CONVERT TO WORD OFFSET 
+ GET CURSOR POSITION 


s RESTORE 2ND BYTE OF 2 BYTE CODE 


RESTORE Sic ila COLOR 
RESTORE 2HD 8 

w7~ WRITE 1ST MTe OF 2 gis ‘CODE 
SAVE 2ND BYTE OF 2 BYTE CO 

SAVE COLOR 

GET 1ST BYTE OF 2 BYTE CODE 

SET COLOR OF 1ST BYT 

CAH)=OANt WRITE CHARACTER AT CURRENT CURSOR 
WRITE ONE CHARACTER 

VIDEO Iv0 

RESTORE COLOR OF 2ND BYTE 


+ RESET FLAG OF 1ST BYTE 
+ INCREMENT ROW 


purer son OF SET CURSOR POSITION 
o 


RESTORE 2ND BYTE 

go~~ WRITE THE eae TO THE SCREEN 

3 WRITE CHAR ONLY 

3 ONLY ONE one 

3 WRITE THE CHA 

ger POSITION THE CURSOR FOR NEXT CHAR 


~ 


wee 


a 


a 


ee ee we we we we we we we we Oe 


wee 


DL 
evi PTR CRT_COLS 3 aet FOR COLUMN OVERFLOW 


DL, DL 


DH, CRT_ROWS 
WIY.7 
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¢ SET_CUR 


+ COLUMN FOR CURSOR 
bo-> LINE FEED 

+ BOTTOM OF SCREEN 
b NO, SET _CURSOR_INC 
s--> SCROLL REQUIRED 
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Ao 


55 
BA 
8A 


e2 
10 


0049 R 
oF 
04 
04 
FF 
10 
os 
10 


SE 0049 R 10 
os 


E477 
Fc 
0601 
c 

36 8346 8 
16 GO4A R® 
CA 


16 


26 CO4A R 
0049 R 
SE 0062 R 


83 EC 


89 


5D 
c3 


SE 08 


mov 


AH.2 


ET THE CURSOR 
ane aan inte DETERMINE VALUE TO FILL WITH DURING SCROLL 
AL. CRT_MODE GET THE CURRENT M 
AND AL, KJ_OFF } MASK KJ BIT OFF 
AL, GRAPHICS 3 IN ALPHA MODE ? 
Sec aryie + YES, READ ATTRIBUTE 
XOR —s-BH BH 3 FILL WITH BACKGROUND 
JMP = SHORT WTY146 3 SCROLL-UP 
wrvi2: seo READ ATTRIBUTE 
mov AKL. 
INT VIDEO 5 READ CHARZATTR AT CURRENT CURSOR 
cup CRT_MODE,KJ_MODE; KJ MODE ? 
3B WTYTS 3 HO 
AND AH, HAN_MASK 3 MASK KJBIT OFF 
wTYL3: 
mov BH, AH s STORE IN. BH 
WTY24: 
Mov AX, 604 3 SCROLL ONE LINE 
SUB CX; Cx : UPPER LEFT CORNER 
MOV DH. CRT_ROWS LOWER RIGHT ROW 
mov DL» BYTE PTR CRY SOLS 5 LOWER RECHT COLUNH 
wryi5: 
INT VIDEO + SCROLL UP THE SCREEN 
WTY16: 
Pop ax + RESTORE THE CHARACTER 
RET 5 RETURN TO CALLER 
Jooeeee---- woene------- =~. a SET NEW CORSOR POSITION 
wTYa7: 
INC DH 3 NEXT ROW 
wryi8: 
MoV AH,2 
JMP uTY15 + ESTABLISH THE NEW CURSOR 
corn ne-----+- 22+ eee ~------ BACK SPACE 
WYY19: 
oR DL, DL 3 ALREADY AT END OF LINE 
JE WTyi8 3 SET_CURSOR 
DEC L } NO =~ JUST MOVE IT BACK 
JMP wTvis 3 SET_CURS 
MRITE_TTY EHDP 
: 
3 VIDEO STATE INT 10H, CAH) = 15 COFHD 
|| eee oneal 
; RETURNS THE CURRENT VIDEO STATE IN AX 
t 
3 INPUT NONE 
} ouTPuT 
5 AH = HUMBER OF COLUMNS cON THE SCREEN 
3 AL = CURREHT VIDEO MODE 
; BH = CURRENT ACTIVE DISPLAY PAGE 
5 
3 CALL HONE 
i. VOLATILE HOKE 
3 
Joeren wench eeesersbeci cco scene en 
ASSUME CS:CODE, DS:DATA 
VIDEOLSTATE = PROC HEAR 
PUSH BP + SAVE BP 
nov AH.BYTE PTR CRT_COLS ; GET HUMBER OF COLUMKS 
MoV AL, CRT_MoD + CURRENT MODE 
NOV BH ACTIVE. PAGE 3 GET CURRENT ACTIVE PAGE 
Hov P.SP 3 SET FRAME POINTER 
Mov ters r We .ax 3 SET RETURN BX 
Pop BP + RESTORE BP 
RET } RETURN TO CALLER 
VIDEO. STATE ENDP 


wee we we we Be Be we we Oe we we we we we we we we we we 


INPUT 


OUTPUT 


THIS ROUTINE 


AH = 
AL = 0 Ser PAL 
(BH) = 
(BL) = 
AL =1 
BH) = 
AL = 2 > SET att 
€S:Dx 
MONE 
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IMT 10H, AH = 16 (10H) 


WRITES THE PALETTE REGISTERS 
CRT MODE (MASKED) 


ETTE REGISTERS 
VALUE TO SET 


PALETTE REGISTER aL SET (OOH-OFH) 


HM BORDER COLOR REGISTE 


VALUE TO SET 
PALETTE REGS AND BORDER REG 
POINTS 10 A 17 BYTE LIST 


BYTE 0 ~ 15 ARE VALUES FOR PALETTE 
BYTE 16 IS THE VALUE FOR THE BORDER REG 


50 

E& 1DFC R 
8B FS 

36: SE 44 10 
8B F2 

ES 1AS4 R 
BO 06 

EE 

32 CO 

EE 

58 

OA CO 

74 OA 

3c 02 

74 :1¢ 

77: «3¢ 


BO 02 
€B oD 
8A C3 
oc 10 


80 FC OB 
75 02 


34 OA 

EE 

BA C7 

ce 

32 60 

ee 

EB 22 

87 10 

8a Cc? 

80 FC OB 
75 02 

34 0A 

cE 

261 BA 04 
La 3 

4 

FE C7? 

80 FF 20 
72: EA 


BO 02 
EE 


26: BA 04 
ee 
A2 0066 R 


8A 26 O347 RK 
€8 0929 R 


ES 1DD6 R 
C3 


wee we we we we we we we 


SET_PALLETTE PROC —NEAR 
PUSH = AX + SAVE AX 
CALL ——- ENABLE_VG12 3 ENABLE BOTH VG1 AND VG2 
mov $1,SP 
Mov ES,SS:(SI¢F_ES) 3 GET SEG FROM STACK 
ASSUME ES: INDETERMINATE 
mov $1,DX 3 OFFSET IN SI 
CALL WAIT_VERTRET = 5 WAIT UNTIL VERICAL RETRACE 
Mov AL, PCSUPER ; 
OUT DX, AL 3 CLEAR SUPERIMPOSE CONTROL REGISTER 
XOR ALL AL 3 FOR SET PALETTE 
ouT DX, AL 3 
PoP ax 3 RESTORE AX 
oR AL, AL 3; SET PALETTE REG? 
Jz SPLL ; YES, GO DO IT 
cMP AL,2 + SET ALL REGS? 
JE SPLS 3 YES, GO DO IT 
3 SET BORDER COLOR REG? 
JA SPLS 3 NO, DON'T DO ANYTHING 
3---_ SET BORDER COLOR REGISTER 
Mov AL, IXBORD + SET BORDER COLOR REG HUMBER 
JMP SHORT SPL2 
SPLi: soo-_SET PALETTE REGISTER 
mov AL, BL 3 GET DESIRED REG NUMBER IN AL 
AND AL,OFH 3 STRIP UNUSED BITS 
OR AL, IXPALET + MAKE INTO REAL REG NUMBER 
CMP AH, OBH 3 640 X 200 X 16 COLOR ? 
INE SPL2 + NO 
srs, *% AL, 10108 3 MAP TO REAL REG NUMBER 
, 
out DX, AL 3 SELECT REG 
MoV AL.BH 3 GET DATA IW AL 
ouT DX, AL 3 SET NEW DATA 
XOR AL, AL 3 SET REG @ SO DISPLAY WORKS AGAIN 
our DX, AL 
une SHORT SPLS 
SPL3: inas SET ALL PALETTE REGS AND BORDER REG 
MoV BH, IXPALET ; BM IS REG COUNTE 
SPL4: 
Mov AL. BH + REG ADDRESS IN AL 
CMP AH, OBH 3 640 X 200 X 16 COLOR 
JNE SPL41 3 NO 
XOR AL, 10208 + MAP TO REAL REG NUMBER 
SPL4A: 
our DX, AL + SELECT IT 
Mov AL-BYTE PTR Esi(s1) 3GET DATA 
OUT DX, AL PUT IN VGA REG 
Inc $I 3 NEXT DATA BYTE 
INC BH 3 NEXT REG 
CMP BH,20n 3 LAST PALETTE REG? 
JB SPL4 3 NO, DO NEXT ONE 
MOV AL, IXBORD SET BORDER REG 
OUT DX, s SELECT IT 
Mov AL-BYTE PIR ESiCST) 3 GET DATA 
OUT DXA 3 PUT IN VGA REG 
seus, "OY CRT_PALLETTE,AL ; SAVE TN RAM 
1 
MoV AH, SUPIPCR + RESTORE SUPERIMPOSE CONTROL REOISTER 
CALL —- SET_SUPREG ; 
CALL ENABLE_VG2 3 ENABLE VIDEO GENARATER 2 
RET + ALL DONE 
SET_PALLETTE — ENDP 
poecewcese eceer= Serer er ec ere et ee ene sees eee swowwarecereeseese 
WAIT_VERTRET WAIT VERTICAL RETRACE 


1 
3 
’ 
3 
i 


CALL 


VOLATILE 


ENABLE_VG12 
EWABLE_VG2 
WAIT_VERTRET 
SET_SUPREG 


AX. BX,DX,SI,ES 


NOTE: PALETTE REGISTERS ARE WRITE ONLY. 


Jomo rene nn -- 2-2-2 - 5-2 ee 5 ee ee oo -- 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 


THIS ROUTINE WAITS UNTIL A VERTICAL RETRACE BEGIN 


INPUT 
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Appendix A. 
A OUTPUT NONE 
5 VOLATILE AL, DX 
iy 
t ostemtensemess Sevwcueesecesekossetewussess series 3 
WAIT_VERTRET PROC —sREAR 
1asé o MoV DX, VGA_CTL SET VGA CONTROL PORT 
BA 03 WAITVI+ 
Th InN AL, DX 3 GET VGA STATUS 
1aa7 EC AND AL, VERTRET 3 IN VERTICAL RETRACE? 
1048-24 08 JNZ WAITVA + YES, WAIT FOR IT TO GO AWAY 
1A4A 75 FB 
WAITV2: 
1a46C InN AL,DX 3 GET VGA STATUS 
1ase EC AND AL, VERTRET 3 IN VERITCAL RETRACE? 
1A4D 26 08 JZ WAITV2 + NO, WAIT FOR IT 
LA4F 74 FB 
waSi =CS 
5 | ccc 2 pe eS 
ASSUME CS:CODE, DS:DA 
— NO_LOPERATION PROC —sNEAR 
1as2. 3 RET 
ies NO_OPERATION — ENDP 
jecacecesteesy ease eae eho tt setae es 
3 
3 FONT PATTERN INT 10H, AK = 19 
ee 
; THIS ROUTINE ACCEPTS OR RETURNS FONT PATTERN FROM/IN USER AREA 
3 INPUT 
3 AL =0 REQUEST BASE-FONT 
; AL =80H REQUEST BASE-FONT WITH FULL CHARACTER BOX 
5 AL =40H WRITE FONT PATTERN FROM USER AREA TO GAIJI RAM 
3 
; CX = INTERNAL CODE FOR REQUESTED FONT 
> FOR HANKAKU-FONT (CH)=0 
; BX = OFFSET OF DATA AREA FOR FONT 
; NORMAL-BOX FULL-BOX 
3 “16X16 3 32 BYTE 36 BYTE 
; -16xX8 ; 16 BYTE 18 BYTE 
; DS = _—_—DATA SEGMENT 
3 
; OUTPUT FONT PATTERN 
; CALL CHECK_ROSS_CHAR 
; FONT 
; VOLATILE AX, CX,SI,DI,ES 
3 
i ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
1A53 FONT_PATTERN PROC NEAR 
1A53 55 PUSH BP. ; SAVE BP 
1A5$ 8 Ec HOV BP, SP ; SET SP TO BP 
SE 46 10 Mov ES, (BP+F_ES) 3 GET SEGMENT VALUE FROM STACK 


ASSUME ES: INDETERMINATE 
1A59 EB 1B65S B 


CALL CHECK_ROSS_CHAR + CHECK AND CONVERT ROSSIAN CHARACTER 
1ASC BG 10 MOV OH, KJ_MODE 
° 3 INDICATES KJ MODE 
(ASE EB 1A63 R CALL FONT it 3 PERFORM FONT FUNCTION 
Hie A PoP BP 3 RESTORE BP 
REY 3 RETURM TO CALLER 
1A63 


FORT_PATTERN ENDP 


FONT 


THIS ROUTINE ACCEPTS OR RETURNS FONT PATTERN FROM/IN USER AREA 
INPUT 

AL =0 = REQUEST BASE-FONT 

it =80H REQUEST BASE-FONT WITH FULL CHARACTER BOX 

=40H WRITE FONT PATTERN FROM USER AREA TO APA 
cx = INTERNAL CODE FOR REQUE 
STED FONT 
FOR HANKAKU- ba 
tins CRT Mobe KU-FONT (CH)=0 


ESiBX = DATA AREA FOR FO 
HT 
HORMAL-BOX FULL-BOX 
“16X16 5 32 BYTE 36 BYTE 
“16X83 16 BYTE 18 BYTE 


DATA SEGMENT 


we Wo 0s we 0s we we Oe Oe Be Be Oe we WF Be Or Oe OH Oe Be 


Ds = 
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B9 
AD 
E2 
58 
74 


33 
AB 


’ OUTPUT CES:BX) = FONT PATTERN 
3 
3 CALL ENABLE_VG1 
3 ENABLE_VG2 
; ENABLE_KJROM 
3 ENABLE_VRAM 
3 CVTCR 
; VOLATILE AX, CX, SI,DI,ES 
3 
t Deheheteteteeteteteetettetetet ad 
ASSUME CS:CODE ,DS:DATA 
FOXT PROC NEAR 
PUSH px 3 SAVE CURREXT DX 
PUSH = DS $ SAVE CURRENT DS 
PUSH = AX 3 SAVE REGISTERS 
1DB0 R CALL ENABLE_VG1 3 ENABLE VIDEO GENERATER 1 
PUSH px 3 SAVE DX 
O3DA i MOV DX, VGA_CTL 3 GET GATE ARRAY ADDRESS 
ONTL: 
IN AL. DX 3 SEE STATUS REGISTER 
08 AND AL, VERTRET 3 IM VERTICAL RETRACE ? 
FB JZ FONTL 3 NO, WALT UNTIL IT COMES 
PoP Dx 3 RESTORE DX 
1DD6 R CALL ENABLE_VG2 3 ENABLE VIDEO GENERATER 2 
PoP Ax 3 
1388 R CALL ENABLE_KJROM 3 ENABLE KJ-ROM 
Ee MOV AH,AL 5 SAVE FUNCTION TO AK 
7F AND AL,7FH 3 MASK FULL BOX FLAG OFF 
FC 40 cmp AH, 40H + WRITE FONT PATTERN ? 
50 JE FONTS 3 YES 
Bomeonsm---- REQUEST FONT PATTERN 
00 chp AL.O 3 REQUEST FONT ? 
74 SNE FONTL2 
PUSH Ax + SAVE REQUESTED FUNCTION 
PUSH cx 3 SAVE INTERNAL CODE 
C1 MOV AX, CX 3 
1B01 R CALL CVTCR 3 GET KJ ROM SEGMENT ADDRESS 
ASSUME DS: INDETERMINATE 
D8 MoV DS, AX 3 SET CHARACTER PATTERN ADDRESS TO DS 
F6 XOR $I,SI 3 CLEAR FOR ROW 0 
FB mov DI,3X 3 SET PATTERN RETURN ADDRESS 
POP cx » RESTORE INTERNAL CODE 
ED OR CH. CH 3 2 BYTE CODE ? 
12 JNZ FONTS 3 YES 
FE 10 cmp DH, KJ_MODE 3 KJ GRAPHICS MODE ? 
23 JAE FONTS 3 YES 
0008 MOV CX.8 3 REPEAT COUNT FOR ANK 
0001 MoV $I,1 3 OFFSET FOR ANK 
PoP ax 3 
E4 7F AND AH, 7FH 3 MASK FULL BOX FLAG OFF 
PUSH AX H 
19 JMP SHORT FONT? 3 CONTINUE 
FONTS: 3~-~ GET LEFT PART FONT OF 2 BYTE CODE 
oe1e sis MoV CX.16 3 SET ROW NUMBER OF CHARACTER BOX 
t 
LODSW 3 GET ONE ROW 
7F AND AL, KJMASKL 3 MASK OFF CONTROL BIT 
STOSB 3 PUT LEFT PART OF ONE ROW 
FA oop FONTS 3 REPEAT UNTIL EXHAUST LEFT PART 
POP ax 3 RESTORE FUNCTION 
PUSH ax 3 SAVE IT 
C4 80 TEST AH, 80H 3 FULL CHARACTER BOX ? 
03 Jz FONTS 3 MO 
co XOR AX, AX 3 
STOSW 3 SET @ FOR FULL BOX 
FONTS: 
0001 NOV $I,2 3 SET OFFSET FOR RIGHT PART 
FONT6: so-> GET FONT OF 1 BYTE CODE OR RIGHT PART 
0010 ‘. MOV CX.16 + SET ROW NUMBER OF CHARACTER BOX 
ONT?: 
LODSW 3 GET ONE ROW 
STOSB $ PUT RIGHT PART OF ONE ROW 
Fc Loop FONT? 3 REPEAT UNTIL EXHAUST LEFT PART 
POP ax + RESTORE FUNCTION 
c4 80 TEST AH, 80H 3 FULL CHARACTER BOX t 
QS JZ FONTS + NO 
co XOR AX, AX ’ 
STOSW + SET © FOR FULL 80X 
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1aDi «EB 28 


1AD3 81 F9 FOSO 


2 
1aD9 81 FY FO7E 
1aDD 77 :1¢ 


1ADF D1 EL 


AEL 81 El OSFE 
1AES 81 C9 8800 


1AEB 8B OFS 
1AED 8€ C1 
(AEF 33 FF 
JAF1 Bd 0010 


ac 
1AFS 8A 64 OF 


AB 
1AF9 E2 FY 
1AFB ES 1BB4 R 
WAFE 1F 


(AFF OSA 
1800 CS 


1301 0A E4 
1B0S «75 07 


bi €0 
1307 OD 8000 
1BGA EB 35 


1BOC «3D 8100 


1B2A 3D FO4e 
1B2D 72 OF 
\B2F 3D FO7E 

77 0A 
1B34 D) £0 
1B36 25 OSFE 
1839 0D 3aco 
1BSC EB 03 
LB3E B8 BOER 
1BS1 C3 


FONTS: 
SHORT FONT11 3 END 
----------- WRITE FONT PATTERN 
ASSUME DS:DATA 
FONTS: 
CMP cx, EXT _CHAR_L 3: IN EXTERNAL CHARACTER RANGE 
JB FONT11— 3 NO 
CMP Saat —CHAR_H 3 
JA FO 3 NO 
SAL cx,1 3 ADJUST FOR CHARACTER PATTERN ADDRESS 
AND CX, OSFEH ; 
OR CX,8800H 3 FORCE "10001" To MSB 
PUSH es 3 SET SOURCE SEGMENT 
PoP oS 3 
ASSUME DS: INDETERMINATE 
MOV ST,BX 3 SET SOURCE OFFSET 
mov Es,cx 3 SET DESTINATION SEGMENT 
ASSUME eg ag a rt 
XOR DI,.DI SET DESTINATION OFFSET 
MoV 6X16 3 SET HUMBER OF ROW 
FONT10: 
LODSB 3 GET LEFT PART OF ONE ROW 
MOV AH,DS:(S1415) 3 GET RIGHT PART OF ONE ROW 
STOSW 3 STORE ONE ROW 
L FONT10 3 REPEAT ALL ROW 
FONTLA: 
ENABLE_VRAM s ENABLE VIDEO RAM 
ASSUME DS:DATA 
POP DS + RESTORE DS 
POP DX 3 RESTORE DX 
RET 
FONT ENDP 
pitoon ecedteacceccastsccucoma! mesucoscatss 
5 
; CVTCR 
7 Hwee 
3 THIS ROUTINE CONVERT CODE TO KJ-ROM ADDRESS 
3 
$ INPUT AX = INTERNAL CODE FOR REQUESTED FONT 
3 
3 OUTPUT AX = SEGMENT ADDRESS OF KJ-ROM 
; CALL NONE 
; VOLATILE NONE 
3 
, ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
CVTCR PROC NEAR 
OR AH, AH + 2 BYTE CODE ? 
JHZ CVTCRI 3 YES 
poo 1 BYTE CODE 
SAL AX,1 } ADJUST FOR CHARACTER PATTERH ADDRESS 
OR AX, 8000H + FORCE 1000000" TO MSB 
JMP SHORT CVTCRS 5. END 
cvTcri: s--- 2 BYTE C 
cue AXeRR sRROSS L_toW ; I REGEN cope RANGE OF ROSSIAN CHARACTER ? 
Hy 
cup AX, RROSS__ L_HIGH 3 
JBE CVTCR2 3 YES 
cMP AX, JISI_L 5 IH JIS 1 RANGE ? 
JB CVTCRS + NO 
ce AX, S181 H ; 
CR 
cvTcRa: ‘ sibs 
SAL AX, 1 5 ADJUST FOR CHARACTER PATTERN ADDRESS 
AND AX, SEFEH 3 
»8000H 3 FORCE °10° TO MSB 
JMP SHORT CVTCRS = 3-_: END 
CVTCRS: “~~ EXTERNAL CHARACTER 
’ 
o AX, EXT_CHAR_L 3 IM EXTERNAL CHARACTER RANGE 
+ NO 
CMP AX,EXT_CHARLH 5 
JA CVTCR4 + NO 
SAL AX,1 A TERN ADDRESS 
AND AX. O3FEH DJUST FOR CHARACTER PAT 
»8800K 3 FOR ' ' 
IMP SHORT cvrers FORCE 10001" TO MSB 
CVTCRG: 
MOV 
cvters, AX, OFFSET WHITE_BOX 3s SET WHITE BOX 
RET 
CVICR = ENDp 
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1888 
1B88 
1889 
1B8A 
1888 


188C¢ 


1BSF 


1B92 


F9 8100 
F9 8120 


Ci 0340 


81 F9 8200 


81 F9 8221 


81 C1 0270 


FO 8440 
F9 8460 
Ed 0340 


81 F9 8476 
81 F9 8491 


81 E9 0270 


ES 1BE4 ® 


BA O1FF 


CHECK_ROSS_CODE 


THIS ROUTINE TRANSLATE REGEN CODE TO ROSSIAN CHARACTER CODE 
INPUT = CX = 2 BYTE REGEN CHARACTER CODE 


OUTPUT Cx = 2 BYTE CHARACTER CODE 
CALL NONE 
VOLATILE NONE 


CHECK_ROSS_CODE Proc NEAR 
cmP He RROSS_L_LOW 5 no LOWER CASE OF ROSSIAN CHARACTER 
CODE2 Ni 


JB 
CMP tx. RROSS_L_HIGH 
JA RCODE1 + NO 
ADD CX,ROSS_L_LOW - RROSS_L_LOW + TRANSLATE 
JMP SHORT RCODE2 
RCODE1: 3 CHECK UPPER CASE OF ROSSIAN CHARACTER 
CMP CX,RROSS_U_LOW 
JB RCODE2 3 
CMP CX, RROSS_U_HIGH 
JA RCODE2 ; 
ADD CX,ROSS_U_LOW - RROSS_U_LOW $ TRANSLATE 
RCODE2: ee 


CHECK_ROSS_CODE ENDP 


Jr err re ewe mn ween www w ewww www www wwe 2 n eee eee 


CHECK_ROSS_CHAR 
THIS ROUTINE TRANSLATE ROSSIAN CHARACTER CODE TO REGEN CODE 


INPUT CX = 2 BYTE CHARACTER CODE 
OUTPUT CX = 2 BYTE REGEN CHARACTER CODE 
CALL MONE 

VOLATILE NONE 


we we ws we we we we we we we we we we 


CHECK_ROSS_CHAR PROC NEAR 


CMP CX.ROSS_L_LOW 5 CHECK LOWER CASE OF ROSSIAN CHARACTER 
JB RCHAR2 0 
CMP CX. ROSS_t_HIGH 
JA HARL 5 
sus xs ROSS_L_LOW - RROSS_L_LOW 5 TRANSLATE 
Jmp SHORT RTHAR2 
RCHARL: 3 CHECK UPPER CASE OF ROSSIAN CHARACTER 
cup CX.ROSS_ U_LOW 
CMP cx wos _U_HIGH 
Ja 3 NO 
suB CX,ROSS_U_LOW - RROSS_U_LOW 3 TRANSLATE 
RCHAR2: 
RET 


CHECK_ROSS_CHAR ENDP 


Jerr rere we ee wow ne wn wwe wenn nen ene we eee 


3 

F ENABLE_KJROM 

3 

F THIS ROUTINE ENABLES KJ-RON 
3 

F INPUT NONE 

‘ OUTPUT NONE 

; CALL DDS 

5 DISABLE_INT 
5 ENABLE_INT 
; VOLATILE NONE 

5 

| Detehaheehetetetetetetet tte tt ee ee ed 


ENABLE_KJRON PROC NEAR 
PUSH ax 


4 
PUSH BX 3 SAVE REGISRES 
PUSH Dx 5 
PUSH oS 3 
CALL bos + POINT DATA AREA 

ASSUME DS:DATA 

CALL OISABLE_INT + DISABLE ALL INTERRUPT 

+ DURING VRAM AND KJ-ROM SNITHING 
MoV DX, SXOBBASE 3 ADDRESS OF ADDRESS CONTROLLER 
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ry BX, S8VRAMIMLOOH # VRAMI_OFF 
1395 BB Het m CALL OUT_GA ; DISABLE VIDEO RAM 1 
8 €8 
aa Mov BX, S8VRAMZM100H + VRAM2_0 
ip9p BB ed ¥ CALL ‘OUT_GA } DISABLE. VIDEO RAM 2 
1B9E 8 
v BX, S8KJROMM100H + KJRO! 
1BA1 BB 0780 CALL OUT_GA 3 EWABLE KaNot ROM 
aren SR SEAS TRUE 5 KJ-ROM FLAG ON 
1BA7T C6 06 0353 R FF MoV KJROM_STAT, TRUE 3 KJ-R 
CALL ENABLE_INT 3 ENABLE INTERRUPT 
pac E8 1BEC R L Ee 
PoP Ds 3 
IBAF Ne 7 PoP Ox $ 
eH jeu POP Bx + RESTORE REGISTERS 
1882 58 FOE AR . 
ips cS RET 
— ENABLE_KJROM —- ENDP 
petiheres moccamebebetecscteespesuneemncc sss 
; EWABLE_VRAM 
3 
3 THIS ROUTINE ENABLES VIDEO RAM 
3 
3 IMPUT NONE 
; OUTPUT NONE 
3 CALL DDS 
3 DISABLE_INT 
3 ENABLE_INT 
3 VOLATILE NONE 
8 cicadas biol eeccasioaseade Seca 
inns EHABLE_VRAM PROC HEAR 
PUSH = AX ; 
et ae PUSH BX 3 SAVE REGISTERS 
BBs 52 PUSH DX ; 
1387 1E PUSH DS ; 
0000 E CALL DDS i POINT DATA AREA 
- ASSUME DS: DAT 
1BBB ES 1BE4 R CALL = DISABLE_INT 3 DISABLE ALL INTERRUPT 
3 DURING VRAM AND KJ-ROM SWITHING 
1BBE BA O1FF Mov DX, SXOSBASE 3} ADDRESS OF ADDRESS CONTROLLER 
1BC) BB 0730 MOV BX, S8KJROMM100H * KJROM_OFF 
1BCé EB 1E22 R CALL OUT_GA } DISABLE KANJI ROM 
10c7 BB 0987 MOV BX,S8VRAMIMLOOH + VRAM1_ON 
ABCA 80 SE O34C R 08 cmp CPU_PAGE,VRAM2_PAGE ; VIDEO RAM 1 ? 
ABCF 72 03 JB EVRAMI + YES 
13D1 BB OABT MoV BX, S8VRAMZ2M100H + VRAM2_ON 
1BDS EVRAML: 
1BD4 EB 1E22 8 CALL OUT_GA > ENABLE VIDEO RAM 
1BD7 CE 06 0353 R 08 : MOV KJROM_STAT, FALSE; KJ-ROM FLAG OFF 
ABDC £8 IBEC R CALL ENABLE_INT + ENABLE INTERRUPT 
1BDF 1F P 
1BEO SA rae = ; 
1BEL 58 POP BX 3 RESTORE REGISTERS 
ABEZ 58 POP AX 3 
1BE3. C3 RET 
1BES ENABLE_VRAM ENDP 
fees eater eesti vadossccseetsessel 
3 
; DISABLE_INT 
i THIS ROUTINE DISALES ALL INTERRUPT 
> 
3 INPUT HONE 
3 OUTPUT NONE 
3 CALL HONE 
: VOLATILE NONE 
Prmeewnwenn wwe ne ene wn nn eee eee nce 
IDES 
DISABLE_INT PROC = NEAR 
1BE4 56 
PUSH = AX 
ieee cur 
6 BO 10 + DISABLE INT 
Hi ERRUPTS 
1BES £6 AO ar MME EARLE MME + DISABLE HMI AND HOLD REQUEST 
1BEA 58 : 
1BED C3 POP ax 
is RET 
EC 
DISABLE_INT ENDP 
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1coo 
1c00 


1cos 
1c0s 


1C0? 
1608 


eed 
oO 
o 
eo 


-—— | dh ola ew 

aAA AaAnA ann Aa 
Nee eee ewe Oo 
om> Oe £0 OC 


F6 
75 


BO 
&6 
FB 
1F 


cs 


OA 
75 


50 
iz.) 


0000 E 
06 OS55 R FF 
os 


80 
ao 


1DB0 R 


co 
OF 


09460 R 


8A C7? 


iz} 
58 
eB 
3c 
73 
BA 
DO 


AC7D R 


0961 R® 
63 


o2 
18 
26 0347 R 
c? 
Eo 


Jeroen ene - ~~~, 


ENABLES AL 


NONE 
NONE 


ASSUME 


L INTERRUPT 


3 POINT DATA AREA 
DS:DATA 


BYTE PTR IEP_CTRL, TRUE ; an eRee F erine PROHIBIT ? 
ENBLI1 NABLE 


AL, ENABLE_NMI 


3 EWABLE_INT 

$ 

3 THIS ROUTINE 

5 

‘ INPUT 

; OUTPUT 

3 CALL 

3 VOLATILE 

; 

pocran------~-- ~~. -- 

ENABLE_INT PROC 
PUSH Ax 
PUSH DS 
CALL DDS 
TEST 
JHZ 
MOV 
our NMI_PORT,AL 
STI 

ENBLI1: 
PoP ps 
POP Ax 
RET 

EWABLE_INT ENDP 

pores onwwew were enn ne. eewweoon — 
SUPERIMPOSE 


a ee ee ee er ee ry 


SIPi: 


YES, DO NOT E 
3 ENABLE HMI 
; 
+ ENABLE INTERRUPTS 


INT 16H, AH = 20 (14H) 


THIS ROUTINE CONTROLS SUPERIMPOSE FUNCTION 
INPUT AL = 0 Has MOD 


OUTPUT 
CALL 


VOLATILE 


AL = 


AL = 2 


AL = 


o 
=x 
CC 


Sececeeespone 
SOV HUNS KS BOHNHUNS 


BH =1A 
1 SET suP 
LH t) 


BH 


& OF VIDEO GENERATER 1 
320X200 4 COLOR (ANK) 
RESERVED 
RESERVED 
NOT VALID 
160X200 16 COLOR CANK) 
320X200 16 COLOR CANK) 
640X200 4 COLOR (ANK) 
320X200 4 COLOR (KJ) 
RESERVED 
RESERVED 
NOT VALID 
160X200 16 COLOR (KJ) 
320X200 16 COLOR (KJ) 
640X200 4 COLOR (KJ) 

ERIMPOSE 
OFF 


1 ON 
Ser BS ge 
AM- 
SET TRANSPARENT PALETTE REGISTER 


BH = PALETTE RIGISTER NUMBER 
AL = 4 ae SuP 


0: 
i: 
2: 
3: 


BH 
BH 


NONE 


ENABL 
ERASE 


ow 
z= 
onan 


yee MODE 
IORITY 

XOR 

AND 

OR 


VG1 


SuP_SET_MODE 


len 


_SCURSOR 


ENABCE_vG2 
AX, BX,CX,DX,SI,DI,ES 


ASSUME CS:CODE, DS:DATA, ES: VIDEO_RAM 
SUPERIMPOSE 


CALL 


OR 
INZ 


PUSH 
CALL 
MOV 

CALL 


PoP 
CALL 
JMP 


CMP 
JAE 


MOV 
MOV 
SHL 


Proc 
ENABL 


ALLAL 
STPL 


NEAR 
E_vG1 


aX 
ERASE_SCURSOR 


AL. BH 
SUP_SET_MODE 
Ax 
APPEAR_SCURSOR 
SHORT S1P7 
AL.2 
SIP2 
AH, SUPIPCR 

»BH 
AL} 
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SELECT VIDEO GENERATER 1 
SUPERINEOAE MODE SET ? 
N 


~ 


SAVE CURRENT CRT MODE 

ERASE meals CURSOR 

SET MODE TO A 

SET MODE OF VIDEO GENERATER 1 


+ RESTORE CRT MODE 
APPEAR SOFTWARE CURSOR 
END 


~ or 


SUPERIMPOSE ON/OFF FUCTION ? 
+ kO 


s---_AL=1 SUPERIMPOSE OFF/ON 
3 GET LAST VALUE OF SUPERIM. CONT. REG. 
s GET VALU 


VE 
} SHIFT TO TRANSPARENT BIT POSITION 
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AND AH,NOT TRANSON ; MASK TRANSPARENT BIT OFF 
ic2z. 80 E& FD AND AL, TRANSON 3 GET TRANSPARENT BIT 
1€25 24 02 OR AL, AH 3 SET TRANSPARENT BIT 
1027 is ae R poe Buri ESR e AG ; ONE ay ti VALUE 
1629 > 3 
1c2c 8A D8 mov BH, PCSUPER 3 SET REG. ADDRESS OF SUPERIM. CONT. REG. 
1C2E HL of JMP SHORT SIPS 
1030 
are cMP AL.3 
1e3e 3¢ 03 JAE SIPS 
1c34 73 16 3-~~_AL=2_SET FORGOUND PAGE 
rent Mov AH, SUPIPCR 3 GEY LAST VALUE OF SUPERIM. CONT. REG. 
1C36 8A 26 03 MOV AL, BH 3 GET VALUE 
1c3a 8A C7 AND AH, NOT FOREVRAM ; MASK FORGROUND BIT OFF 
ic3c 80 E4 FE AND AL, FOREVRAM 3 GET FORGROUND BIT 
IC3F 24 01 OR AL, AH 3 SET FORGROUND BIT 
1cé1 0A CS ak mov SUPIPCR,AL ; UPDATE BY NEW VALUE 
1C4$_ AZ O34 MoV BL,AL 3 SET IT TO 
1046 8A D8 mov BH, PCSUPER 3 SET REG. ADDRESS OF SUPERIM. CONT. REG. 
oe 7 Me JMP SHORT SIP5 
SIPS: 
iene er JA SIP4 + SET SUPERIMPOSE MODE FUNCTION ?, YES 
3-7~_AL=3 SET TRANSPARENT PALETTE REGISTER 
a toe MoV BL, BH 3 SET TRANSPARENT PALETTE NUMBER TO BL 
1C6E . 05 MoV BH, PCTRPALT 3 SET REG. ADDRESS OF TRANSPARENT PALETTE 
1c ae iF JMP SHORT SIP6 
SIP4: 
less 3¢ 04 CMP AL,4 + SET SUPERIMPOSE MODE ? 
ieee 75 21 INE SIP? 3 NO 
ics s--- AL=4 SET SUPERIMPOSE MODE 
cs8 DoE? SAL BH,1 3 ADJUST POSITION 
ieaa Do €7 SAL BH,2 3 ADJUST POSITION 
1cSc AO 0347 RK Mov AL, SUPIPCR 3 GET LAST VALUE OF SUPERIM. CONT. REG. 
ACSF 24 03 AND AL, 000000113 3 MASK TRANSPARENT BIT OFF 
1C6l OA FB OR BH, AL 3 SET SUPERIMPOSE MODE BIT 
1c63 88 3E OS47 RK MOV SUPIPCR, BH 3 UPDATE BY NEW VALUE 
1067 8A OF MOV BL, BH + SET IT TO BL 
1c69 BT 06 a MoV BH, PCSUPER 3 SET REG. ADDRESS OF SUPERIM. CONT. REG. 
2 
tee re c3 02 TEST BL. TRANSON 3 SET SUPERIMPOSE ON ? 
1C6E 75 03 JNE SIP6 3 YES 
1670 80 ES 01 roe AND BL, FOREVRAM 3 MASK MODE CONTROL BITS FOR SUPERIMPOSE OFF 
t 
1e73 WA C308 MOV DX, VGA_CTL 3 GET 170 ADDRESS OF VIDEO GATE ARRAY 
1€76 £8 1E22 ® CALL OUT_GA 3 OUT BX TO GATE ARRAY 
79 SIP7: 
179 E8 1DD6 ® CALL ENABLE_VG2 3 SELECT VIDEO GENERATER 2 
ic7c C3 RET + ALL DONE 
1¢70 SUPERIMPOSE ENDP 
gretwasoueos sci rer bl oe et So A a ts 
3 SUP_SET_MODE 
i 
3 THIS ROUTINE INITIALIZES THE ATTACHMENT TO 
; THE SELECTED MODE FOR SUPERIMPOSE 
3 THE SCREEN IS BLANKED. 
; INPUT AL = MODE SELECTED (RANGE 4-A) 
3 
; OUTPUT HONE 
; 
3 CALL DISABLE_INT 
; SET_PALETTE4 
3 SET_PALETTEI6 
3 VGA_RESET 
3 EXABLE_VG1 
; ENABLE_VG2 
; SET_SUPREG 
i ENABLE_INT 
i VOLATILE AX, BX,CX,DX,SI,DI 
’ 
ASSUME cs: CODE, DS:DATA, ES:VIDEO_| RAM 
1¢7D 


SUP_SET_MODE Proc NEAR 
1C7D FF $6 0355 R 


BIT FLAG 
181 gee PUSH WORD PTR IEP_CTRL 5} SAVE INTERRUPT ENABLE PROHI 
ue eee R FF OR BYTE PTR ier TCTRL, TRUE PROHIBIT INTERRUPT ENABLE 
7 CALL DISABLE_IN 3 DISABLE HAROWARE INTERRUPT 
89 50 
1CBA 26 IF PUSH AX 5 SAVE INPUT MODE ON STACK 
1C8C BA FB nay AL,7FH + MASK REGEN HON CLEAR FLAG 
1C8E 26 EF BH,AL + SET INPUT MODE 10 BH 
aan AKD AL, OEFH + MASK KJ BIT OFF 
1692 72 26 cmp ALL4 be-- CH v MODES 
AEs 3¢ 07 ae SSETM2 3 MODE oc TS INVALIO 
ine 4 20 AL,? 3 CHECK FOR VALID MODES 
3C 0A SSETM2 + MODE 7 IS INVALID 
1C9A 77-16 cup AL, OAH s UNDER OBH ? 
dA SSETM2 3 NO, INVALID 
1C9C BA 26 O33 8 ; OMBINATION 
is ante ae Mov “=~ CHECK VALID SUPERIMPOSE COMB? 
i ake inp AN a gamez + GET CRT MODE OF VIDEO PROCESSOR-2 


J 
CHP oRL 3 MASK KJ BIT OFF 
AH.2 + CURRENT MODE IS HIGH BAND ? 
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euengnwen~ Yur 


Cedar aed aed acd oll acl andl and 
ooo°cv0000 ooo 
RON KE eee eee 


80 
75 


1D8D R 


09 
Fa 


62 
08 
Fo 


E7 
F8 


1AG4 R 
co 


O33D R 
F? 


06 OSFC R FF 
2€ 


06 
co 


10 
O2BD R 

04 
F9 65 
oc 


F9 08 


F9 09 
oc 


oD 

FD 06 
08 
OS35 Rk 


EB OS 


ea 
BO 
€E 
2€: 
24 
EE 
Bo 
2E: 
24 
ee 


m 
m 


0545 R 


c? 

40 

09 

02 

co 
OSDF 
OOBA R 
SF 

cs 


OO8A R 


0551 R 
01 

BA 47 O1 
OF 


03 
8A 47 03 
OF 


SSETM1: 


SSETM2: 


SSETM3: 


SSETM4: 


SSETMS: 


SSETMG: 


SSETM7: 


mn 
SSETMS: 


JB 
CMP 


cMP 
JAE 


CMP 
Jap 


PoP 
JmP 


PUSH 


JINZ 


CMP 
JNE 


CALL 
JMP 


CALL 


SSETM1 3 NO 

AH,4 3 CURRENT MODE IS HIGH BAND ? 
SSETMS 5 YES 

AH,9 ; CURRENT MODE IS HIGH BAND ? 
SSETMS , 


Hee TURRET ee 1S LOW BAND 
AL,9 ; CHECK LOW B 
SSETM2 + MODE cOMFRICT. 
SHORT SSETM4 3 OK 


AX 3 RESTORE AX 
SSETM11 3 BREAK 
3~ CURRENT tars IS HIGH BAND 
AL,9 3 CHECK HIGH BAND 
SSETM2 3 MODE COMFRICT 
Ax 3 SAVE AX 
AL,PORT_C 3 GET DATA FROM PORT-C 
AL, EXP64K 3 64K_EXPANTION INSTALLED ? 
AX + RESTORE AX 
SSETM2 3 MO 
Ax 


¢ SAVE CURRENT CRT MODE AND SETTING MODECMASKED) 
AH, BH 3 SAVE MODE IN AH 
3 


DI,AX SAVE MODE IN DI 
WAIT_VERTRET 3 WAIT UNTIL ar anaes RETRACE 


beret TURN OFF VIDE 
ALLAL 3 SET VGA REG 6 
DX, AL + SELECT IT 


AL,CRT_MODE_SET2; GET LAST MODE SET 
AL,NOT VIDEOENS ; TURN OFF VIDEO 
DX,AL SET IN GATE ARRAY 


poreme- SET DEFAULT PALETTES 
3 


~ 


cx GET CURRENT CRT MODE AND SETTING MODE 
SUPRESS_PAL, TRUE; SET PALETTE IS SUPRESSED 2? 
SSETM7 + YES, SKIP 
AL, PCSUPER ; 
DX,AL 3 CLEAR SUPERIMPOSE SonTROL REGISTER 
ALLAL 3 FOR SET PALETTE 
DX.AL i 
AH, PCPALET 3 SET PALETTE REG 0 
BX, DEESED PLTC41; POINT TO TABLE ENTRY 
cL, + CHECK FOR 4 COLOR MODE 
ssétns + YES, JUMP 
L,5 3 ae ree 4 COLOR MODE 

SSETMS + YES J 
CLL8 3 CHECK FOR 16 COLOR MODE 

SSETM6 3 YES, JUMP 

L.9 + CHECK FOR 16 COLOR moDE 
SSETM6 + YES, JUMP 


SHORT SSETM7 3 SKIP SET PALETTES 
CH, 06H 2 COLOR MODE ? 
SSETM7 NO, SKIP SET PALETTES 


SET_PALETTE4 3 SET PALETTE 4 COLOR 
SHORT SSETM? 


SET_PALETTE16 =. SET PALETTE 16 COLOR 
b---~~ SET UP MNO & M1 IN PAGREG 


AX, DI } GEY CURRENT MODE 
BL,40H 5 SEY UP FOR 16K REGEN 
AL,O9H 3 MODE USE 16K 

SSETMS s YES, JUMP 

BL,OCON 3 SET UP FOR 32K REGEN 
DX, PAGREG 3 SET PORT ADDRESS OF PAGREG 
AL, PAGDAT 3 GET LAST DATA OUTPUT 
AL, SEH § CLEAR MO & M1 BITS 
AL, BL 3 SET NEW BITS 

OX, AL 3 STUFF BACK IN PORT 
PAGDAT,AL 3 SAVE COPY IN RAM 


i--- ENABLE VIDEO AND CORRECT PORT SETTING 
VGA_RESET + RES 


AL, PCPALETM s ae PALETTE MASK REGISTER 
IX, A 
AL. CS¢ CAX*PCPALETH} 


AL,OFK + MASK EXTRA DATA OFF 
OX, AL $s SET IT 

Al, aaa 3 ee MODE REGISTER 2 
Dx, 

al, C5: CBXPCHODES) 

AL,OFH s MASK EXTRA DATA OFF 
OX, AL + SET IT 
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1D95 


1095 
1D99 
1psc 


1D9E 
1D9F 


1DA3 
IDAs 
IDA 
1DA8 


1DA9 
1DAC 
1DAE 
1DAF 


1080 


BA 26 os R 
€s 0929 R 


£8 10D6 R 


Ec 
BO 6) 


EE 
Ao 0352 ® 
oc 16 
EE 
3 C6 
ga 26 OSSD R 
4 61 
24 FB 
Eé 61 
8B F7 
8B C6 
33 FF 
SA 
go E2 80 
75 15 
BY 2000 
c 09 


3 
BS B8ce 
72 65 


Di EL 
£8 1095 & 


8F 06 0355 RK 
EB IBEC R 


cs 


8A 26 OOBA R 
3800 
do EC 


8B 1E 0015 R 


Bl 06 
DS ES 


80 EF 20 
OA €7 


EMABLE VIDEO GATE ARRAY 2 
INSURE ADDRESS STATE 


SELECT PALETTE MASK REG 
SET IT 


SET V-RAM1 ENABLE BIT 
SET IT 

3 PUT MODE SET & PALETTE IN RAM 
<sss5 SETUP PORT B 

3 GET CURRENT VALUE OF 8255 PORT B 


AL, nat "Fort ~BLALPHA 3; SET UP GRAPHICS MODE 


3 ENABLE INTERRUPT I 


3 STUFF BACK IN 8255 


3 SET MODE TO SI 
3 GET MODE BACK 


ee FILL REGEN AREA WITH BLANK 
SET UP POINTER FOR REGEN 


GET ORIGINAL INPUT BACK 
NO CLEAR OF REGEN 
SKIP CLEARING REGEN 


NUMBER OF WORDS TO CLEAR 


REQUIRE 32K BYTE REGEN ? 


SET SEGMENT OF 16K REGEN BUFFER 
NO, JUMP 


SET 16K WORDS TO CLEAR 
GET SEGMENT OF 32K REGEN 


3 SET REGEN SEGMENT 
3 FILL FOR GRAPHICS MODE 
3 FILL THE REGEN BUFFER WITH BLANKS 


s225== ENABLE VIDEO 
3 ENABLE VIDEO GATE ARRAY 1 


SET PORT ADDRESS OF VGA 
INSURE ADDRESS MODE 


SELECT VGA REG 0 
GET MODE SET VALUE 
SET MODE 


MOV AH, SUPIPCR 3 
CALL SET_SUPREG 3 
CALL ENABLE_VG2 5 
IN AL, DX 3 
nov AL, IXPALETM 3 
ouT DX, AL 3 
mov AL,PALETTE_MASK 3 
OR AL, VRAMLENB 3 
ouT X AL 3 
MOV AX, SI 
MoV GRY AODE_SETZAN 
IN AL,P 
AND 
ouT PORT_! 
MOV SI,DI 
MOV AX, SI 
XOR DI,DI 
POP DX 3 
AND DL,80H 3 
INZ SSETM10 3 
Mov CX,8192 H 
cMP AL,OSH ; 
MOV AX,REGEN_START ; 
Jc SSETM9 3 
SHL CX,1 3 
CALL GET_DIRSEG 3 
SSETM9: 
MOV ES,AX 
XOR AX, AX 
REP STOSW 
SSETM1O: 
ENABLE_VG1 
MOV DX, VGA_CTL ; 
IN > 3 
XOR AL,AL 3 
our DX,AL 3 
MOV AL, CRT =MODE_SET2; 
out DX, 
SSETM11: 
POP WORD PTR IEP_CTRL; 
CALL ENABLE_INT 
RET 
SUP_SET_MODE ENDP 
Jeceeceweennnneanensnce= Sonmusscoe eaden, — 
GET_DIRSEG 


ee ee 


"THIS ei DETERMINE DIRECT ADDRESS 


GMENT OF V-RAM1 (MAIN RAM) 


DS = DATA SEGMENT 


AX = SEGMENT VALUE 


GET COPY OF PAGE REGS 
ISOLATE CPU 


SAVE BX 
GET MEMORY SIZE 


ADJUST FOR SEGMENT VALUE 


td 


RESTORE BX 


INPUT 

OUTPUT 

CALL NONE 

VOLATILE NONE 
Jonucesenncace Se Seeeocccswcoweseeeewoesc a 
GET_DIRSEG Proc HEAR 

MOV AH,PAGDAT 

AND AX,CPUREG ™ 100H 

SHR AH,1 

PUSH BX 

Mov BX, TRUE_MEM 

PUSH cx 

MOV CL.6 

SAL BX,CL 

POP cx 

aus ieee 

PoP 5 

RET 
GET_DIRSEG ENDP 
Bewrenewn nee e ee. pwaweeacecn) etre 

ENABLE_VG1 


THIS ROUTINE ENABLES VIDEO GENERATER 1 
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SHIFT VIDEO RAM ADDRESS TO 10 


RESTOER SUPERIMPOSE CONTROL REGISTER 


GET LAST VALUE OF PALETTE MASK REGISTER 


TORE INTERRUPT ENABLE PROHIBIT FLAG 
ENABLE TH F IT IS NOT PROHIBITED 


REG 
} SHIFT TO MAKE INTO SEGMENT VALUE 


p 128K 


1DB0 


1DBO0 
1D81 
1DB2 
1DBS 


1DB4¢ 


1BE4 R 
OFF 
8D7B 
1E22 8 


8CFB 
1E22 R 


06 0354 R OL 
1BEC R 


1BE4 R 
OLFF 
8C7B 
1E22 R 


SDFB 
1E22 R 


06 0354 R 00 
1BEC R 


3 INPUT NONE 
3 OUTPUT NONE 
; CALL DISABLE_INT 
; ENABLE_INT 
3 OUT_GA 
3 VOLATILE 
jsabeusseeoreei ice ule eeecccescenn 
ENABLE_VG1 PROC = HEAR 
PUSH = aX 3 
PUSH = BX 3 SAVE REGISTERS 
PUSH = DX 3 
PUSH = »S 3 
CALL DDS 3 POINT DATA AREA 
ASSUME DS:DATA 
CALL DISABLE_INT 3 DISABLE ALL INTERRUPT 
MoV DX, SXO8BASE $ ADDRESS OF ADDRESS CONTROLLER 
MOV BX, S8SXO2BN100H + SX02B_OFF 
CALL UT_GA 3 DISABLE VIDEO GENERATER 2 
MOV BX, S8SXOZAN100H # SX02A_ON 
CALL OUT_GA + EMABLE VIDEO GENERATER 1 
MOV VG_STAT,VG1_ON ; SET VIDEO GENETAETER 1 ON 
CALL ENABLE_INT 3 ENABLE INTERRUPT 
PoP Ds 3 
POP Dx 3 
POP Bx 3 RESTORE REGISTERS 
PoP AX 5 
RET 
ENABLE_VG1 ENDP 
Jee re anes nme wecawcceuscaescesensececuscess 
3 
3 ENABLE_VG2 
; THIS ROUTINE ENABLES VIDEO GENERATER 2 
3 
3 INPUT NONE 
3 ouTeuT NONE 
3 CALL DISABLE_INT 
3 ENABLE_INT 
3 our 
3 VOLATILE NONE 
3 
fetessteees eae cece es eecusnvenecewoed ce 
ENABLE_VG2 PROC = NEAR 
PUSH Ax F 
PUSH Bx 3 SAVE REGISTERS 
PUSH Dx 3 
PUSH DS 3 
CALL ops 3 POINT DATA AREA 
ASSUME DS:DATA 
CALL DISABLE_INT 3 DISABLE ALL INTERRUPT 
MOV DX, SXO8BASE 3 ADDRESS OF ADDRESS CONTROLLER 
MOV BX. SBSXOZANLOOH # SXO2A_OFF 
CALL OUT_GA 3 DISABLE VIDEO GENERATER 1 
MOV BX, S8SXO2BH100H # SX02B_ON 
CALL OUT_GA s ENABLE VIDEO GENERATER 2 
MOV VG_STAT,VG2_ON ; SET VIDEO GENERATER 1 OFF 
CALL ENABLE_INT 3 ENABLE INTERRUPT 
PoP Ds 3 
PoP px 3 
POP Bx 3 RESTOER REGISTERS 
PoP ax i 
RET 
ENABLE_VG2 ENDP 
Jr mts t ew ewe www ewww nee ewww we ww wwe fi et a 
t 
3 ENABLE_VG12 
, 
; THIS ROUTINE ENABLES VIDEO GENERATER 1 AND 2 
4 
3 INPUT NONE 
’ OUTPUT NONE 
3 CALL DISABLE_INT 
5 ENABLE_INT 
3 OUT_GA 
F VOLATILE NONE 
5 
paecite doe feo ct ececce cause poses Seewecnes 
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1E22 
1E22 
1E25 
1€25 
1E26 
1€28 
1E29 


VE2A 


ec 
BA 


BA 
EE 


cs 


8b 
ga 
74 


51 
8B 


80 
73 


Es 


06 0354 R 02 
1BEC R 


c7 


16 OS4AR 
1E 0368 R 
DB 
15 


SE 0350 R 


FC 04 
os 


LEMAR 


EB 03 


13) 


59 
32 


0618 R 


DB 
OE OS50 R 


ENABLE_VG12 PROC. — NEAR 
PUSH AX 3 
PUSH BX } SAVE REGISTERS 
PUSH DX t 
PUSH Ds 3 
CALL ops 3 ofS BIOS DATA AREA 
ASSUME DS: DAT 
CALL DISABLE_INT DISABLE ALL INTERRUPT 
MOV DX, SXO8BASE 3 ADDRESS OF ADDRESS CONTROLLER 
MOV —s-BXs SBSXOZAMLOOH + SXOZA_ON 
CALL OUT_GA s ENABLE VIDEO GENERATER 1 
MOV BX,S8SXO2BR100H + SX02B_0N 
CALL OUT_GA 3 ENABLE VIDEO GENERATER 2 
mov VG_STAT,VG12_0N ; SET FLAG 
CALL ENABLE_INT 3 ENABLE INTERRUPT 
PoP DS 3 
PoP DX 3 
POP BX 3 RESTORE REGISTERS 
PoP AX 3 
RET 
ENABLE_VG12 ENDP 
lati iS aoe eae piiseasatuast cece 
3 
3 oUT_GA 
3 
3 THIS ROUTINE OUTPUT ADDRESS/DATA TO GATE ARRAY 
3 
3 INPUT BH = INTERNAL ADDRESS 
3 BL = DATA TO WRITE 
3 DX = ADDRESS OF GATE ARRAY 
3 
3 OUTPUT NONE 
3 CALL NONE 
3 VOLATILE aL 
3 
Ese aes Stee ee eee SAE Soest. 


OUT_GA PROC NEAR 


IN AL,DX 3 
MOV AL,BH 
OUT DX, AL 3 
MoV AL, BL 
OUT DX,AL 5 
RET 
OUT_GA ENDP 
SET_LALT_CTYPE 
INPUT AH = 
cx = 


OUTPUT WONE 


VOLATILE BX, DX, DI 


ASSUME C$:CODE, DS:DATA 
SET_ALT_CTYPE proc HEAR 
mov 


~ 
wee We we ee we Be Bs Be we we Be we Be Be OF OF OF 


Mov BL,AC_PRESEHT ; 
OR BL, BL ; 
J2 SACTS ; 
PUSH cx 


Mov CX, ACURSOR_MODE ; 
CHP AH, GRAPHICS ; 
SACTL 


WRITE_ALT_curs 
JMP SHORT SicT2 ant 


SACTIi: 
sacte CALL WRITE_GcURSOR s 
PoP cx 
3 
sites, XOR BL.BL 3 
Mov 


ACURSOR_MODE, cx ‘ 
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SYNC TO ADDRESS STATE 


WRITE INTERNAL ADDRESS 
WRITE DATA 


INT 10H, AH = 81H 


THIS ROUTINE SETS THE ALTERNATE CURSOR VALUE 


CURRENT CRT MODE ( MASKED ) 
CURSOR VALUE CH-START LINE, CL-STOP LINE 


CALL WRITE_ALT_CURSOR 
WRITE_GCURSOR 


DX» ALT_CURSOR_POSNs GET CURRENT CURSOR POSITION 


GET ALTERNATE CURSOR PRESENT FLAG 
ARTERRATE CURSOR PRESENT ? 


SAVE NEW CURSOR MODE 
GET OLD CURSOR MODE 


GRAPHICS MODE ? 


3 YES 


ERASE CURRENT ALTERNATE CURSOR 


R 
ERASE CURRENT ALTERNATE GRAPHICS CURSO 


RESTORE WHEW CURSOR MODE 
CLEAR ALTERNATE CURSOR FLAG 


SAVE NEW GRAPHICS CURSOR MODE 


1E9A 


1E9A 
1€9D 


1E9F 
1EA2 


FC 04 


73 05 


1E9A R 


EB 04 


Es 
4B 


88 
cs 


E8 


SA 
32 


80 
73 


0618 R 


1E 0348 R 


OE O350 R 
1E 0348 R® 
15 

16 OS4A R 
c 04 

05 

1E9A R 

os 


0618 R 


oB 
16 OS4A R 


FC 04 
05 


1E9A R 


EB 04 


iz) 
4B 


88 
cs 


0618 R 


1E 0348 R 


CMP AH, GRAPHICS 3 GRAPHICS MODE 2? 
JAE SACTS 3 YES 
CALL WRITE_ALT_CURSOR; WRITE WHEW ALTERNATE CURSOR 
JMP SHORT SACTS 3 
SACT4: 
WRITE_GCURSOR 3 WRITE NEW GRAPHICS CURSOR 
BX 3 SET ALTERNATE CURSOR FLAG 
SACTS: 
AC_PRESENT,BL 5 SET ALTENATE CURSOR FLAG 
RET 
SET_ALT_ CTYPE ENDP 
SET_ALT_CPOS INT 10H, AH = 82H 


THIS ROUTINE SETS THE ALTERNATE CURSOR POSITION TO THE 
NEW X-Y VALUES PASSED 


; 
Hf 
Hf 
’ 
5 
3 
3 INPUT AH = CRT MODE (MASKED) 
i DX = ROW,COLUMN OF NEW CURSOR 
3 
; OUTPUT HONE 
F 
3 CALL WRITE_ALT_CURSOR 
3 WRITE_GCURSOR 
; VOLATILE BX, CX, DI 
5 
A TASSUME CS:CODE, DS:DATA 
SET_ALT_CPOS PROC —-NEAR 

HOV CX, ACURSOR_MODE + GET ALTERNATE GRAPHICS CURSOR MODE 

MOV BL»AC_PRESENT ; GET ALTERNATE CURSOR PRESENT FLAG 

OR BL, BL 3 ALTERNATE CURSOR PRESENT ? 

Pd SACPOSS 3 NO, SKIP ERASE OLD CURSOR 

PUSH DX 3 SAVE NEW CURSOR POSITION 

MOV DX, ALT_CURSOR_POSN ; GET OLD ALTERNATE CURSOR POSITION 

CMP AH, GRAPHICS 3 GRAPHICS MODE ? 

JAE SACPOS1 3 YES 

CALL —- WRITE_ALT_CURSORs WRITE ALTERNATE CURSOR 

JMP SHORT SACPOS2 
SACPOS1: 
sacpos2:chtt —- MRETEOCURSOR + WRITE ALTERNATE CURSOR IN GRAPHICS 

? 

POP Dx 3 RESTORE NEW CURSOR POSITION 

XOR BL,BL 3 CLEAR ALTERNATE CURSOR FLAG 
SACPOS3: 

MoV ALT_CURSOR_POSK,OX 3 SET NEW ALTERKATE CURSOR POSITION 

CMP AH, GRAPHICS 3 GRAPHICS MODE ? 

JAE SACPOS4 + YES 

CALL «—- WRITE_ALT_CURSOR; WRITE ALTERNATE CURSOR 

JMP SHORT SACPOSS 
SACPOS4: 

CALL = WRITE_GCURSOR s_ WRITE ALTERNATE CURSOR IN GRAPHICS 

DEC 8x 3 SET ALTERNATE CURSOR FLAG FOR GRAPHICS 
SACPOSS: 

mov ACLPRESENT,BL ©} ALTERNATE CURSOR PRESENT 


SET_ALT_CPOS 


ENDP 


Jrmmmm nme mnw ewww www wwe new enn wn cee weeen 


WRITE_ALT_CURSOR 
THIS ROUTINE WRITES THE ALTERNATE CURSOR 


4 
‘ 
4 
3 
4 INPUT BL = ATTRIBUTE TO BE USED AT ALTERNATE CURSOR POSITION 
3 KANJT BIT IS MASKED 
3 CIF BL=0, USE ATTRIBUTE AT REGEN BUFFER) 
3 CX = CURSOR MODE 
; OX = ROW,COLUMN POSITION TO WRITE 
4 QUTPUT BL = NEW ATTRIBUTE AT ALTERNATE CURSOR POSITION 
4 KANJI BIT IS MASKED 
4 (IF WO CURSOR HAS WRITTEN, BL=0) 
‘ 
‘ CALL FIND_POSN 
4 
’ VOLATILE 8H,DI 
) 
Peewee wn wene eee eee eee aweneenece =o 
WRITE_ALT_CURSOR PROC NEAR 
TEST CH, CURSOR_DISABLE s CURSOR DISABLED 2 
JNZ WALTC2 i YES 
CMP CX. BLOCK_CURSOR + BLOCK CURSOR ? 
JNE WALTC2 + MO 
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1ED8 


1ED8 
1ED9 
1€0D 


1EEL 
1EES 
1EE6 


1EES 
1EEA 


1EEB 


50 
31 


BB C2 

53 

32 ED 

8A OE weer R 
€8 ODEC R 

8B PBS 

5B 


26: 8B OS 
OA DB 
74 :«05 


80 £4 88 
OA ES 


80 E7 77 
80 E4 388 


35 
8B O16 OS4A R 
8B OE 0350 8 


8B EC 
89 56 OC 
89 4E OA 


5D 
cs 


s 
PUSH ex 3 SAVE REGISTERS 
nov AX, DX 3 SET ROW/COLUMN POSITION 
PUSH =—-_ BX 3 SAVE ATTRIBUTE 
XOR CH,CH 3 SET ACTIVE PAGE TO CX 
v CL,ACTIVE_PAGE 3 
CALL FIND - 3 DETERMINE LOCATION IN REGEN BUFFER 
nOV DI, BX 3 SET OFFSET TO 
PoP Bx 3 RESTORE ATTRIBUTE 
MOV AX, ES: {DI 3 GET CODEZATTR FROM REGEN 
OR BL,BL 3 ATTRIBUTE SPECIFYED ? 
JZ WALTC1 3 NO 
AND AH, ZEN2_MASK 3 GET KJ BIT 
OR AH, BL 3 SET ATTRIBUTE 
WALTC1: 
go> REVERSE ATTRIBUTE OF FORE/BACKGROUND 
MOV BH,AH + SET ATTRIBUTE TO BH FOR REVERSE 
MOV CLy4 3 SET SHIFT COUNTER 
ROR BH,CL 3 SWAP NIBBLE 
AND BH, HAN_MASK s STRIP OFF KJ-BIT 
AND AM, ZEN2 _MASK 3 STRIP FORE/BACKGROUND COLOR BIT OFF 
OR 3 SET REVERSED COLOR BIT TO A 
STOSW 3 WRITE CODE/ATTR TO REGEN 
MOV BL,BH s SET NEW ATTRIBUTE 
PoP cx ; 
POP AX + RESTORE REGISTERS 
RET 
WALTC2: 
XOR BL BL 3 CLEAR FLAG 
REY 
WRITE_ALT_CURSOR ENDP 
pecponccsacenswedesdapncscetewsuetteseto ts ossecewos 
3 READ_ALT_CURSOR INT 10H, AH = 83H 
$  ‘\eeseesestoecLe 
3 THIS ROUTINE READS THE ALTENATE CURSOR POSITION 
3 
3 INPUT NONE 
3 OUTPUT DX = ROW, COLUMN OF THE ALTERNATE CURSOR POSITION 
; CX = CURRENT ALTERNATE CURSOR MODE 
5 
3 CALL NONE 
$ 
3 VOLATILE Bx 
Hy 
3 


ASSUME CS:CODE, DS:DATA 
READ_ALT_CURSOR PROC NEAR 


PUSH 
mov 
MoV 


mov 
MOV 
nov 


PoP 
RET 


BP 3 SAVE BP 
DX, ALT_CURSOR_P’ 


CX, ACURSOR SRODE $ GET ALTERNATE CURSOR MODE 
BP,SP 3 SET FRAME POINTER 

LBP+F DX}, DX 3 SET RETURN DX 
(BP+F_Cx),¢X 3 SET RETURN CX 


BP 3 RESTORE BP 


pietoen ALT_CURSOR ENDP 


IWPUT 


OUTPUT 


wo we we we We we we Be we Be Oe we we Be Oe we Oe we 


ASSUME 


K_READ_AC_CURRENT 


3 

; Mov 
; Jnp 
3 


READ_, 


THT 10H, AH = 88H 


THIS ROUTINE READS THE ATT 
CURRENT CURSOR POSITION D RETURNS Tata AG ene TALE 


AND RETURNS THEM TO THE CALLER 
CURRENT CRY ge 
DATA SEGMENT E (MASKED) 
REGEN SEGMENT 


CHAR READ 
ATTRIBUTE READ 


READ_AC_CURRENT 


AH 
oS 
Es 


AL 
AH 


CS:CODE, Ds:DATA, ES:VIDEO_RAN 


PROC HEAR 


BHLACTIVE PAGE ; SET DISPLAY PAGE 


AC_CURRENT ; HANDLE BY NATIVE ROUTINE 


ia eS ane seers: KANJI COKV 
~ THT 10H NVERSION 


H. AH = 89H 


; THIS ROUTINE WRITES THE ATTRIBUTE AND CHARACTER AT 
; THE CURRENT CURSOR POSITION 
3 
; IHPUT 
; AH = CURRENT CRT MODE (MASKED) 
; AL = CHAR TO WRIT 
3 BL = ATTRIBUTE OF — TO WRITE 
; DX = ROW/COLUMN FOR WRITE CHARACTER 
i DS = DATA SEGMENT 
; ES = REGEN SEGMENT 
3 
; OUTPUT 
; NONE 
; CALL —- WRITE_AC_CURRENT 
3 
te eee ree END EDENTON Ee 
ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
1EEB K_WRITE_AC_CURRENT PROC HEAR 
LEEB 80 FC 08 CHP AH, GRAPHICS + TEXT MODE ? 
1EEE 72 0A 3B KWACL 3 YES 
1EFO F6 CS 80 TEST BL, XOR_BIT + XOR WRITE BIT ON ? 
1EF3 75 05 JHZ so KWACL + YES 
1EF5 C6 06 0348 R 00 MOV -—sAC_PRESERT, FALSE; CLEAR ALTERNATE CURSOR PRESENT FLAG 
1EFA KWACL: 
1EFA E9 OF32 R JP WRITE_AC_CURRENT; HANDLE BY NATIVE ROUTINE 
LEFD K_WRITE_AC_CURRENT ENDP 
Jail latin pani ata a ce en 
; WRITE_C_CURRENT FOR KANA-KANJI CONVERSION 
$s eeeaetscbeceaces T 10H, AH = 8AH 
H THIS ROUTINE WRITES THE CHARACTER AT 
; THE CURRENT CURSOR POSITION 
3 
3 INPUT 
i AM = CURRENT CRT MODE: (MASKED) 
3 AL = CHAR WRITE 
3 SU = COLOR OF CHAR (GRAPHICS) 
3 DX = ROW/COLUMN FOR WRITE CHARACTER 
; DS = DATA SEGMENT 
3 ES = REGEN SEGMENT 
3 
; outPur 
s i NONE 
3 
; CALL WRITE_C_CURRENT 
3 
7 ASSUME CS:CODE, DS:DATA, ES:VIDEO_RAM 
1EFD K_WRITE_C_CURRENT PROC NEAR 
1EFD 80 FC 04 CHP «AH, GRAPHICS «=—s'5-: TEXT MODE ? 
1F00 72 0A 3B KWCL + YES 
1FO2 Fé C3 80 TEST BLL XOR_BIT + XOR WRITE BIT ON ? 
1F05 75 05 Jn Keen > YES 
1FO7 C6 06 0348 R 08 mucr, "OY ACLPRESENT, FALSE: CLEAR ALTERNATE CURSOR PRESENT FLAG 
iy 
, LFOC EY OFS6 R JMP = WRIETE_C_CURRENT 3 HANDLE BY NATIVE ROUTINE 
FOF KWRITE_CLCURRENT ——__ENDP 
/esnittons o pete A Ee aT 
3 
; WRITE_TTY FOR KANA-KANJI CONVERSION 
main NT 10H, AK = (8EH) 
; THIS INTERFACE PROVIDES A TELETYPE LIKE INTERFACE TO THE 
. ; VIDEO CARD. THE INPUT CHARACTER I$ WRITTEN TO THE CURRENT ALTERNATE 
CURSOR POSITIONS AND THE CURSOR Ta MOGED 40 TRE NEXT receyaed 
; INPUT 
; AH = CURRENT CRT MODE (MASKED) 
; AL = CHARACTER TO BE WRITTEN 
3 NOTE THAT BACK SPACE, CAR RET, BELL AND LINE FEED ARE 
; HANDLED AS COMMANDS RATHER THAN AS DISPLAYABLE GRAPHICS 
5 BH = DISPLAY PAGE 
; BL = FOREGROUND COLOR FOR CHAR WRITE IF CURRENTLY IN A 
f] GRAPHICS MODE 
5 
3 ouTeut NONE 
5 
1 CALL VIDEO 
iy 
1 VOLATILE BH, CX, OX 
i 
| Rae taeteeeeeterietaeete te ttetteteal occ POSS SSSSSHSSSSOSS8SSS880 
ASSUME CS:CODE, DS:DATA 
: FOF KLWRITELTTY PROC. = “NEAR 
LFOF 50 PUSH 1 SAVE REGISTER 
1F10 8B 16 OS4A R Rov DXeALT. CURSORPOSH + GET CURSOR POSITION 


~ OX NOW HAS THE CURRENT CURSOR POSITION 
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1F14 =F? He 0344 R FFFF 


YF3SF C7 a7 0346 R 8006 


1F67) «8B OE OG4A R 


FSC «OSA DL 
1F4E 72 08 


1F50 C7 06 0344 R 0000 
F 


FSA Al 0344 R 
oc 


\FSF BG 8A 


1F6L =BY 0001 
1F64 «CD 10 


1F67?) C7 ne 0344 R C008 


1FOF BS 82 
1F71 CD 10 


1F74° BG BA 
1F76 BY 0001 
1F79 CD 10 


1F7B FE C2 
1F7D SA 16 OOGAR 
04 


1F83 BS 82 
1F85 CD 10 


KWTY1: 


KWTY2: 


KWTY3: 


KWTY4: 


KWTYS: 


KWTY?7: 


PoP 
RET 


K_WRITE_TTY 


CODE 


ORG 


K_TTY_IST_CHAR, TRUEs 1ST BYTE OF 2 BYTE CODE HAS BEEN SET ? 
xhity2 s YES 


AL, 080H 3 1ST BYTE OF 2 BYTE CODE ? 
eee + NO, GO TO WRITE ONE CHARACTER 
AL,0 ; 

KWTY6 $ WO, GO TO WRITE ONE CHARACTER 
AL,OAOH ; 

KWTY1 3 YES 

AL,ODFH 3 

KWTY6 


3 WO, GO TO WRITE ONE CHARACTER 
WAL oo CHARACTER IS 1ST BYTE OF 2 BYTE CODE 
Cy) 
k ~TTY_1ST. CHAR, AX SAVE 1ST BYTE OF 2 BYTE CODE AND SET FLAG 
SHORT KWTY7 


+ RETURN; WRITE PROCESS IS PENDING 


3~-~ CHARACTER MUST Phe ea Pure OF 2 BYTE CODE 
AL,040H ; i BYTE OF 2 BYTE C 
KWTYS 3 
AL, OFCH 3 
KWTYS 3 NO 
AL,O7FH ; 
KWTY4 > YES 


3-~- IGNORE 1ST BYTE 
K_TTY_1ST CHAR, 0; RESET FLAG OF 1ST BYTE 


SHORT KWTY6 3 GO TO WRITE ONE BYTE 
3~~~ WRITE 2 BYTE CODE 
Cx, CRT_COLS 3 CHECK COLUMN BOUNDARY 
cx 3 ADJUST FOR COMPARE 
DL,CL 3 IS COLUMN AT END OF LINE 2 
KWTYS + MO 


eT IN CASE OF MRITE 2 BYTE CHAR OW THE END 
LINE, IT IS IGNORED 

K_TTY_1ST CHAR, 05 CLEAR FIRST BYTE 

SHORT” KWTY7 3 TERMINATE 


re WRITE 1ST BYTE OF 2 BYTE CODE 
Ax SAVE 2ND BYTE OF 2 BYTE CODE 
BX SAVE COLOR 
AX, K rry_ast_cuak 3 GET 337 BYTE OF 2 BYTE CODE 
BL, AR 3 SET COLO 
AH, 8AH 3 CAH)= SSANe WRITE CHARACTER AT CURRENT CURSOR 
CX,1 3 WRITE ONE CHARACTER 
VIDEO 3 VIDEO 170 
BX 3 RESTORE COLOR 
XK Sl RESET FLAG be 1ST BYTE 
ot INCREMENT ROW 
AH, 82H 3 FUNCTION OF SET CURSOR POSITION 
VIDEO 3 DO IT 
ax 3 RESTORE 2ND BYTE 

s--- WRITE THE CHAR TO THE SCREEN 

AH, 8AH 3 WRITE CHAR ONLY 
cx, 3 ONLY ONE CHAR 
VIDEO 3 WRITE THE CH 


3~-- POSITION THE CURSOR FOR NEXT CHAR 


DL 
neo PTR CRT_COLS ; TEST FOR COLUMN OVERFLOW 
3 SKIP CURSOR MOVE 


AH, 82H 
VIDEO 3 ADVANCE CURSOR POSITION 
ax 3 RESTORE THE CHARACTER 
3 RETURN TO CALLER 
ENDP 
2000H 


3 ADJUST SIZE TO 8K 


SU O0000Ot 


JUUUUUUOGO 

n an 

™ MODULE 4 & 

n " 
JODO 
JOD000000008 
0000 

0000 FB 

0001 1E 

0002 B& ----R 
0005 8€ D& 
0007 Al 0010 R 
OOOA 1F 

000B CF 

oooc 

o00c 

Oooc FB 

0000 1€ 

QOCE B& ----R 
OOll 8€ DB 
OO1S Al COIS R 
0016 LF 

0017 CF 

0018 


Tie INT 2) weeeen nner nn 22 -n nee -- e+ 


EQUIPMENT DETERMINATION 


THIS ROUTINE ATTEMPTS TO DETERMINE WHAT OPTIONAL 
DEVICES ARE ATTACHED TO THE SYSTEM. 


NO REGISTERS 
THE EQUIP_FLAG VARIABLE IS SET DURING THE POWER ON 


PORT 62 (0->3) = LOW ORDER BYTE OF EQUIPMENT 
PORT 3FA = INTERRUPT ID REGISTER OF 8250 


DIAGNOSTICS USING THE FOLLOWING HARDWARE ASSUMPTIONS: 


BITS 7-3 ARE ALWAYS 0 


PORT 378 = OUTPUT PORT OF PRINTER -- 8255 PORT THAT 


OUTPUT 


CAN BE READ AS WELL AS WRITTEN 


CAX) IS SET, BIT SIGNIFICANT, TO INDICATE ATTACHED 170 
BIT 15,14 = NUMBER OF PRINTERS ATTACHED 


; 
3 
; 
; 
3 
3 
; 
3 
; 
; 
; 
; 
’ 
; 
; 
; 
; BIT 
3 
; 
; 
3 
; 
5 
5 
3 
; 
; 
i 
3 
; 
; 
, 


13 = RESERVED 
BIT 12 = GAME 170 ATTACHED 
BIT 12,10,9 = NUMBER OF RS232 CARDS ATTACHED 
BIT 8 0 = DMA CHIP PRESENT ON SYSTEM, 1 = NO DMA ON SYSTEM 
BIT 7,6 = NUMBER OF DISKETTE DRIVES 
OO=1, O1=2, 10=3, 1124 ONLY IF BIT 0 = 1 
BIT 5,4 = APPLICATION MODE FLAG ( 1: EXTENSION , 0: NATIVE ) 
01 - NATIVE MODE 
10 - EXTENSION MODE 
11 ~ (RESERVED) 
BIT 3,2 = PLANAR RAM SIZE 
BIT 1 RESERVED 
BIT 0 = 1 CIPL DISKETTE INSTALLED) 





NO OTHER REGISTERS AFFECTED 
ASSUME CS:CODE,DS:DATA 
FAR 


EQUIPMENT proc 
STI > INTERRUPTS BACK ON 
PUSH dS + SAVE SEGMENT REGISTER 
MoV AX, DATA + ESTABLISH ADDRESSING 
MoV DS, Ax 
MOV AX, EQUIP_FLAG + MOVE EQUIPMENT FLAG 
PoP os + RECOVER SEGMENT 
IRET + RETURN TO CALLER 

EQUIPMENT ENDP 

Been INT 12 sera neeeneweneee eesaeeceses es SSS 

+ MSMORY_SIZE_DETERMINE 

+ INPUT 

; NO REGISTERS 

; nmr MEMORY_SIZE VARIABLE IS SET DURING POWER ON DIAGNOSTICS 

; CAX) = NUMBER OF CONTIGUOUS 1K BLOCKS OF MEMORY 


ASSUME CS:CODE,DS:DATA 


PW A EP DERERMENE PROC FAR 


3 INTERRUPTS BACK ON 


PUSH Ds + SAVE SEGMENT 

MoV AX, DATA + ESTABLISH ADDRESSING 
MOV DS,AXx 

mov AX,MEMORY_SIZE 5 GET VALUE 

PoP os 


IRET 
ON eee ENDP 


s-> IN 
DISKETTE I 


INPUT 
CAH) 
(AH) 


(OL) 


aan 


OH 
CH 
cL 


ween 


CAL) 


(AH) 


OUTPU 


a a a on en ee oe ee 


70 


31 


=$ 


3 RECOVER SEGMENT 
3 RETURN TO CALLER 


THIS INTERFACE PROVIDES ACCESS TO THE 5 174" DISKETTE DRIVES 


RESET DISKETTE SYSTEM 

HARD RESET TO NEC, PREPARE COMMAND, RECAL REQD ON 
ALL DRIVES 

READ THE STATUS OF THE SYSTEM INTO CAL) 
DISKETTE_STATUS FROM LAST OP'N IS USED 


REGISTERS FOR READ/WRITE/VERIFY/ FORMAT 


ORIVE NUMBER (0-3 ALLOWED, VALUE CHECKED) 
CBIT 6 :1 80 TRACK DISKETTE ACCESS) 
¢ 70 40 TRACK ACCESS) 
HEAD NUMBER (0-1 ALLOWED, NOT VALUE CHECKED) 
TRACK NUMBER (0-79, NOT VALUE CHECKED) 
sonnne NUMBER (1-9, NOT VALUE CHECKED. NOT USED FOR 
RMAT) 
NUMBER OF SECTORS ( MAX = 8, NOT VALUE CHECKED, NOT 
USED FOR FORMAT, HOWEVER, CANNOT BE ZERO!!!) 


CES:BX) - ADDRESS OF BUFFER ( NOT REQUIRED FOR VERIFY) 


CAH)52 READ THE DESIRED SECTORS INTO MEMORY 
CAH)=3 WRITE THE DESIRED SECTORS FROM MEMORY 
CAHD=4 VERIFY THE DESIRED SECTORS 


FORMAT THE DESIRED TRACK 

FOR THE FORMAT OPERATION, THE BUFFER POINTER 
CES,BX) MUST POINT TO THE COLLECTION OF DESIRED 
ADDRESS FIELOS FOR THE TRACK. EACH FIELD IS 
COMPOSED OF 4 BYTES, (C,H,R.N). WHERE 

C = TRACK NUMBER, H=HEAD NUMBER, R = SECTOR NUMBER, 
N= NUMBER OF BYTES PER SECTOR (00=128, O1=256, 
02512, 03=1024,). THERE MUST BE ONE ENTRY FOR 
EVERY SECTOR ON THE TRACK. THIS INFORMATION IS USED 
TO FIND THE REQUESTED SECTOR DURING READ/WRITE 
ACCESS. 


TA VARIABLE -- DISK POINTER 
DATANOUBLE WORD POINTER TO THE CURRENT SET OF DISKETTE PARAMETERS 


T 
AH = STATUS OF OPERATION 


STATUS BITS ARE DEFINED IN THE EQUATES FoR 
DISKETTE_STATUS VARIABLE IN THE DATA SEGMENT OF 
THIS MODULE 
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83 C4 04 
80 FC 01 
CA 0002 


0 
80 26 OOSF R TF 
2 3F 


C6 06 0041 R 00 
A O03 


C6 06 G041 R On 
cs 


BA 00F2 

FA 

AO OOSF R 

26 OF 

fe 

6 06 OOSE R 09 
C6 06 0041 R 

oC 80 os 
EE 


FB 
BE OOBC R 
56 


BY 0010 
BS 08 


ee we we we we we we we Be Oe 


penne based ~o---- 


DISKETTE. 10 
Str 


J2s 


J3: 


J 


DISK_RESE 


J6_0: 


cy = 


PUSH 
PUSH 


PUSH 


MoV 


RET 
EDP 


0 SUCCESSFUL OPERATION (CAH=0 ON RETURN) 
cy 1 FAILED cer CAH HAS ERROR REASON) 
AD/WRITE/VE 

POS MMOS AK DK-CHOGL PRESERVED. 

AL = NUM 

uMeM AL MAY NOT gl Eyiece Oy caret eee 

AN ERROR IS REPORTED BY TH ISKETTE ’ 
mee TF PPeUPETAe ACTION IS TO RESET THE DISKETTE, THEN 
RETRY THE OPERATION. ON READ ACCESSES, NO MOTOR 
START DELAY IS TAKEN, SO THAT THREE RETRIES ARE 


REQUIRED ON READS TO ENSURE THAT THE PROBLEM IS NOT 
DUE TO MOTOR START-UP. 


SSUME CS:CODE,DS:DATA,ES:DATA 
PROC FAR 


3 INTERRUPTS BACK ON 
ES 3 SAVE ES 
Ax 3 ALLOCATE ONE WORD OF STORAGE FOR 
3 TIMER INITIAL VALUE 
Ax 3 ALLOCATE ONE WORD ON STACK FOR 
+ USE IN PROCS puna AND DISABLE. 
3 WILL HOLD 8259 
AX 3 SAVE COMMAND AND” He SECTORS 
ax 3 SAVE ADDRESS 
DS + SAVE SEGMENT REGISTER VALUE 
SI + SAVE ALL REGISTERS DURING 
3 OPERATION 
DI 
BP 
Dx 
BP,SP 3 SET UP POINTER TO HEAD PARM 
DDS 3 SET DS=DAT 
J 3 CALL THE REST TO ENSURE DS 
3 RESTORED 
BL.4 3 GET THE MOTOR WAIT PARAMETER 
GET_PARM 
MOTOR _COUNT,AH ; SET THE TIMER COUNT FOR THE MOTOR 
taeris ean STATUS 3 GET STATUS OF OPERATION 
+15),4 ; 


’ 
BP 


2 

ENDP 
NEAR 
DH, AL 
MOTOR_STATUS, O7FA 
DL,OFF_DBL_TRK  ; 


H, AH 
DISK RESET 
Disk STATUS 


DISKETTE_STATUS,0 
DL, DRV_RANGE 3 
i3 ; 
H 


DISK READ 
AH 


J2 
DISK_WRITE 


- 


AH 
DISK_VERF 
AH 


DISK_FORMAT : 


RETURN STATUS IN AL 


+ RESTORE ALL REGISTERS 


RECOVER OFFSET 


DISCARD DUMMY SPACE FOR 8259 MASK 

RECOVER SEGMENT 

SET THE CARRY FLAG TO INDICATE 
SUCCESS OR FAILURE 

THROW AWAY SAVED FLAGS 


SAVE @ SECTORS IW DH 


3 INDICATE A READ OPERATION 
RESET FOR 80 TRACK PARM FLAG JX 


3 AH=0 


AH=1 


+ RESET THE STATUS INDICATOR 
TEST FOR DRIVE IN 0-3 RANGE JX 
aca IF ABOVE 

AH= 


} TEST_DISK_VERF 


TEST_DISK_VERF 


3 AH=4 


AH=5 


BAD_COMM 
DISKETTE _STATUS, BAD CD i CRROR cove, NO SECTORS 
RED 


3 


3 


et ae eon ae ce 


DX NEC ie 


AL, MOTOR STATUS 
AL be » DRV_SUPPORT 


SEEK. STATUS,0 


DISKETTE STATUS 
AL FDC_RESET , 


SI,OFFSE 
gr T J4_2 


CX,10H 
AH, 08H 


wee we we we we we we we we we Se Be we we we we 
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TRANSFERR 
UNDEFINED OPERATION 


ADAPTER CONTROL PORT 
NO INTERRUPTS 


FIND OUT IF MOTOR IS RUNNING 
DRIVE BITS 


RESET THE ADAPTER 
SET RECAL REQUIRED ON ALL DRIVES 


+ SET OK ee FOR DISKETTE 
TURN OFF RESE 


TURN OFF THER RESE T 


REENABLE THE INTERRUPTS 
DUMMY RETURN FOR 


PUSH uae IF ERROR 
TH NEC_OUTPUT 


ae OF SENSE INTERRUPTS TO 
COMMAND FOR § TERRUPT 
STATUS ENSE INTERRU 


eoecececvcecece0 © ceeeCeeso cece co oo 
ee ee eee eee ee mre aes 
LENNARNN N NNN&e eee OF o 
Cosnomoore Vi erOonNVYNrK Moe ON OO 


Ao 


88 4 


cs 


O3SO7 R 
OSAI R 
0042 R 


co 
12 


EF 
OE 0041 R 20 


18 
OoBC R 


133 
Fo 


03 
0307 R 
01 
O331 R 
oS 
O331 R 


OO4i R 
6 OE 


“6 
26 


OE OOSF R 80 


4D 
1D 
07 
O331 R 
09 
O331 Rk 
OF 


O331 R 
0011 


O1SF R 


OE COSF R 86 
45 


06 0040 R FF 
OS6E R 

06 OOSF R 

1F 


26 OOSF R FO 
06 OOSF R 


80 
F2 


4 


CALL NEC_OUTPUT 3 aurea THE SENSE INTERRUPT 
, 
CALL RESULTS 3 au eratus FOLLOWING COMPLETION 
3 OF RE 
MOV AL,NEC_STATUS i ERROR RETURN AND DO OWN 
, 
CMP AL,OCOH 3 TEST FOR DRIVE READY TRANSITION 
JZ 7 3 EVERYTHING OK 
Loop J4_9 3 RETRY THE COMMAND 
JG oF DISKETTE_STATUS, BAD_NEC 3 SET ERROR CODE 
JMP SHORT J8 
34.2: MOV SI,OFFSET J4_2 ; HEC_OUTPUT FAILED, RETRY THE 
3 SENSE INTERRUPT 
PUSH SI 3 OFFSET OF BAD RETURN IN 
3 NEC_OUTPUT 
Loop J4_0 3 RETRY 
JMP SHORT J4.1 
3o----- SEND SPECIFY COMMAND TO NEC 
JT: POP SI 3 GET RID OF DUMMY ARGUMENT 
MOV AH, 03H 3 SPECIFY COMMAND 
CALL NEC_OUTPUT 3 OUTPUT THE COMMAND 
MOV BL.1 3 STEP RATE TIME AND HEAD UNLOAD 
CALL GET_PARM 3 OUTPUT TO THE NEC CONTROLLER 
MoV BLS 3 PARM1 HEAD LOAD AND NO DMA 
CALL GET_PARM 3 TO THE NEC CONTROLLER 
38: 3 RESET _RET 
3 RETURN TO CALLER 


RET 
DISK manag 
etched DISKETTE. STATUS ROUTINE 
DISK STATUS PROC NEAR 


MOV AL, DISKETTE_STATUS 
MOV BYTE PTR(BP4+14),AL_; PUT STATUS ON STACK, IT WILL 
s POP IN AL 


RET 
DISK_STATUS 


ppd la LABEL NEAR 
Naeiieis DIS iia peee 
DISK READ NEAR 
DISK_READ_CONT 
MoV AH,O46H SET UP READ COMMAND FOR NEC 


CONTROLLER 
GO DO THE OPERATION 


we we we we 


JMP SHORT RW_OPN 
DISK_READ ENDP 


(Tate ted rere FORMAT 
DISK_FORMA PROC NEAR 
OR. oe ee + INDICATE A WRITE OPERATION 


MOV Ay, + ESTABLISH THE FORMAT COMMAND 
JMP SHORT RW_OPN + DO THE OPERATION 
J10: + CONTINUATION OF RW_OPN FOR FMT 
MoV BL.7 3 GET THE 
CALL GET_PARM 3 BYTES/SECTOR VALUE TO NEC 
MOV BL.9 3 GET THE 
CALL GET —PARM + SECTORS/TRACK VALUE TO NEC 
MOV BL,15 + GET THE 
CALL GET_PARM 3 GAP_LENGTH VALUE TO NEC 
MOV BX,17 + GET THE FILLER BYTE 
i BX 3 SAVE PARAMETER INDEX ON STACK 
cate + TO THE CONTROLLER 
DISK_FoRhut END! 
s~-~~-~ DISKETTE “RITE ROUTINE 
SAAREAITE PROC NEAR 
te MOTOR STATUS,80H 3 INDICATE A WRITE OPERATION 
AH, 045H + NEC COMMAND TO WRITE TO DISKETTE 
DISKION. INC 
DISK_WRITE 
jo>re= ALLOW WRITE ROUTINE. To FALL INTO |_RBLLOPN 
3 RW_OP 
; THIS ROUTINE PERFORMS THE READ/WRITE/VERIFY OPERATION 
RW_OPH PROC HEAR 
PUSH 3 SAVE THE COMMAND 
b-ece-- TURN ON THE MOTOR AND SELECT THE DRIVE 
PUSH cx + SAVE THE T/S PARMS 
CLI ; NO INTERRUPTS WHILE DETERMINING 


MOTOR STATUS 
MOV cere OTT 3 SET LARGE COUNT DURING OPERATION 
GET 


CALL THE DRIVE PARAMETER FROM THE 
STACK 
TEST § MOTOR_STATUS,AL 3 TEST MOTOR FOR OPERATING 
JNZ Jue IF RUNNING, SKIP THE WAIT 
AND MOTOR_STATUS,OFOH ; TURN OFF RUNNING DRIVE 
OR MOTOR_STATUS,AL + TURN ON THE CURRENT MOTOR 
STY 3 INTERRUPTS BACK ON 
OR AL, Foc RESET 3 NO RESET. TURN ON MOTOR 
our NEC AL 
pooees> WAIT FOR ROTOR BOTH READ AND WRITE 
MoV BL,20 3 GET MOTOR START TINE 
CALL GET_PARN 
OR AH, AH 3 TEST FOR NO WAIT 
312: 3 TEST_WALT_TIME 
Jz Jie 3 EXIT WITH TIME EXPIRED 
SUB Cx, CX 3 SET UP 178 SECOND LOOP TIME 
Jase LOOP) «JS } WAIT FOR THE REQUIRED TIME 
DEC AH 3} DECREMENT TIME VALUE 
JMP J12 3 ARE WE DONE YET 
Ji4a + MOTOR RUNNING 
STI 3 INTERRUPTS BACK ON FOR BYPASS 
+ WA 
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Bo 
&6 


£8 OG3A R 


E8 0446E R 


BA 
oc 
€€ 


45D R® 


FC 
60 


03 


0299 R 
0299 R 


0307 R 
0 


Ossi R 
0000 


43 


FF 
41 


10 
Ao 


OOF2 
£0 


PoP cx 
------ DO THE SEEK OPERATION 
' CALL SEEK 3 MOVE TO CORRECT TRACK 
POP AX + RECOVER COMMAND 
mov BH, AH 3 SAVE COMMAND IN BH 
MOV DH, 0 ; Ser NO SECTORS READ IN CASE OF 
3 
JNC J1@_t ; TF ko ERROR CONTINUE, JUMP AROUND 
, 
ume Ji? 3 CARRY SET JUMP TO MOTOR WAIT 
J1¢_1: MOV SI,OFFSET J17_ 5 DUMMY RETURN ON STACK FOR 
; NEC_OUTPUT 
PUSH = SI + $O THAT IT WILL RETURN TO MOTOR 
+ OFF LOCATION 
joecen- SEND OUT THE PARAMETERS TO THE CONTROLLER 
CALL = NEC_OUTPUT 3 OUTPUT THE OPERATION COMMAND 
MOV AH, (BP+1) 3 GET THE CURRENT HEAD NUMBER 
SAL AH, 1 3 MOVE IT TO BIT 2 
SAL AH,2 
AND AH, 4 + ISOLATE THAT BIT 
OR AH, DL 3 OR IN THE DRIVE NUMBER 
CALL —_HEC_OUTPUT 
goco--- TEST FOR FORMAT COMMAND 
CMP BH, 04DH + IS THIS A FORMAT OPERATION? 
JNE J15 3. NO. CONTINUE WITH R/W/V 
JMP J10 3 IF $0, HANDLE SPECIAL 
J1S: MOV AH, CH + CYLINDER NUMBER 
CALL =—- NEC_OUTPUT 
mov AH, UBP+1) 3 HEAD NUMBER FROM STACK 
CALL —- REC_OUTPUT 
MOV AH, CL + SECTOR NUMBER 
CALL —- NEC_OUTPUT 
MOV BL.7 BYTES/SECTOR PARM FROM BLOCK 
CALL = GET_PARM TO THE NEC 
MOV L.8 


CALL GET_PARM 


EOT PARM FROM tae 
ADD CL, TBP+14) 


RETURNED IN A 


ADD CURRENT SECTOR TO NUMBER IN 
TRANSFER 


we We we we we we we we we 


DEC cL CURRENT_SECTOR * N_SECTORS - 1 
mov AH,CL eat PARAMETER IS THE CALCULATED 
ON 
CALL NEC_OUTPUT 
MOV BL,11 + GAP LENGTH PARM FROM BLOCK 
CALL GET_PARM + _TO THE NEC 
MOV BX,13 + DTL_PARM FROM BLOCK 
PUSH Bx ¢ SAVE INDEX TO DISK PARAMETER ON 
3 STACK 
J16: cLD + FORWARD DIRECTION 
geverem START TIMER] WITH INITIAL VALUE OF FFFF 
MOV AL,01110000B + SELECT TIMERI,LSB-MSB, MODE 0, 
+ BINARY COUNTER 
our TIM_CTL,AL + INITIALIZE THE COUNTER 
PUSH Ax 
PoP ax + ALLOW ENOUGH TIME FOR THE 8253 TO 
> INITIALIZE ITSELF 
MoV AL, OFFH + INITIAL COUNT VALUE FOR THE 8255 
ouT TIMER+1,AL 3 OUTPUT LEAST SIGNIFICANT BYTE 
PUSH AX 
PoP AX ; T 
OUT TIMER¢1,AL + OUTPUT MOST SIGNIFACNT BYTE 
bo-w-~-IMITIALIZE CX FOR JUMP AFTER LAST PARAMETER IS PASSED TO NEC 
mov AL, CBP4+15) 3 RETRIEVE COMMAND PARAMETER 
TEST AL,O1H + IS THIS AN ODD NUMBERED FUNCTION? 
JZ J16_1 > JUMP IF NOT ODD NUMBERED 
MOV CX,OFFSET WRITE_LOOP 
JMP SHORT J16_3 
Jl6_1: CMP AL,2 + IS THIS A READ? 
INZ J16_2 + JUMP IF VERIFY 
MOV CX,OFFSET READ_LOOP 
JMP SHORT J16_3 
J16_2: MOV CX,OFFSEY VERIFY_LOOP 
lettres FINISH INITIALIZATION 
J16_3: 
SMMMNOTEMM 


sALL INTERRUPTS ARE ABOUT TO BE DISABLED. THERE IS A POTENTIAL 

3 THAT THIS TIME PERIOD WILL BE LONG ENOUGH TO MISS TIME OF 
3 DAY INTERRUPTS. FOR THIS REASON, TIMER] WILL BE USED TO 
3 KEEP TRACK OF THE HUMBER OF TIME OF DAY INTERRUPTS WHICH 
3 WILL BE MISSED. TH 
’ 

$ 


IS INFORMATION IS USED AFTER THE DISKETTE 
wou OPERATION TO UPDATE THE TIME OF DAY. vi 


MOV AL, 10H y DISABLE MMT neds 

QUT -MMI_PORT,AL =; HO KEYBOARD INTERRUPT 

CALL CLOEK_waIT i WAIT IF TIMERO IS ABOUT TO 
eam i INTERRUPT 


ENABLE WATCHDOG TIMER 


OOUNOT Ene OOO 0 A Tae ean wes Kone Kesenueceeeesssee-<= 


’ 
3 GIVEN THE CURRENT SYSTEM CONFIGURATIO BER 
i MA METHOD IS HEE 
; LE rut THE NEC OUT OF "FATAL ERROR" SITUATIONS. A TIMER 
5 PUN eRe ADAPTER CARD IS PROVIDED WHICH WILL PERFORM THIS 
3 AND SThokEers WATCHDOG TIMER ON THE ADAPTER CARD IS ENABLED 
: uate RECA REL ORE THE 8259 INTERRUPT 6 LINE 15 ENABLED. 
a TRIGGER AN AUS eR eee GLITCH ON THE LINE LARGE ENOUGH TO 
[~*eiomeme i eenanne et = 

CALL GET_DRive i GET SET Mash FOR DRIVE oa 

x i GET BIT MASK FOR DRIVE 
nov Re Rec CTL + CONTROL PORT TO NEC 
ha DX AL eee e*WD_ENABLE*WD_STROBE 


+ OUTPUT CONTROL INFO FOR 
3 WATCHDOG(WD) ENABLE 
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24 
EE 


BA 
Bo 


6 


iz} 
89 


€8 
SB 
58 
06 
FF 


€3 


AF 


OOFS 
20 


Ao 


0000 € 
46 12 


0405 R 


O331 R 


El 


20 
FB 


80 
07 


20 
35 


20 
28 


20 


20 
21 
F7 


Fl 


20 
FB 
2080 
cs 
OA 
C1 
F? 


Fl 


OMGE R 


OoF2 


O43A R 


E 
SE 12 


cs 
Ly} 


AND AL, FDC_RESET+WD_ENABLE+DRV_SUPPORT 
OUT DX,AL 3 OUTPUT CONTROL INFO 10 STROBE 
} WATCHDOG 
MOV DX,NEC_STAT + PORT TO NEC STATUS 
MOV AL, 20H 3 SELECT TIMERI INPUT FROM TIMERC 
+ OUTPUT 
our NMI_PORT, AL 
joe---- READ TIMER NOW AND SAVE THE INITIAL VALUE 
CALL READ_TIME + GET TIMER] VALUE 
MOV (BP+i8),aX 3 SAVE INITIAL VALUE FOR CLOCK 
3 UPDATE IM TEMPORAY STORAGE 
CALL DISABLE 3 DISABLE ALL INTERRUPTS 
peoeee NEC BEGINS OPERATION WHEN NEC RECEIVES LAST PARAMETER 
BX 3 GET PARAMTER FROM STACK 
CALL GET_PARM + OUTPUT LAST PARAMETER TO THE HEC 
PoP AX ; CAN HO Now DISCARD THAT DUMMY RETURN 
PUSH ES 
POP DS 3 INITIALIZE DS FOR WRITE 
JMP cx 3 JUMP TO APPROPRIATE R/W/V LOOP 
yeasts tee wees ectecncdiewebeer tess ce ee eons Bn a 
SMMMNOTEM ON 
3 DATA IS TRANSFERRED USING POLLING ALGORITHMS. THESE LOOPS 
; TRANSFER A DATA BYTE AT A TIME WHILE POLLING THE NEC FOR: 
3 NEXT DATA BYTE AND COMPLETION STATUS. 
Hettatates VERIFY OPERATION 
VERIFY_LO 
In, AL, DX 3 READ STATUS 
TEST AL, BUSY_BIT 3 ue NEC ENTERED EXECUTION PHASE 
iain JZ VERIFY_LOOP 3 NO, CONTINUE SAMPLING 
TEST AL, Ren 3 IS DATA READY? 
INZ J22_4 3 JUMP IF DATA TRANSFER IS READY 
IN AL, DX 3 READ STATUS PORT 
TEST AL BUSY BIT 3 ARE WE DONE? 
JNZ 2.2 3 JUMP IF mORE TRANSFERS 
JMP 3HoRT OP_END 3 TRANSFER D 
J22_4: INC DX 3 POINT AT nec DATA REGISTER 
IN AL, DX 3 READ DATA 
DEC ox 3 POINT AT NEC STATUS REGISTER 
IN AL, DX 3 READ STATUS PORT 
TEST AL, BUSY_BIT 3 ARE WE DONE? 
ine J22_2 3 CONTINUE 
JMP SHORT OP_END 3 WE ARE DONE 
per t7) OPERATION 
READ_LOOP 
1m 3 READ STATUS REGISTER 
TEST ALI BUSY_BrT 3 HAS NEC STARTED THE EXECUTION 
3 PHASE? 
JZ READ_LOOP 3 HAS NOT STATRED YET 
J22_5: IN AL,D 3 READ STATUS PORT 
TEST AL, BUSY_BIT ; HAS MEG COMPLETED EXECUTION 
; A 
JZ OP_END + JUMP IF EXECUTION PHASE IS OVER 
TEST ALT ROM 3 IS DATA READY 
JZ J22_5 3 READ THE DATA. 
INC Dx 3 POINT at AL DATA 
IN AL, DX 3 READ DAT 
STOSB 3 TRANSFER. DATA 
DEC Dx 3 POINT AT NEC_STA 
JMP J22_5 3 CONTINUE WITH READ OPERATION 
bo----WRITE AND FORMAT OPERATION 
WRITE_LOOP: 
IN AL, DX 3 READ NEC STATUS PORT 
TEST AL, BUSY_BIT 3 HAS THE NEC ENTERED EXECUTION 
3 PHASE YET? 
JZ WRITE 3 NO, CONTINUE LOOPING 
MOV cx, BUSY BrTe2seoken 
J22_71 
IN AL, DX + READ STATUS PORT 
TEST AL. CH 3 is hs FEC STILL IN THE EXECUTION 
+ PHAS 
Jz OP_END 3 JUMP IF EXECUTION PHASE IS DONE. 
TEST ALCL 3 IS THE DATA PORT READY FOR THE 
3 TRANSFER? 
JZ J22_7 + JUMP TO WRITE DATA 
INC 0X + POINT AT DATA REGISTER 
LODSB 3 TRANSFER BYTE 
ouT DX,AL + WRITE THE BYTE ON THE DISKETTE 
DEC Dx 3 POINT AT THE STATUS REGISTER 
JMP J22_7 3 CONTINUE WITH WRITE OR FORMAT 
pooe---TRANSFER PROCESS IS OVER 


SAVE ie CARRY BIT SET IN 
DISK 
GET BIT MASK FOR DRIVE SELECTION 


OP_END: PUSHF 
CALL GET_ DRIVE 


we we we we we we 


OR AL, FOC_RESET NO RESET, KEEP ORIVE SPINNING 
mov DX,NEC_CTL 
out DX. AL DISABLE WATCHDOG 
poceos- UPDATE TIME OF DAY 
CALL DOS 3 POINT DS AT BIOS DATA SEGMENT 
CALL CLOCK_WAIT i WAIT IF TIMERO IS CLOSE TO 
+ WRAPPING 


CALL READ_TIME 


mov 8x, (BP+18) GET THE INITIAL VALUE OF TIMERL 


i 
SUB AX, BX 3 UPDATE NUMBER OF INTERRUPTS 
3 MISSED 
NEG Ax 3 PUT IT INA 
PUSH AX 3 SAVE IT FOR. REUSE IN ISSUING USER 


TIMER INTERRUPTS 
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0242 01 06 COEC RR ap TIMER_LOW,AX 3 ADD NUMBER OF TIMER INTERRUPTS TO 
4 
‘4 Jue J16_4 3 JUMP IF TIMER_LOW DID NOT SPILL 
meee 13S — 3 OVER 10 TIMERTHI 
48 FF 06 0O6E R INC TIMER_HIG! 
d28c 8S SE OOSE R18 J16_4: CHP TIMER_HIGH,O18H ; TEST FOR COUNT TOTALING 24 HOURS 
0251 75°19 JNZ J16_! 3 JUMP IF NOT 24 HOURS 
0253 81 SE 006C R 00B0 CHP TIMER_LOW,OBOH 3 LOW VALUE = 24 HOUR VALUE? 
0259 «70:11 Jt J16_5 + NOT 24 HOUR VALUE? 
greo--- TIMER HAS GONE 24 HOURS 
0258 C7 06 OO6E R C0CD MOV TIMER_HIGH,O —  ; ZERO OUT TIMER_HIGH VALUE 
0261 81 2E 006C R 00B0 SuB TIMERTLOW,OBOR ; VALUE REFLECTS CORRECT TICKS PAST 
’ 
0267 Cb 06 0070 R OL mov TIMER_OFL,1 3 INDICATES 24 HOUR THRESHOLD 
026C EB 0414 R J16_S: CALL ENABLE 3 ENABLE ALL INTERRUPTS 
026F 59 POP cx + CX:=AX, COUNT FOR NUMBER OF USER 
3 TIME INTERRUPTS 
0270 «ES 26 JCXZ 67 3 IF ZERO DO NOT ISSUE ANY 
. 3 INTERRUPTS 
0272 «1E PUSH DS 3 SAVE ALL REGISTERS SAVED PRIOR TO 
3 INT 1C CALL FROM TIMERINT 
0273 50 PUSH = AX 3 THIS PROVIDES A COMPATIBLE 
ae + INTERFACE TO 1¢ 
0276 «52 ; 
0275 J16_6: 
0275 cb 1¢ INT 1c 3 TRANSFER CONTROL TO USER 
3 INTERRUPT 
0277 «E2 FC LOOP = s_«16_6 3 DO ALL USER TIMER INTERRUPTS 
0279 SA PoP Dx 
027A 58 POP aX 
0278 oF POP DS 3 RESTORE REGISTERS 
enm~=- CLOCK IS UPDATED AND USER INTERRUPTS 1C HAVE BEEN ISSUED. 
. 3 CHECK IF KEYSTROKE OCCURED 
o2z7c¢ «OA CO OR AL, AL > AL WAS SET DURING CALL TO ENABLE 
O27E 74:18 JZ J16_7 > NO_KEY WAS PRESSED WHILE SYSTEM 
3 WAS MASKED 
0280 BB 0080 MoV BX, 080H 3 DURATION OF TONE 
0283 BY 0068 MOV CX, 048H 3 FREQUNCY OF TONE 
0286 «£8 0000 E CALL —KB_NOISE 3 NOTIFY USER OF MISSED KEYBORAD 
3 INPUT 
iwo--~"-CLEAR SHIFT STATES DONT LEAVE POSSIBILTY OF DANGLING STATES 
3 OF MISSED BREAKS 
0289 80 26 0017 R FO AND KB_FLAG,OFOH =; CLEAR ALT.CLRL,LEFT AND RIGHT 
3 SHIFTS 
O28E 80 26 0018 R OF AND KB_FLAG_1,0FH  ; CLEAR POTENTIAL BREAK OF INS,CAPS 
+ NUM AND SCROLL SHIFT 
0293 80 26 0088 RIF AND KB_FLAG_2,1FH 3 CLEAR FUNCTION STATES 
0298 9D J16_7: POPF + GET THE FLAGS 
0299 J177 
0299 72 40 Je J20 
0298 E8 O3A9 R CALL —- RESULTS. 3 GET THE NEC STATUS 
029E 72 3B Jc 520 3 LOOK FOR ERROR 
gren--- CHECK THE RESULTS RETURNED BY THE CONTROLLER 
o2A0 FC CLD ; SET THE CORRECT DIRECTION 
O2A1 BE 0042 R mov SI,OFFSET NEC_STATUS ; POINT TO STATUS FIELD 
02A6 AC LODS = NEC_STATUS 3 GET STO 
02A5 24 CO AND AL, OCOH 3 TEST FOR NORMAL TERMINATION 
02k? 74 58 JZ J22 3 OPN_OK 
O2A9 3C 40 CMP AL,040H + TEST FOR ABNORMAL TERMINATION 
O2AB 75 25 JNZ J18 3 NOT ABNORMAL, BAD NEC 
red oe oe 1 ile emcee Cae OAD NEG 
SMMMNOTEM MK 
; THE CURRENT SYSTEM CONFIGURATION HAS NO DMA. IH ORDER TO 
3 STOP THE NEC AN EOT MUST BE PASSED TO FORCE THE NEC TO HALT 
3 THEREFORE, THE STATUS RETURNED BY THE NEC WILL ALWAYS SHOW 
3 AN EOT ERROR. IF THIS IS THE ONLY ERROR RETURNED AND THE 
3 HUMBER OF SECTORS TRANSFERRED EQUALS THE NUMBER SECTORS 
3 REQUESTED IN THIS INTERRUPT CALL THEN THE OPERATION HAS 
3 COMPLETED SUCCESSFULLY. IF AN EOT ERROR IS RETURNED AND THE 
3 REQUESTED NUMBER OF SECTORS I$ NOT THE NUMBER OF SECTORS 
; TRANSFERRED THEN THE ERROR IS LEGITIMATE. WHEN THE EOT 
; ERROR IS INVALID THE STATUS BYTES RETURNED ARE UPDATED TO 
a REFLECT THE STATUS OF THE OPERATION IF DMA HAD BEEN PRESENT 
82AD AC , LODS —-HEC_STATUS TCLs 
| ; STA 
es 4 CMP 80H 3 IS THIS THE ONLY ERROR? 
sane Gece JE J21_1 3 NORMAL TERMINATION, NO ERROR 
0284 «DO £0 eer Rat + NOT EOT ERROR, BYPASS ERROR BITS 
0286 «DO EO ‘ 
0288 BS 10 SAL ALyt + TEST FOR CRC ERROR 
O2BA 72:18 Mov AH, BAD_CRC 
Sie Be Ss sit Fess 
0 4 , 3 
o2ne Bs 08 nov AK; BAD_DHA OR DMA OVERRUN 
o2c2 Do £0 3 J19 + RWLFAIL 
02C4 DO £0 SAL oie 
02C6 Be 04 ' + TEST F 
we nov AN; RECORD_NOT_FA} OR RECORD NOT FOUND 
O2CA DO £0 ve 419 3; RW_FAIL 
02zcc DO £0 ait Abed = 
aioe .- : mov AH BAD_ADDR oe, TEST MISSING ADDRESS MARK 
J See ent 
0202 Tia; NEC MUST HAVE FarLep  * RW-FAIL 
02 : ‘ 
8202 36 20 : nov Hate wie > RW-HEC-FAIL 
0204 08 26 Cosi R uss 3 RW-FAIL 
0208 EB OSEAR oe RUSCELTE. STATUS, AH 
_TRA : 
O2DB cs 320: N iq 


OW MANY WERE REALLY TRANSFERRED 
ey i RW_ERR 
Proo=e~ OPERATION WAS Successrur! RETURN TO CALLER 
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OSOE 


aA 
Es 
3A 
74 


5E 0E 
OSEAR 

Ds 

oc 

OE 0041 R 04 
06 00463 R 80 
co 

84 0062 R 

84 0062 R 

03 

OSEAR 

ES 


OOFS 
cy 


40 
F9 
CE 0041 R 80 


co 
da 


36 0 
ep COVE R 


20 
FB on 


J21_1: 
Mov BL, (BP+1463 3 Ser MunieE OF SECTORS PASSED 
3 
CALL NUM_TRANS + HOW MANY GOT MOVED, AL CONTAINS 
3 NUM OF SECTORS 
cmp BL,AL 3 NUMBER REQUESTED=NUMBER ACTUALLY 
3 TRANSFERRED? 
J21_ TRANSFER SUCCESSFUL 
serene - OPERATION Atfenprep TO ACCESS DATA PAST REAL EOT. THIS IS 
3 A REAL ERROR 
OR DISKETTE_STATUS ,RECORD_NOT_FND 
ay NEC_STATUS+#1,80H ; ST1 GETS CORRECT VALUE 
RET 
J21_2:  XOR AX, AX + CLEAR AX FOR NEC. STATUS UPDATE 
XOR SI,SI 3 INDEX TO NEC_STATUS ARR 
MoV NEC STATUSESIJ,AL i ZERO OUT BYTE, STO 
INC s OINT INDEX AT SECOND BYTE 
Mov NEC_STATUS[SIJ,AL : ZERO OUT BUYE, STI 
JMP SHORT J21_3 3 OPN_OK 
J22: CALL NUM_TRANS 
J21_3: XOR AH, AH + NO ERRORS 
RW_OPN ENDP 
; OR ee a we ee ee er eee eee eee eesesess 
3 NEC. OUTPUT 
3 THIS ROUTINE SENDS A BYTE TO THE NEC CONTROLLER 
3 AFTER TESTING FOR CORRECT DIRECTION AND CONTROLLER READY 
; THIS ROUTINE WILL TIME OUT IF THE BYTE IS NOT ACCEPTED 
3 WITHIN A REASONABLE AMOUNT OF TIME, SETTING THE DISKETTE 
; STATUS ON COMPLETION 
3 INPUT 
3 CAH BYTE TO BE ouTPUT 
3 OUTPUT 
3 cy = 0 suc 
3 cy =1 FartoRe ~- DISKETTE STATUS UPDATED 
3 IF A FAILURE HAS OCCURRED, THE RETURN IS MADE ONE 
3 LEVEL HIGHER THAN THE CALLER OF NEC_OUTPUT 
3 THIS REMOVES THE REQUIREMENT OF TESTING AFTER EVERY 
3 CALL OF NEC_OUTPUT 
3 CAL) DESTROYED 
NEC_OUTPUT PROC NEAR 
PUSH DX 3 SAVE REGISTERS 
PUSH cx 
MoV DX,NEC_STAT 3 STATUS PORT 
XOR CX, CX 3 COUNT FOR TIME OUT 
J23: IN AL, DX 3 GET STATUS 
TEST AL, DIO 3 TEST DIRECTION BIT 
JZ J25 3 DIRECTION OK 
Loop J23 
24: TIME_ERROR 
e. DISKETTE_STATUS, FIME_ our 
POP Bx 3 SET ERROR CODE AND RESTORE REGS 
POP Ax 3 DISCARD THE RETURN ADDRESS 
are 3 INDICATE ERROR TO CALLER 
J25: XOR Cx, CX 3 RESET THE COUNT 
J26: IN AL, DX 3 GET THE STATUS 
TEST AL, RQM 3 IS IT READY? 
INZ J27 3 YES, GO OUTPUT 
LOOP J26 3 COUNT DOWN AND TRY AGAIN 
Jmp J24 3 ah yconorts ON 
S27: 3 OUTP 
MoV ALLAH 3 GET BYTE TO OUTPUT 
INC 3 DATA PORT IS 1 GREATER THAN 
3 STATUS PORT 
out DX, AL 3 OUTPUT THE BYTE 
PoP cx 3 RECOVER REGISTERS 
POP Dx 
RET 3 CY = 0 FROM TEST INSTRUCTION 
NEC_OUTPUT ENDP 


Hy 
; 
i 
3 EN 
; 
‘ 
i 


NTRY -- 


GET_PARM 
3 THYS ROUTINE FETCHES THE INDEXED POINTER FROM 


THE DISK_BASE iy aa AT BY THE DATA 
VARTABLE DISK_POIN 

A BYTE FROM THAT TABLE IS THEN MOVED INTO AH, 
THE INDEX OF THAT BYTE BEING THE PARM IN BX 


= O BE FETCHED & 
” see Com BET OF BL IS ON, THE BYTE IS IMMEDIATELY 


OUTPUT TO THE NEC CONTROLLER 
AH = THAT BYTE FROM BLOCK 


EXIT -- 
BX = DESTROYED 


epee NEAR SAVE SEGHENT 
bs + SAVE REGISTER 
AX, AX > ZERO TO AX 
Aree + ZERO BH 
DS. AX. 
DS:A ‘ 

ER ; POINT TO BLOCK 
SI,DISK POINT ; DIVIDE BX BY 2, AND SET FLAG FOR 
BX,1 3 EXI 

| Sat ryt 

AH, (S1#BX) 3; IS THIS THE PARM WITH DMA 
BX, 1 + INDICATOR 
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JNZ J27_1 
0345 75 03 oR AH,T + TURN ON HO DMA BIT 
0347 80 CC 0 JMP SHORT J27_2 
oaae Ee FB OA J27_11 CHP Bx.19 + MOTOR STARTUP DELAY? 
JNE J27_ 
O34F 75 07 CMP AH, 3 GREATER THAN OR EQUAL TO 172 SEC? 
0351 80 FC 04 > YES, OKAY 
0354 «7D 02 JGE J27_2 ; , 
Be 08 MoV AH, 3 NQ, FORCE 172 SECOND DELAY 
O388 90 J27_2: POPF + GET OUTPUT BIT 
® 39 SE POP $I + RESTORE REGISTER 
rH iF POP DS 3 RESTORE SEGMENT 
8 ASSUME DS:DATA 
esa. 72 Jc NEC_OUTPUT 3 IF FLAG SET, OUTPUT TO CONTROLLER 
cep es RET 3 RETURN TO CALLER 
esse GET_PARM ENDP 


Bert rr rrr rn nnn ee ee eee ee 
BOUND SETUP 


THIS ROUTINE SETS UP BUFFER ADDRESSING FOR READ/WRITE/VERIFY 
coe 


ES HAS ORIGINAL BUFFER SEGMENT VALUE 
BP POINTS AT BASE OF SAVED PARMETERS ON STACK 


ES HAS SEGMENT WHICH WILL ALLOW 64K ACCESS. THE 
COMBINATION ES:DI AND DS:SI POINT TO THE BUFFER. THIS 


i 

; 

; 

; 

3 

3 OUTPUT 
i 

; in heen WILL ALWAYS ACCESS 64K OF MEMORY. 
3 

D 


BX DESTOY 
ISKIO2.INC 
O35E BOUND_SETUP PROC —NEAR 
O35E€ $1 PUSH x 3 SAVE REGISTERS 
O35F 8B SE OC mov BX, (BP+12) 3 GET OFFSET OF BUFFER FROM STACK 
0362 «53 PUSH BX 3 SAVE OFFSET TEMPORARILY 
0363 B1 04 MOV CL.4 3 SHIFT COUNT 
0365 DS EB SHR BX,CL > SHIFT OFFSET FOR NEW SEGMENT 
+ VALUE 
0367 8C C1 MOV Cx, ES 3 PUT ES IN REGISTER SUITABLE FOR 
3 ADDING TO 
0369 03 CB ADD CX, BX + GET NEW VALUE FOR ES 
0368 8E Cl MoV ES,cx 3 UPDATE THE ES REGISTER 
36D SB POP BX 3 RECOVER ORIGINAL OFFSET 
O36E 81 E3 OOOF AND BX, 0000FH 3 NEW OFFSET 
0372 8B FS MOV SI,BX 3 DS:SI POINT AT BUFFER 
0374 8B FB MOV DI, BX 3 ES:DI POINT AT BUFFER 
0376 59 PoP cx 
03? 
0378 BOUND_SETUP ENDP tee 
3 CHK_STAT_2 
3 THIS ROUTINE HANDLES THE INTERRUPT RECEIVED AFTER 
H A RECALIBRATE, SEEK, OR RESET TO THE ADAPTER. 
3 THE INTERRUPT IS WAITED FOR, THE INTERRUPT STATUS SENSED, 
3 AND THE RESULT RETURNED TO THE CALLER. 
3 INPUT 
3 
3 OUTPUT 
3 CY = 0 SUCCESS 
3 CY = 1 FAILURE -- ERROR IS IN DISKETTE_STATUS 
: (AX) DESTROYED 
0378 CHK_STAT_2 PROC NEAR 
airs ae at + SAVE REGISTERS 
037A 33 DB XOR BX, BX 3 NUMBER OF SENSE INTERRUPTS TO 
3 ISSUE 
OS7C BE OS91 Rk MOV SI,OFFSET J33_3 ; SET UP DUMMY RETURN FROM 
OS7F 3 NEC_OUTPUT 
ose5 ae PUSH = $I 3 PUT"ON STACK 
0382 ee J33_2: MOV AH, 08H 3 SENSE INTERUPT STATUS 
esas chee CALL = -NEC_OUTPUT 3 ISSUE SENSE INTERUPT STATUS 
a ae CALL RESULTS ; 
Jc J35 3; NEC TIME OUT, FLAGS SET IN 
038A £0 0062 R Mov At Nec_status | Geresta 
GET STATUS 
Our 3 ip TEST AL, SEER END ; TS SEEK OR RECAL OPERATION DONE? 
JNZ J35_1 i JUMP IF EXECUTION OF SEEK OR 
; RECAL DON 
0392 38 ec J33_3: Oas Oe a } Det Loop couNTER 
‘ 3 DO ANOTH 
or 80 OE 0061 R ap isi OR DISKETTE_STATUS, TIMEOUT 
STC 5 RETURN ERROR INDICATION FOR 
039A SE + CALLER 
0398 J351 Had st 3 RESTORE REGISTERS 
039D C3 cd BX 
O39E 24 Co one SEEK END HAS OCCURED, CHECK FOR NORMAL TERMINATION 
a eee pe ggtean OU ae nani FERRIMU ETON, ETS 
i JUMP _IF HORMAL TERM 
beng Sa rs ine DISKETTE_STATUS, BAD_SEEK 
CHK_STAT_2 ENDP ; 
Bee RT mS SRR C meme cae ae wowe. 
3 RESULTS CO Oe 
; THI 
i HAS. TO. SAY FOC eL TREAD ANYTHING THAT THE HEC CONTROLLER 
3 Inpur 1! 1S ASSUMED THAT THE NEC Data PORT = NEC STATUS PORT ¢ 1- 
3 HON 
+ OUTPUT . 
CY = 0 success 
CY = 1 Farture ct TRANSFER 


~ TIME OUT In WAITING FOR STATUS 
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50 


Eq 
89 


Bo 
E6 


38 
C3 


ALL REGISTERS REMAIN INTACT 


3 NEC_STATUS AREA HAS STATUS BYTE LOADED INTO IT 
3 CAH) DESTROYED 
fepcbiecclesusceseeerneS eee etn a 
RESULTS proc NEAR 
MOV DI. OFFSET NEC_STATUS 3 POINTER TO DATA AREA 
PUSH 3 SAVE COUNTER 
PUSH Bx 
PUSH BX 
MoV BL.? 3 MAX STATUS BYTES 
goc---- WAIT FOR REQUEST FOR MASTER 
J38: 3 INPUT_LOOP 
XOR CX, 6x 3 COUNTER 
MOV DX,NEC_STAT 3 STATUS PORT 
J39: 3 WAIT FOR MASTER 
IN AL, DX 3 GET STATUS 
TEST AL, 080H 3 MASTER READY 
JHZ J40A 3 TEST_DIR 
Loop J39 WAIT_MASTER 
OR DISKETTE_STATUS, TIME_OUT 
J40: + RESULTS_ERROR 
sTc 3 SET ERROR RETURN 
oce--- RESULT OPERATION IS DONE 
544: POP Bx 
POP Dx 
POP cx 
pocce-- yest THE DIRECTION BIT 
JOOA: AL, DX 3 GET STATUS REG AGAIN 
TEST AL,040H 3 TEST DIRECTION BIT 
INZ J42 3 OK 19 READ STATUS 
J4l: 3 MEC_FAIL 
OR DISKETTE_STATUS, BAD_NEC 
JMP J40 3 RESULTS. ERROR 
go----- READ IN THE STATUS 
342: 3 INPUT_STAT 
INC Dx 3 POINT AT DATA PORT 
IK AL, DX 3 GET THE DATA 
MOV CDIJ,AL 3 STORE THE BYTE 
INC DI 3 INCREMENT THE POINTER 
MOV CX, 10 3 LOOP TO KILL TIME FOR NEC 
J43: Loop J43 
DEC ox 3 POINT | aT STATUS PORT 
IN AL, DX 3 GET $ 
TEST AL, O10H ; TEST. ro NEC STILL BUSY 
JZ J44 3 RESULTS DONE 
DEC BL 3 DECREMENT THE STATUS COUNTER 
JINZ J38 3 GO BACK FOR MORE 
JMP Ja 3 CHIP HAS FAILED 
3 NUM TRANS 
3 THIS ROUTINE CALCULATES THE NUMBER OF SECTORS THAT 
3 — WERE ACTUALLY TRANSFERRED TO/FROM THE DISKETTE 
; (CH) = CYLINDER OF OPERATION 
3 (CL) = START SECTOR OF OPERATION 
3 OUTPUT 
3 CAL) = NUMBER ACTUALLY TRANSFERRED 
3 NO OTHER REGISTERS MODIFIED 
aan hc Ne he ah a 
NUM_TRANS PROC NEAR 
nov AL,NEC_STATUS#3 ; GET CYLINDER ENDED UP ON 
cMP AL, CBP*11) 3 SAME AS WE STARTED 
MoV AL,NEC_STATUS#S ; GET ENDING SECTOR 
Ryd 45 3 IF ON SAME CYL, THEN NO ADJUST 
MoV BL,8 
CALL GET_PARM 3 GET EOT VALUE 
MOV ALLAH + INTO AL 
J45: INC al 3 USE EQT#1 FOR CALCULATION 
SUB AL, CBPJ¢10 3 SUBTRACT START FROM END 
MoV CBP¢14),AL 
RET 
NUM_TRANS ENDP 
RESULTS ENDP_ 
Abt a at am stasembanacnGuiedesceWancwnmuocuues 
DISABLE 
: THIS ROUTINE WILL DISABLE ALL INTERRUPTS EXCEPT FOR 
; INTERRUPT 6 SO WATCH DOG TIME OUT CAN OCCUR IN ERROR 
3 CONDITIONS. 
5 INPUT 
3 
3 OUTPUT 
t 
3 
3 


DISABLE PROC NEAR 
SH 


AX 
—_ ALL INTERRUPTS AT THE 8259 LEVEL EXCEPT DISKETTE 
? perenne AL, INTAO READ CURRENT Mt 
IN thbeded ax } SAVE FASK-ON THE SPACE ALLOCATED 
; ON THE STACK 
Nov AL OBFH i MASK OFF ALL INTERRUPTS EXCEPT 
our —sTNTAQL,AL } QUTPUT MASK TO THE 825 
CALL. SOUND_SETUP =, SETUP REGISTERS TO RECESS BUFFER 
ie 
R 
DISABLE LO ER oe nee ee 


1 ENABLE proc ENABLES ALL INTERRUPTS. IT ALSO SETS THE 8253 TO 
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0414 
0414 


0415 
0417 
041g 
O41A 


O41B 
0410 
O4lF 
0420 
0421 


6425 


0426 
0428 
O42A 


0428 
042D 
062F 


0431 


0434 
0436 
04637 
0438 
6439 
O43A 


59 
cs 


76 
43 


FF 
41 
41 
46 10 
62 
01 
ao 
ao 
46 10 
21 


4E 00 
El SF 
01 
Eo 


OF 


THE MODE REQUIRED FOR KEYBOARD DATA DESERIALIZATION. 
BEFORE THE LATCH FOR KEYBOARD DATA IS RESET, BIT 0 OF THE 


8255 IS READ TO DETERMINE WHETHER ANY KEYSTROKES OCCURED 
WHILE THE SYSTEM WAS MASKED OFF. 
3 «INPUT 


3 

3 

, 

3 

; OUTPUT 
3 AL=1 MEANS A KEY WAS STRUCK DURING DISKETTE I70. (OR NOISE 
; MEANS THAT NO KEY WAS PRESSED 

3 AL=0 ME ° 

3 AX IS DESTROYED. ALL OTHER REGISTERS REMAIN INTACT. 


ENABLE PROC NEAR 
PUSH X 3 SAVE DX 
gww~o-= RETURN TIMER] TO STATE NEEDED FOR KEYBOARD 1/0 
MOV AL,O1110110B 3 
Stee eet 
Ss 
PoP AX + WAIT FOR 8253 TO INITIALIZE 
3 ITSELF 
MOV AL, OFFH 3 INITIAL VALUE FOR 8253 
QUT TIMER+1,AL > LSB 
PUSH AX 
OUT TIMER 1,AL ; nss 
+1, 3; MS 
gwownwn= CHECK IF ANY KEYSTROKES OCCURED DURING DISKETTE TRANSFER 
MoV ES,(CBP+16) + GET ORIGINAL ES VALUE FROM THE 
3 STACK 
IN AL,62H 3 READ PORT C OF 8255 
AND AL,O1H 3 BIT=1 MEANS KESTROKE HAS OCCURED 
PUSH AX 3 SAVE IT ON THE STACK 
gowmn-~ ENABLE NMI INTERRUPTS 
IN AL,NMI_PORT + RESET LATCH 
Mov AL,80H 3 MASK TO ENABLE NMI 
OUT NMI_PORT,AL + ENABLE NMI 
3S-<ss ENABLE ALL INTERRUPTS WHICH WERE ENABLED BEFORE TRANSFER 
MOV AX, (BP+16) 3 GET MASK FROM THE STACK 
ouT INTAO1,AL 
POP Ax 3 PASS BACK KEY STROKE FLAG 
me 


RET 
ENABLE ENDP 


3CLOCK_WAIT ~ 
3 


THIS PROCEDURE IS CALLED WHEN THE TIME OF DAY 


IS BEING UPDATED. IT WAITS IF TIMERO IS ALMOST 
Pincer WRAP UNTIL IT IS SAFE TO READ AN ACCURATE 


we we ee 


sINPUT 


i NONE. 
sOUTPUT 
3 


PROC NEAR 
R AL,AL 3 READ MODE TIMERO FOR 8255 
ouT TIM_CTL,AL ¢ OUTPUT TO THE 8253 
PUSH Ax 
PoP AX 


3 WAIT FOR 8253 TO INITIALIZE 
3 ITSELF 
IN AL, TIMERO 3 READ LEAST SIGNIFICANT BYTE 
XCHG AL, AH 3 SAVE IT 
1H AL, TIMERO + READ MOST SIGNIFICANT BYTE 
XCHG AL, AH 3 REARRANGE FOR PROPER ORDER | 
CMP AX, THRESHOLD + IS TIMERO CLOSE TO WRAPPING? woLts 
ee CLOCK_WAIT 3 JUMP IF CLOCK as SUTN THRES 
T 


ASELOeivg Re reeeesecrencemnamnamtn rege 
; THIS ROUTINE WIL FOR THE DRIV 
1S SELECTED By Th CALCULATE A BIT MASK FO 


, 

HH 

; IN THE MASK, I.E. DRIVE ZERO 

; CORRESPOKDS TO BIT ZERO AND A O1H IS RETURNED. THE BIT IS 
3 GALCULATED BY ACCESSING THE PARAMETERS PASSED TO INT 13 
Fimpur MHIECH WERE SAVED ON THE STACK. 


= BYTE PTREBP) MUST POINT To DRIVE FOR SELECTION. 
: Egat AL CONTAINS 


SE CONTAINS THE BI ALL OTHER REGISTERS ARE INTACT _ 
ENDO RS i 
SH eX 
3 SAVE REGISTER. 
ano gUUBYTE,PTRCBeD ToHORE y° nine PARAMETER 
~DBL_ s IGNORE J SUPPOR 

mah + INITIALIZE AL WITH VALUE FOR 

SHL 3 SHIFTING 

; ALCL i SHIFT BIT POSITION ay Oey 

4 1 NUMBER WH RA : 

D AL. DRV_suPPor + ORLY FOUR DRIVES ARE SUPPORTED. 

POP cy + RANGE CHECK 

RET 
GET_orive a 5 RESTORE REGISTERS 
e Shey OS ities 
; THIS Rout 
i TNE wit 

TO THE 4 L MOVE THE vE 
3 AMED TRA EAD OH THE NAMED ORI 

SINCE THe CK. IF THE p CESSED 
3 DRI RIVE HAS HOT BEEN AC BE 
b aNPur RECALIBRATED, © RESET COMMAND WAS ISSUED, THE DRIVE WILL 


(DL) = DRIVE 19 SEEK on 
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OO74 R 
0 
c 
El OOFF 
Fl 
co 


O4FO R 

os QOSE R 
06 OOSE R 
3c 00 

30 

07 

0307 R® 

E2 

O307 R 


O378 R 

19 

06 0041 R 00 
05 

OSFO R 

07 

O307 R 


€2 


0307 ® 
O378 R 
48 


12 
O4F9 R 


46 00 40 
02 

re 

0307 R 

O378 Rk 


04 FF 


Fy 


; (CH) = TRACK TO SEEK TO 
3 (BP) = BIT 6 :1 80 TRACK MEDIA 
3 BIT 6 :0 40 TRACK 
+ OUTPUT 
3 CY = 0 SUCCESS 
3 CY = 1 FAILURE ~- DISKETTE_STATUS SET ACCORDINGLY 
; (AX) DESTROYED 
Peshoncecnascvoteed eet ecegausen es ceeeaeeese idveienten 
SEEK PROC NEAR 
PUSH SI 3 SAVE REGISTER 
pusH ax 3 SAVE REGISTER 
MoV st, OFFSET TRACKO ; BASE OF CURRENT HEAD POSITIONS 
MOV tl 3 ESTABLISH MASK FOR RECAL 
MOV tt! DL 3 USE DRIVE AS A SiTFT COUNT 
AND CX, OFFH 3 MASK OFF HIGH BYT 
ADD $I, x 3 POINT SI AT CORRECT DRIVE 
ROL AL, 3 GET MASK FOR DRIVE 
gomen-- SI CONTAINS OFFSET FoR CORRECT DRIVE, AL CONTAINS BIT MASK 
3 IN POSITION 0,1 OR 
PoP cx 3 RESTORE PARAMETER REGISTER 
MOV BX,QFFSET PJ32 3 SET UP ERROR RECOVERY ADDRESS 
PUSH BX 3 NEEDED FOR ROUTINE NEC_OUTPUT 
TEST SEEK_STATUS,AL 3 TEST DRIVE FOR RECAL 
JNZ PJ28 3 NO_RECAL 
OR SEEK_STATUS,AL ; TURN ON THE NO RECAL BIT IN FLAG 
CMP BYTE PTR(SIJ,0 5 LAST REFERENCED TRACK=0? 
Jz PJ28 + YES IGNORE RECAL 
MOV AH, 07H 3 RECALIBRATE COMMAHD 
CALL NEC_OUTPUT 
MOV AH, bt 3 RECAL REQUIRED ON DRIVE IN DL 
CALL NEC_O 3 OUTPUT THE DRIVE HUMBER 
goo---- HEAD IS MOVING. TO CORRECT TRACK 
3 HOOK FOR 40 TRACK TO 80 TRACK SUPPORT 
CALL CHK_STAT_2 3 CHECK STATUS 
SNC ROYT 3 LEAVE ONE MORE CHANCE FOR RETRY 
MOV DISKETTE_STATUS,0 ;CLEAR STATUS 
MOV AH,5 sSET PARM AS 5 MILL 
CALL DELAY_K_MS sWAIT SUB 
MOV AH, 07H sRECABRATE COMMAND 
CALL NEC_OUTPUT 30U 
MOV AH, DL sRECAB DRIVE IW DL 
CALL NEC_OUTPUT 30UT 
CALL CHK_STAT_2 sCHECK STATUS 
_— Jc PJ32_2 sIF ERROR, JUMP TO SET CARRRY 
3 
MOV AH,1 sRETRY OK WAIT UNTILL SETTLE 
CALL DELAY_N_MS 31X 
3 DRIVE IS SYNC WITH CONTROLLER, SEEK TO TRACK 
3 SEEK READY ; 
MOV BYTE PTR(SI),0 
b~---- DRIVE IS IN SYNCH WITH CONTROLLER, SEEK TO TRACK 
PJ28: Mov AL.BYTE PTRISI} 3 GET THE P 
SUB AL.CR 3 GET SEEK Mair VALUE 
JZ PJ31_1 3 ALREADY ON CORRECT TRACK 
MoV AH, OFH 3 SEEK COMMAND TO HEC 
CALL NEC_OUTPUT 
HOV AK, DL + DRIVE NUMBER 
CALL NEC_OUTPUT 
PUSH c SAVE FOR DOS 
TEST BYTE PTR (BP), esi 3 IF DOUBLE TRACK PARAMETER 
JRE GO_SEEK LEAVE PARAMETER AS IS 
PCJR: = SHL 2 ; MULTIPLY BY TWO WHEN 40 TRACK MEDIA 
GO_SEEK: MOV AH,CH 3 TRACK NUMBER 
CALL NEC_OUTPUT 
POP cx 3 RESTORE FOR DOS 
CALL CHK_STAT_2 3 GET ENDING INTERRUPT AND SENSE 
> STATU 
goove> WAIT FOR HEAD SETTLE 
PUS + SAVE STATUS FLAGS 
PUSH cx 3 SAVE REGISTER 
MoV BL.18 3 HEAD SETTLE PARAMETER 
CALL GET_PARM 
PJ29: 3 NEAD_SETTLE 
MoV CX,550 + 1 MS Coop 
OR AW, AH 3 TEST FOR TIME EXPIRED 
J2 PJ31 
PJS0: LOOP PJ30 3 DELAY FOR 1 MS 
DEC AK 3 DECREMENT THE COUNT 
JMP PJ29 3 DO IT SOME MORE 
PJ31: POP cx 3 RESTORE REGISTER 
POPF 
Jc PJ32_2 
MoV BYTE PTR{SI),CH 
PJS1_1: POP BX 3 GET RID OF DUMMY RETURN 
PJ32: 3 SEEK_ERROR 
PoP BX 3 RESTORE REGISTER 
POP $I 3 UPDATE CORRECT 
RET RETURN TO CALLER 
PJ32_2: MOV BYTE PTRESI), Rae tte STATUS ABOUT SEEK 
PoP BX 3 GET RID OF DUMMY RETURN 
JMP SHORT PJ32 
SEEK ENDP 


DEOO: MoV 
OR 


JZ 
DE20: LOOP 
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3 
, 
; 
; 
; 


3 INPUT = AH: N OMILL SEC WAIT 
DEAT AACT Je kee NEAR 
USH 


SOFTWARE TIMER 
JX 


+ JX 


Jx 
JX 
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FE 
EB 


C3 


cc 
FS 


GOOU E 
Ec 

46 OA 

48 

46 08 

GCLE2 R 


40 
0228 R 
3B 


46 08 0227 x 
SE OC 0001 


OE 0041 R oy 
3 

CE 0041 R ag 
06 003E R 09 
00F2 

066E R 


20 
20 


DEC AH s JX 
JMP DEOO 3 JX 
DE40: POP cx 3 JX 


RET 
DELAY_N_MS ENDP 


} DISK_BASE 

+ THIS IS THE SET OF PARAMETERS REQUIRED FOR 

+ DISKETTE OPERATION. THEY ARE POINTED AT BY THE 
3 

3 


DATA VARIABLE DISK_POINTER. TO MODIFY THE PARAMETERS, 
BUILD ANOTHER PARAMETER BLOCK AND POINT AT IT 


DISK_BASE. «LABEL. BYTE. 
Ds 112011118 } SRI=E, HD UNLOAD=OF - 1ST SPECIFY 
3 BYTE 
DB 3 } HD LOAD=1, MODE=NO DMA - 2ND 
3 SPECIFY BYT 
DB MOTOR_WAIT 3 WAIT AFTER OPN TIL MOTOR OFF 
DB 2 3 512 BYTES/ 
DB 9 3 EOT ( LAST SECTOR ON TRACK) 
DB O2AH 3 GAP LENGTH 
DB OFFH 3 DTL 
DB (Oren SILL BYTE FoR Foneay” 
DB OF6H 3 FILL BY 
DB 15 3 HEAD SETTLE TIME (MILLISECONDS) 
DB 3 MOTOR START TIME (1/8 SECONDS) 
; DISKINT. Re ge 
3 DISK_ 
; THIS ROUTINE HANDLES THE DISKETTE INTERRUPT. AN INTERRUPT 
3 WILL OCCUR ONLY WHEN THE ONE-SHOT TIMER IS FIRED. THIS N 
; OCCURS IN AN ERROR SITUATION, THIS ROUTINE SETS ERRORS I 
3 THE DISKETTE STATUS BYTE AND DISABLES THE ONE-SHOT ual 
i THEN THE RETURN ADDRESS ON THE STACK IS CHANGED TO RETUR 
Fi TO THE OP_END LABEL. 
+ INPUT 
+ urpurtONe: 
; u 
; NONE. DS POINTS AT BIOS DATA AREA. CARRY FLAG IS SET SO 
3 THAT ERROR WILL BE CAUGHT IN THE ENVIRONMEMT RETURNED TO. 
DISK_INT PROC FAR 
PUSH bs, 
PUSH AX 
PUSH OBE } SAVE THe bP eeorsveR 
U P 38 
CALL DDS 3 SETUP DS TO POINT AT BIOS DATA 
sovvo-~ CHECK IF INTERRUPT OCCURED IN INTIS OR WHETHER IT IS A 
; SPURIOUS INTERRUPT 
MOV BP,SP + POINT BP AT STACK 
PUSH cs 3 WAS IT IN THE BIOS AREA 
POP AX 
CHP = AX, WORD PTREBP+103 ; GET INTERRUPTED SEGMENT 
JHE DES 3 NOT IN BIOS, ERROR CONDITION 
MOV AX, WORD PTR(BP+8) ; GET IP ON THE STACK ISK 
CMP = AX, OFFSET VERIFY_LOOP ; RANGE CHECK IP FOR D 
| TRANSFER 
Jt DI3 + BELOW TRANSFER CODE 
CHP 


AX, OFFSET OP_END+1 ; UPPER RANGE OF TRANSFER CODE 


JG DIS + ABOVE RANGE OF WATCHDOG TERRAt 
bmwm="--VALID DISKETTE INTERRUPT CHANGE RETURN ADDRESS ON STACK 
3 PULL OUT OF Loop 


mov WORD PTRBP+8), OFFSET OP_END 
OR WORD PTR(BP+12},1 ; TURN-ON CARRY FLAG IN FLAGS ON 

os i. a 

3 MUMNOTEKnx 

j WaTRITE PROTECTED DISKETTE WILL ALWAYS GET STUCK IN WRITE LOOP 

j PIREING FOR BEGINNING OF EXECUTION PHASC™ GMC ’TER UeteRDDG - 

brates NOT Fup Aus IN PORT HEC_STAT = DXH (X gta 

; PH : 

3 AND WRITE PROTEC Oke "hon ABLES THE 


i AND WRITE PR T 1S CHECKED For. Ssen=ee== 
mov DX,KEC_STAT 
Ik AL, DX § GET NEC STATUS BYTE 
ae AL, OFOH 3 MASK HIGH NIBBLE 
Gre «AL ODOH b IS EXECUTION PHASE DONE 
if DI1 } STUCK IM LOOP 
L RESULTS § GET STATUS OF OPERATION 
Mov SI,OFFSET HEC_status ; ADDRESS OF BYTES RETURNED BY 
3s NEC 
MOV AL, ESt41) + GET ST 
1 
Test AL 02H > WRITE PROTECT SIGNAL ACTIVE? 
i B 1 } TIME OUT ERROR 
a SHORE. DEgSTATUS WRITE PROTECT 
pris VME our ERROR 
SKETTE STATUS, TIME 
sh , our 
en he THEEES STATUS, Os SET RECAL ON DRIVES 


D2: oy E NEC AND 


DISABLE WATCHDOG 
PoP DX» MEC_CTL ; 


ADDRESS TO NEC CONTROL PORT 
; POINT BP AT BASE OF STACKED 
3 PARAMETERS 

+ RESET ADAPTER AND DISABLE WD 
) RESTORE FOR RETURNED CALL 


1G 
pop ENTAOO, at IVE EOI 10 8259 


PUSH GET_ORIVE 
DIS: nov DX, AL 


POPS 
IRET 5 RETURN FROM INTERRUPT 
DISK_INT ENDP 
oe Oe a ee a 
3RS232_10 
; THIS ROUTINE PROVIDES BYTE STREAM 170 TO THE COMMUNICATIONS 
; PORT ACCORDING TO THE PARAMETERS: 
; (AH)=0 INITIALIZE THE COMMUNICATIONS PORT 
; (AL) HAS PARMS FOR INITIALIZATION 
jeceJo------ 6------- 5------- §------- 3------- 2--------- 1-------0--~- 
jonneenee BAUD RATE 2=-13~--2PARITY=~=217°STOPBIT=11°MORD LENGTHo= 
000 - 110 X0 - NONE 0-1 10-7 BITS 
001 - 150 01 - ODD 1-2 11-8 BITS 
010 - 300 11 - EVEN 
O11 - 600 
100 - 1200 
101 - 2400 
110 - 4800 
111 - 6800 


ON RETURN, THE RS232 INTERRUPTS ARE DISABLED AND 
CONDITIONS ARE SET AS IN CALL TO COMMO 
STATUS CAH=3) 
CAH)=1 SEND THE CHARACTER IN CAL) OVER THE COMMO LINE 
aal} REGISTER IS PRESERVED 
EXIT, BIT 7 OF AH IS SET IF THE ROUTINE WAS 
UNABLE TO TRANSMIT THE BYTE OF DATA OVER 
THE LINE. IF BIT 7 OF AH IS NOT SET, THE 
REMAINDER OF AH IS SET AS IN A STATUS 
tne cine: REFELECTING THE CURRENT STATUS OF 


THE 

CAH)=2 RECEIVE A CHARACTER IN (AL) FROM COMMC LINE BEFORE 
RETURNING TO CALLER 

ON EXIT, AH HAS THE CURRENT LINE STATUS, AS SET BY 

THE STATUS ROUTINE, EXCEPT THAT THE ONLY 
BITS LEFT ON, ARE THE ERROR BITS 
(7,4,3,2,1)._IM THIS CASE, THE TIME OUT BIT 
INDICATES DATA SET READY WAS NOT RECEIVED. 
THUS, AH IS NON ZERO ONLY WHEN AN ERROR 
OCCURRED.(NOTE: IF THE TIME-OUT BIT IS SET, 
OTHER BITS IN AH MAY NOT BE RELIABLE.) 

CAH)=3 RETURN THE COMMO PORT STATUS IN (AX) 

a CONTAINS wie LINE CONTROL STATS 


ee ee ee ee ee ee es 


IT 7 = TIME 0 
BIT 6 = TRANS. SHIFT REGISTER EMPTY 
BIT 5 = TRAN HOLDING REGISTER EMPTY 
BIT 4 = BREAK DETECT 
BIT 3 = FRAMING ERROR 
BIT 2 = PARITY ERROR 
BIT 1 = OVERRUN ERROR 
BIT 0 = DATA READY 
AL_CONTAINS THE MODEM S$ 

T 7 = RECIEVED LINE SIGNAL DETECT 
BIT 6 = RING INDICATOR 
BIT 5 = DATA SET READY 
BIT 4 = CLEAR TO SEND 
BIT 3 = DELTA RECEIVE LINE SIGNAL DETECT 
BIT 2 = TRAILING EDGE RING DETECTOR 
BIT 1 = DELTA DATA SET READY 

IT 0 = DELTA CLEAR TO SEND 


BIT D 
(DX) = PARAMETER INDICATING WHICH RS232 CARD (0,1 ALLOWED) 
DATA AREA RS232 BASE CONTAINS THE BASE ADDRESS OF THE 8250 ON THE 
CARD. LOCATION 400H CONTAINS UP TO 4 RS232 ADDRESSES POSSIBLE 
DATA AREA RS232_TIM_OUT (BYTE) CONTAINS OUTER LOOP COUKT 
VALUE FOR TIMEOUT (DEFAULT=1) 


ee ee ee 


sOUTPUT 
MODIFIED ACCORDING TO PARMS OF CALL 
At OTHERS UNCHANGED 
Br rw ee ee ew eee eee wne ewooeosoeoeece 
ASSUME CS: CODE, OS:DATA 
al LABEL WORD 
OW 1017 3 110 BAUD 3 TABLE OF INIT VALUE 
OW 746 3 150 
OW 373 3 300 
OW 186 3 600 
OW 93 3 1200 
OW 47 + 2400 
DW 23 3 4800 
OW 23 H “i 
RS232_10 PROC FAR 
e---== VECTOR TO APPROPRIATE ROUTINE 
STI 3 INTERRUPTS BACK ON 
PUSH os 3 SAVE SEGMENT 
PUSH Dx 
PUSH SI 
PUSH br 
PUSH cx 
PUSH Bx 
MoV $1,DX 3 RS232 VALUE TO S$ 
MoV DI,DX + AND TO DI (FOR Timeouts) 
SHL SI.1 3 WORD OFFSET 
CALL oos 3 POINT TO BIOS DATA SEGMENT 
MOV DX,RS232_BASECSI) 5 GET BASE ADDRESS 
OR DX, DX + TEST FOR 0 BASE ADDRESS 
JZ As 3 RETURN 
OR AH, AH + TEST FOR CAH)=Q 
JZ a4 3 COMMUN INIT 
DEC AH i TEST FOR CAH)=1 
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0698 


D2 C2 

81 E2 OO0E 
BF 0575 R 

O3 FA 

8B 94 6000 8 
62 

2E: 8A 45 01 
133 


GA 
2E: 8A 05 
cE 


42 

42 

B? 36 

E8 O64E R 
74 08 

39 

8A Cl 

80 CC 80 
EB AC 


4A 
B? 20 


E8 O64E R 
75 FO 

83 EA 05 
59 

3a C1 


EE 
EB 9B 


83 C2 04 
Bo e1 


Fé 06 0071 R 89 


8A £0 
88 94 Oooo R 
Ec 


E9 OSBo R 


8B 94 0000 R 
83 C2 05 
Ec 


E9 oSBo R 


AS: 


A4: 


powee-e 


AS: 


AT: 
AB: 
AY: 


Al6: 


Al?: 


JZ AS ¢ SEND AL 

DEC AH 3 TEST FOR (AH)=2 

IZ Al2 3 RECEIVE INTO AL 

DEC Au 3 TEST FOR CAH)=3 

JINZ a3 

JMP Alg + COMMUNICATION STATUS 
3 RETURN FROM RS232 

POP BX 

PoP cx 

PoP oI 

PoP ST 

PoP DX 

PoP DS 

IRET $ RETURN TO CALLER, NO ACTION 

ata INITIALIZE THE COMMUNICATIONS PORT 

MOV AH, AL ¢ SAVE INIT PARMS I 

ADD DX,3 


3 
MoV AL, 80H 


OUT DX,AL 3 
DETERMINE BAUD RATE DIVISOR 
MOV DL.AH ; 


mov CL.4 _ 
ROL DL.CL 
AND DX, OEH 


° 
MoV DI.OFFSET Al 3 
ADD DI,DX 3 
MOV DX,RS232_BASE(SI] 
INC DX 
MoV AL.CS:(DIJ+41 3 
our DX,AL ; 
DEC Dx 
MOV AL,CS:(DI} ; 
out DX,AL ; 
ADD Dx,3 
mov AL.AH 3 
AND AL,OLFH ; 
out DX, AL 3 
DEC Dx 
DEC Dx 
MOV AL.O 
OUT DX,AL 3 
JMP SHORT A18 3 C 
SEND CHARACTER IN (AL) OVE 
PUSH Ax ; 
ADD Dx.4 3 
mov AL,S 3 
OUT DX,AL ; 
3 
INC DX ; 
INC DX 
MoV 


BH, 30H ; 
CALL WATT_FOR_STATUS ; 


PoP cx 
MoV AL,CL 
OR AH,80H 
JMP AS 


DX 
MoV BH, 20H 


we we we we we we 


CALL HATT_FOR_STATUS ; 


JNZ ; 
SUB DX, 5 ; 
POP cx ; 
MOV ALCL ; 
our DX, AL ; 
JMP 


NAH 
POINT TO 8250 CONTROL REGISTER 
SET DLAB=1 
GET PARMS TO DL 


ISOLATE THEM 

Pa tio AR ascisren 

UT I 

+ POINT TO HIGH ORDER OF DIVISOR 


GET HIGH ORDER OF DIVISOR 
SET MS OF DIV TO 0 


GET LOW ORDER OF DIVISOR 
SET LOW OF DIVISOR 


GET PARMS BACK 
STRIP OFF THE BAUD BITS 
LINE CONTROL TO 8 BITS 


INTERRUPT ENABLES ALL OFF 
‘OM_STATUS 
R COMMO LINE 


SAVE CHAR TO SEND 
MODEM CONTROL REGISTER 
DTR AND RTS 


DATA TERMINAL READY, REQUEST TO 
SEND 
MODEM STATUS REGISTER 


DATA SET READY & CLEAR TO SEND 
ARE BOTH TRUE? 


YES, READY TO TRANSMIT CHAR 


RELOAD DATA BYTE 
INDICATE TIME OUT 
RETURN 
CLEAR_TO_SEND 

LINE STATUS REGISTER 
IS TRANSMITTER READY 


TEST FOR TRANSMITTER READY 
RETURN WITH TIME OUT SET 
DATA PORT 


+ RECOVER IN CX TEMPORARILY 
+ MOVE CHAR TO AL FOR OUT, STATUS 
3 IN AH 


OUTPUT CHARACTER 
R 


+ RETURN 
RECEIVE CHARACTER FROM COMMO LINE 
ADD DX.4 


MOV At y 
OUT sax‘ 
INC x ; 
INC x 
Be Mee uu 
AIT_F 
Gust HATT_FoR_status 
DEC py ; 
1H AL, DX 
TEST aL} ; 
SNZ Aad ; 
TEST BIOS BREAK,80H 
SMP Ag ; 
AND AL oooLaa10n 
MOV AH aL ; 
Ty’ «OX RS232_easetszy 
AL; DX 
Ba 7 
PORT StatUS RoUTIKe 
MOV "DX, RS25 sti 
ip Bet 2PASELSII 
IN ALIX } 
H AKGAL i 
. 
dnp AL Ox 5 
were e H 
WATT FOR statys co 77777 


T For STATUS ROUTINE 
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MODEM CONTROL REGISTER 
DATA TERMINAL READY 


MODEM STATUS REGISTER 


DATA SET READY 

TEST FOR DSR 

RETURN WITH ERROR 
LINE STATUS REGISTER 


RECEIVE BUFFER FULL 

TEST FOR REC. BUFF. FULL 
TEST FOR BREAK KEY 

LOOP _IF NO BREAK KEY 

SET TIME OUT ERROR 


ret FOR ERROR CONDITIONS ON RECV 
HAR 


i DATA PORT 
GET CHARACTER FROM LINE 
RETURN 


CONTROL PORT 
1 EIA PeaTrek Stats 

AH FOR RETU 
POINT TO MODEM STATUS REGISTER 
GET MODEM CONTROL STATUS 
RETURN 


0697 


c4 


9D OO7C R 
cy 


Eo 
Cc? 
c7 


0000 E 
26 0071 R TF 
0677 R 


0002 


mone 
onmue 


61 


ZENTRY: 
jexit: 


BH=STATUS BIT(S) 19 LOOK FOR, 
OX=ADDR. OF STATUS REG 

ZERO FLAG OK = STATUS FOUND 
ZERO FLAG OFF = TIMEOUT. 
AH=LAST STATUS READ 


WAIT_| FOR ae PROC 


NEAR 
BL,RS232_TIM_OUT(DI] ;LOAD OUTER LOOP COUNT 


WFSO: SUB CX,CX 
WFSi: IN AL, DX 3GET STATUS 

MOV AH, AL 3 MOVE TO AH 

AND AL, BH sISOLATE BITS TO TEST 

AL, BH sEXACTLY = TO MASK 

RS232.1KC 

JE WFS_END PRETURN | WITH ZERO FLAG ON 

Loop WFST sTRY A 

DEC BL 

JNZ WFSO 

OR BH, BH 3S€T ZERO FLAG OFF 
WFS_END: 


RET 
WAIT_FOR_STATUS ENDP 


RS232_10 


ENDP 


rr em ewww we ww nn nee nee enn nnn ewww nee ee eee 


AH) = Q TURN CASSETTE MOTOR ON 
CAH) = 1 TURN CASSETTE MOTOR OFF 
(AH) = 2 READ 2 OR MORE 256 BYTE BLOCKS FROM CASSETTE 
CES,BX) = POIKTER TO DATA BUFFER 
(ex) = COUNT OF BYTES TO READ 
ON EXIT 


CES,BX) = POINTER TO LAST BYTE READ + 1 
(DX) = COUNT OF BYTES ACTUALLY READ 


(CY) = 0 IF NO ERROR OCCURRED 
= 1 IF ERROR OCCURRED 
CAH) = ERROR RETURN IF (CY)= 1 


01 IF CRC ERROR WAS DETECTED 

O2 IF DATA TRANSITIONS ARE LOST 

04 IF NO DATA WAS FOUND 

CAH) = 3 WRITE 1 OR MORE 256 BYTE BLOCKS TO CASSETTE 
CES,BX) = POINTER TO DATA BUFFER 
(CX) = COUNT OF BYTES TO WRITE 


tens emg POINTER TO LAST BYTE WRITTEN + 1 


(an = ANY OTHER THAN ABOVE VALUES CAUSES (CY)= 1 
AND CaHD= 80 TO BE RETURNED (INVALID COMMAND). 


ON EXIT 


UME ODS: DATA, mae NOTHING, SS: NOTHING, CS: CODE 


ASS 
CASSETTE_I10 PROC 


RET 2 
CASSETTE_10 ENDP 
wl Proc 


STI 3 INTERRUPTS BACK 0 

PUSH DS 3 ESTABLISH ADDRESSING TO DATA 
CALL DDS 

AND BIOS_BREAK, 7FH ; MAKE SURE BREAK FLAG IS OFF 
pace A 3 CASSETTE_IO_CONT 


3 INTERRUPT RETURN 
NEAR 


3 PURPOSE: 


{ES See eee 


; He CALL a ae ROUTINE DEPENDING ON REG AH 


; 0 MOTOR ON 
31 MOTOR OFF 
3 2 READ CASSETTE BLOCK 
+ 3 WRITE CASSETTE BLOCK 
festicbewewsdeccsccnnucconse evowesetUussuscssecuceceucucs 
OR AH, AH 3 TURN ON MOTOR? 
a 4 NOTOR_ON 3 YES, DO 
DEC AH 3 TURN OFF. MOTOR? 
a 4 MOTOR_OFF 3 YES, DO IT 
DEC AH + READ CASSETTE BLOCK? 
Jz READ_BLOCK + YES, DO I 
DEC AH 3 WRITE Gueserre BLOCK? 
JNZ W2 3 NOT_DEFI 
IMP WRITE_BLOCK 3 YES, DO It 
W2: 3 COMMAND NOT DEFINE 
MoV AH. 080H 3 ERROR, pPNDEFINED OPERATION 
STC 3 ERROR F 
RET 
wl ENDP 
MOTOR_ON PROC NEAR 
pauenceeese Sdiwen te wecnouecele aetiasastee 
1 PURPOSE: 
3 TO TURN ON CASSETTE MOTOR 
iuseeesaroticcocse oon senen sosencoeduace 
NW Al, PORT 8 3 “READ CASSETTE OUTPUT 
AND AL.NOT O8n 3 CLEAR BIT TO TURN ON MOTOR 
WS: ouT PORT_B,AL 3 WRITE IT OUT 
aye AH, AW 3 CLEAR AH 
1 
MOTOR_ON ENDP 
mOTOR. ~ OFF PROC NEAR 
+ PURPOSE: : 
3 TO TURN CASSETTE MOTOR OFF t 
osstevereceseesencesseccce Sebo ee, oe 
1" Al, PORT_8- 3 READ CASSETTE OUTPUT 
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0699 OC 08 
069B EB FS 


O6A0 BE 0007 
O6AS E& O85D R 


O6AG ES 62 
O6A8 24 10 


GGAA A2 006B R 
BA SF7A 


06B0 FG 06 0071 R 80 
5 03 


0688 75 63 
O6BA E9 O73C R 
06RD E8 O77C R 
O6CO E3 EE 
06C2 BA 0378 
O6CS B89 0200 


O6C9 FG 06 0071 R 80 
6c 

06Dl =E8 O77C R 
cs 


0607 74 cD 
06D9 3B ODS 
O6DB ES 04 
Q6DD 73 ¢7 


OGDF E2 Es 


OGEL 72 && 


OES £8 C770 R 
OGEG EB ae R 


OGEB 75 49 
O6ED SE 
OGEF 58 


C6Fe 51 
OGFL C7 06 bos R 
O6F7 BA 0100 mete 
O6FA FG 06 0071 R 

75 23 - 
9701 €8 OM4E R 

72 1E 
0706 «E305 


0708 cg 88 07 
O70C «49 


070D GA 
O70E 7F EA 


AL, 08H 3; SET BIT TO TURN OFF 
SRP ws. i WRITE IT, CLEAR ERROR, RETURN 
MOTOR_OFF ENDP 
READ_BLOCK PROC NEAR 


3 PURPOSE: 
3 TO READ 1 OR MORE 256 BYTE BLOCKS FROM CASSETTE 

3 

3 ON ENTRY: 

H ES IS SEGMENT FOR MEMORY BUFFER (FOR COMPACT CODE) 
3 BX POINTS TO START OF MEMORY BUFFER 

3 CX CONTAINS NUMBER OF BYTES TO READ 

3 ON EXIT: 

H BX POINTS 1 BYTE PAST LAST BYTE PUT IN MEM 

3 CX CONTAINS DECREMENTED BYTE COUNT 

3 DX CONTAINS NUMBER OF BYTES ACTUALLY READ 

; 

3 


CARRY FLAG IS CLEAR IF NO ERROR DETECTED 
CARRY FLAG IS SET IF CRC ERROR DETECTED 


PUSH BX 3 SAVE BX 
en : hve & 
3 SAVE § 
MoV SI, 7 3 SET UP RETRY COUNT FOR LEADER 
CALL BEGIN_OP 3 BEGIN BY STARTING MOTOR 
Was: + SEARCH FOR LEADER 
IN AL, PORT_C 3 GET INITIAL VALUE 
AND AL, 010H 3 MASK OFF EXTRANEOUS BITS 
Mov LAST_VAL,AL 3 SAVE IN LOC LAST_VAL 
Mov DX, 16250 3 @ OF TRANSITIONS TO LOOK FOR 
WS: + WAIT_FOR_EDGE 
TEST BIOS_BREAK, 80H ; CHECK FOR BREAK KEY 
INZ W6A 3 JUMP IF NO BREAK KEY 
+ JUMP IF BREAK KEY HIT 
DEC DX 
JNZ W7 3 JUMP IF BEGINNING OF LEADER 
W6A: JMP wi? 3 JUMP IF NO LEADER FOUND 
W?: CALL READ_LHALF_BIY =; IGNORE FIRST EDGE 
nay” Bh.o37 ; tHeee Fon wipes apaseeTe 
»0378H + CHECK FOR HAL 
MoV CX,200H s MUST HAVE AT LEAST THIS MANY ONE 
+ SIZE PULSES BEFORE CHCKNG FOR 
3 SYNC BIT (0) 
CLI + DISABLE INTERRUPTS 
W8: 3 SEARCH-LDR 
TEST BIOS_BREAK, 80H ; CHECK FOR BREAK KEY 
JNZ wi? 3 JUMP IF BREAK KEY HIT 
PUSH cx 3 SAVE REG Cx 
CALL READ_HALF_BIT 5 GET PULSE WIDTH 
OR cx, Cx 3 CHECK FOR TRANSITION 
PoP + RESTORE ONE BIT COUNTER 
JZ W4 3 JUMP IF NO TRANSITION 
CMP DX, BX 3 CHECK PULSE WIDTH 
JICXZ Wo + IF CX=0 THEN WE CAN LOOK 
3 FOR SYNC BIT (0) 
JNC we 3 JUMP IF ZERO BIT (NOT GOOD 
3 LEADER) 
Loop Ws + DEC CX AND READ ANOTHER HALF ONE 
3 BIT 
W9r 3 FIND-SYNC 
Jc Ws 3 JUMP IF ONE BIT (STILL LEADER) 
Brene- A SYNCH BIT HAS BEEN FOUND. READ SYN CHARACTER: 
CALL READ_HALF_BIT 5 SKIP OTHER HALF OF SYNC BIT (0) 
CALL READ_BYTE + READ SYNC BYTE 
CMP AL, T6H + SYNCHRONIZATION CHARACTER 
JNE W16 3 JUMP IF BAD LEADER FOUND. 
s=~""= GOOD CRC SO READ DATA BLOCKiS) 
POP SI + RESTORE REGS 
POP cx 
PoP 8x 


EO OO OS ws wa vw wien sig Sees meme wn www mmm wee meee wen eee ce noon 


1 OR MORE 25 
WN ENTRO 6 BYTE BLOCKS FROM CASSETTE 


ES IS SEGMENT FoR MEMORY BUFFER (FOR COMPACT CODE) 
BX POIKTS 10 START OF MEMORY BUFFER 
oN exis. CONTAINS NUMBER OF BYTES TO READ 


; 

i 

3 8X POINTS 1 BYTE PAST LAST BYTE PUT IN MEM 
; CX CONTAINS DECREMENTED BYTE COUNT 

- Dx CONTAINS HUMBER OF BYTES ACTUALLY READ 


SKIP REST OF BLOCK 


STORE DATA BYTE AT BYTE PTR 
INC BUFFER PTR 


Tne ES#CXI,aL 


DEC 
Wiz: cx DEC BYTE COUNTER 


sae btOOP UNTIL Dat BLOCK HAS BEEN READ FROM CASSETTE 
4G Wi. ; Rae phbock CHT 


3 SAVE BYTE COUNT 
} aseravie otece'hs tp 
3 YTE BLOCK 
Bay Bec RES. OF FFFH + INIT CRC REG 
Was X,256 ; apt te TO DATA BLOCK SIZE 
+ RD_BLK 
ey RIOS_BREAK, 80H + CHECK FOR BREAK KEY 
CALL READ ay? + JUMP IF BREAK KEY HIT 
Je Wiser re i READ BYTE FROM CASSETTE 
i TRAREL pEMDICATES HO DATA 
Jex IONS 
zw 3 IF WE'VE ALREADY REACHED 
3 END OF MEMORY BUFFER 
Mov : 
i 
A 
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vvvvvSGSY 


51 
B1 


si 


Do 
9E 


E38 
FE 


te 
Fa 
39 
cs 
59 
i 


READ_BYTE 
READ_BYTE 


AH,A 
CRC_REG,1DOFH 
WLS 

W15 


W10 
AH,O1H 


AH 


Dx 
DX,CXx 
AX 
AH, 90H 
Wis 


READ_BYTE 
SHORT W18 


SI 
W17 
W4 


3 


Se i i on or nn 


NOW READ TWO CRC BYTES 


CLEAR AH 

IS THE CRC CORRECT? 

IF NOT EQUAL CRC IS BAD 

IF BYTE COUNT IS ZERO 

THEN WE HAVE READ ENOUGH 

SO WE WILL EXIT 

STILL MORE, SO READ ANOTHER BLOCK 

MISSING-DATA 

HO DATA TRANSITIONS SO 

SET AH=02 TO INDICATE 

DATA TIMEOUT 

BAD-CRC 

EXIT EARLY ON ERROR 

SET AH=01 TO INDICATE CRC ERROR 

RD-BLK-EX 

CALCULATE COUNT OF 

DATA BYTES ACTUALLY READ 

RETURN COUNT IN REG DX 

SAVE AX Mae CODE) 

CHECK FOR ERRORS 

JUMP IF ERROR DETECTED 

READ TRAILER 

SKIP TO TURN OFF MOTOR 

BAD-LEADER 

CHECK RETRIES 

JUMP IF TOO MANY RETRIES 

hs IF NOT TOO MANY RETRIES 
O VALID DATA FOUND 


jeces= aa oi CASSETTE ERROR, I1.&. TIMEOUT 


O74E R CALL 

O76E R CALL 

E4 SUB 

3E 0069 R 1D0F CMP 

06 JNE 

06 JCxz 

cD MP 
WAS: 

01 Mov 
Wid: 

c4 Inc 
W15: 

POP 
DL SUB 

PUSH 
C4 90 TEST 
13 JNZ 
O74E R CALL 
CE IMP 

W16: 

DEC 
os Jz 
0606 R JMP 

W17: 

POP 

POP 
D2 SUB 
04 MOV 

PUSH 

Wi8: - 
I 
0697 R CALL 

POP 
Fe 01 CMP 

CMC 

RET 
READ_BLOCK 
} PURPOSE: 
3 ON 
READ_| BYTE 

PUSH 

08 MOV 
WL9: 

PUSH 
o77C R ee eat 
20 JCXZ 

PUSH 
O77 R CALL 

POP 
19 Jexz 
D8 
FB 06Fo ~~ 

cnc 

LAHF 

POP 
DS RCL 

SAHF 
0849 R CALL 
cs DEC 
EQ JNZ 
cs HOV 

cic 

W20: 

poP 

pop 

RET 

Wis 

i 

$ 
F9 JMP 

READ_BYTE 


cx 
BX 

DX, DX 

AH, 06H 
AX 
MOTOR_OFF 
AX 


AH,O1H 


3 


RESTORE REGS 
RESTORE REGS 


ZERO NUMBER OF BYTES READ 
TIME OUT ERROR (NO LEADER) 


MOT-OFF 

REENABLE INTERRUPTS 

TURN OFF MOTOR 

RESTORE RETURN CODE 

SET CARRY IF ERROR CAH>0) 


FINISHED 


re READ A BYTE FROM CASSETTE 
REG AL CONTAINS READ DATA BYTE 


READ_HALF_BIT 
W21 


Bx 
READ_HALF_BIT 
AX 


W21 
BX, AX 
BX, O6FOH 


cx 


CHL 


CRC_GEN 
cL 


wis 
AL,CH 


cx 
Bx 
cx 


w20 
€NDP 


A-109 


~~ 


We we we we we we we we we we we we we we ws we Be Oe we we OF we we Be OH OF we we we 


we we we we we 


we we we we we 


SAVE REGS BX,CX 


SET BIT COUNTER FOR 8 BITS 
BYTE-ASM 
SAVE CX 


READ ONE PULSE 

IF CX=0 THEN TIMEOUT 

BECAUSE OF NO DATA if RUEETIONS 

SAVE 1ST HALF BIT 

PULSE WIDTH CIN BX ; 

READ COMPLEMENTARY PULSE 

COMPUTE DATA BIT 

IF CX=0 THEN TIMEOUT DUE TO 

NO DATA TRANSITIONS 

PERIOD 

CHECK FOR ZERO BIT 

CARRY IS SET IF ONE BIT 

SAVE CARRY IN AK 

RESTORE CX 

NOTE: 

MS BIT OF BYTE IS READ FIRST. 

REG CH IS SHIFTED LEFT WITH 

CARRY BEING INSERTED INTO LS 

BIT OF CH. 

AFTER ALL & BITS HAVE BEEN 

READ, TRE MS BIT OF THE DATA 

BYTE WILL BE IN THE MS BIT OF 

REG CH 

ROTATE REG CH LEFT WITH CARRY TO 
LS BIT OF REG CH 

RESTORE CARRY FOR CRC ROUTINE 


GENERATE CRC FOR BIT 

LOOP TILL ALL 8 BITS OF DATA 
ASSEMBLED IN REG CH 

Y 

RETURN DATA BYTE IN REG AL 


RD-BYT-EX 
RESTORE REGS CX,BX 


FINISHED 
NO-DATA 
RESTORE CX 
INDICATE ERROR 
RO_BYT_EX 


O7E6 


07€9 
O7EB 
O7EC 
O7EE 


B9 
8A 


C7 
BA 


26: 


13) 
€3 


43 
49 


GA 
7F 


064 
HH 006e KR 


06 0069 R FFFF 
0100 


8A 07 
0815 R 
02 


0 
O815 R 


weeeen wee wenn en meee een new ew www wn ene wn ee wenn 


3 PURPOSE: 
3 TO COMPUTE TIME TILL NEXT DATA 
; TRANSITION CEDGE) 
3 ON ENTRY: 
Hy EDGE_CNT CONTAINS LAST EDGE COUNT 
3 ON EXIT: 
H AX CONTAINS OLD LAST EDGE COUNT 
H BX CONTAINS PULSE WIDTH CHALF BIT) 
Jerre enn nn nnn nnn nnn en nn nnn ee en ee nee 
READ_LHALF_BIT PROC NEAR 
mov CX, 100 3 SET TIME TO WAIT FOR BIT 
mov AH,LAST_VAL + GET PRESENT INPUT VALUE 
W22: 3 RD-H-BIT 
IN AL, PORT_C + INPUT DATA BIT 
AND AL,O10H + MASK OFF EXTRANEOUS BITS 
CMP AL, AH 3 SAME AS BEFORE? 
LOOPE wW22 3 LOOP TILL IY CHANGES 
mov LAST_VAL,AL + UPDATE LAST_VAL WITH NEW VALUE 
mov AL,4OH + READ TIMER'S COUNTER COMMAND 
OUT TIM_CTL,AL 3 LATCH COUNTER 
mov BX, EDGE_CNT 3 BX GETS LAST EDGE COUNT 
IN AL, TIMER+1 3 GET LS BYTE 
mov AH, AL 3 SAVE IN AH 
InN AL, TIMER+1 + GET MS BYTE 
XCHG ALLAH 3 XCHG AL,AH 
SUB BX, AX 3 SET BX EQUAL TO HALF BIT PERIOD 
SEE EDGE_CNT,AX 3 UPDATE EDGE COUNT; 
READ_LHALF_BIT ENDP 


PURPOSE 


3 

; WRITE 1 OR MORE 256 BYTE BLOCKS TO CASSETTE. 

; THE DATA IS PADDED TO FILL OUT THE LAST 256 BYTE BLOCK. 
3 ON ENTRY: 

H BX POINTS TO MEMORY BUFFER ADDRESS 

; CX CONTAINS NUMBER OF BYTES TO WRITE 

’ 


OR EXIT: 
3 BX POINTS 1 BYTE PAST LAST BYTE WRITTEN TO CASSETTE 
5 5 9) RES GRD Ra aE ap ananD 
WRITE_BLOCK PROC —HEAR 
PUSH BX 
PUSH cx 
IN AL, PORT_B + DISABLE SPEAKER 
AND AL,NOT 02H 
OR AC, OL 3 ENABLE TIMER 
OUT —-PORT_B.A 
MOV = AL, OB6H ; SET UP TIMER - MODE 3 SQUARE WAVE 
ouT TIM_CTL,AL 
CALL BEGIN_OP + START MOTOR AND DELAY 
MoV AX,1184 3 SET eleg BIT SIZE 
CALL W31 + SET_T 
MOV CX,0800H 3 SET CX FOR LEADER BYTE COUNT 
W23: ; WRITE LEADER 
stc > WRITE ONE BITS 
CALL WRITE_BIT 
(oop | wW23 } LOOP "TIL LEADER IS WRITTEN 
CLI + DISABLE INTS. 
cLCc 3 WRITE SYNC BIT (0) 
CALL © WRITE_BIT 
POP cx 3 RESTORE REGS CX, BX 
POP BX 
MOV = AL,_16H ; WRITE SYNC CHARACTER 
BAL WANTE BYTE eee 
Seschaeeore FD rn En 
+ PURPOSE 
; WRITE 1 OR MORE 256 BYTE BLOCKS TO CASSETTE 
3 ON ENTRY: 
i BX POINTS TO MEMORY BUFFER ADDRESS 
3 CONTAINS HUMBER OF BYTES TO WRITE 
+ ON EXIT: ve 
; BX POINTS 1 BYTE PAST LAST BYTE WRITTEN TO CASSET 
i 1b ih enesig i eneaor 
WR_BLOCK: a 
MOV = CRC_REG,OFFFFH ; INIT CRC 
MOV BX, 256 ; FOR 256 BYTES 
mass 3 WR-BLK 
cau ALSESsERK) + READ BYTE oe Ne 
_BYTE ; WRITE IT TO CA 
JOxXZ 25 ; UNLESS CX=0, ADVANCE PTRS & DEC 
3 COUNT 
Inc Bx 3 INC BUFFER POINTER 
wos, PEC x ; DEC BYTE COUNTER 
DEC x } DEC BLOCK CNT 
; DEC BLO 
4G 26 ; LOOP TILL 256 BYTE BLOCK 
eeceeteneecis soutees 3 IS WRITTEN TO TAPE we 
+ WRITE CRC sahara SERRA T REARS EE Sao 
i WRITE 1'S COMPLEMENT OF CRC RE 
; G TO CASSETTE 
+ REG ax TS mops RsHECKED FOR CORRECTNESS WHEN THE BLOCK 15 READ 
Ps a eee 
Se www wm wmmmwwn we m ewe ewer eee errr THE 
MOV AX, CRC_REG ; WRITE THE ONE'S COMPLEMENT OF 
WOT a ; TWO BYTE CRC TO TAPE 
PUSH AX + FOR 1*S COMPLEMENT 
Catt AMAL ; WRITE NS BYTE FIRST 
CALL ; 
WRITE_syTE 3 WRITE IT 
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0849 


Al 


0815 R 
c 
D7 


0020 
0820 R 
FA 

Bo 


0001 
0842 
0697 
co 


Es 
08 


DS 


082C R 
0849 R 
c9 
F2 


04A0 
os 
0250 


0069 R 


04 


PoP AX + GET IT BACK 
CALL poate BYTE + NOW WRITE LS BYTE 
OR CX,C. + IS BYTE COUNT EXHAUSTED? 
JNZ WR Stock 3 JUMP IF NOT DONE YET 
PUSH cx” 3 SAVE REG CX 
STI ¢ RE-ENABLE INTERUPTS 
Mov CX, 32 3 WRITE OUT TRAILER BITS 
W26: 3 TRAIL-LOOP 
STC 
CALL WRITE_BIT 
Loop W26 + WRITE UNTIL TRAILER WRITTEN 
POP cx 3 RESTORE REG CX 
MoV AL, OBOH > TURN TIMER2 OFF 
ouT TIM_CTL, AL 
MOV AX, 1 
CALL W31 3 SET_TIMER 
CALL ae as OFF 3 TURN MOTOR O 
SUB AX, AX 3 NO ERRORS REPORTED ON WRITE 
RE 3 FINISHED 
eer BLOCK ENDP 


+ WRITE A BYTE TO CASSETTE. 

: BYTE TO WRITE IS IN REG AL. 

WRITE BYTE PROC NEAR 
PUSH cx SAVE REGS CX,AX 


PUSH AX 
MOV CH,AL 3 AL=BYTE TO WRITE. 
; CMS BIT WRITTEN FIRST) 
MOV CL.8 + FOR 8 DATA BITS IW BYTE. 
+ NOTE: TWO EDGES PER BIT 
W27: 3 DISASSEMBLE THE DATA BIT 
ck CH,1 3 ROTATE MS BIT INTO CARRY 
PUSHF + SAVE FLAGS. 
3 NOTE: DATA BIT IS IN CARRY 
CALL WRITE_BIT + WRITE DATA BIT 
POPF + RESTORE CARRY FOR CRC CALC 
CALL CRC_GEN + COMPUTE CRC ON DATA BIT 
DEC cL + LOOP TILL ALL 8 BITS DONE 
INZ W27 3 JUMP IF NOT DONE YET 
PoP ax + RESTORE REGS AX,CX 
POP cx 
RET 3 WE ARE FINISHED 
WETS AVIS ENDP 
WRITE_ BIT Proc NEAR 
PURPOSE: 


TO WRITE A DATA BIT TO CASSETTE 

CARRY FLAG CONTAINS DATA BIT 

I.E. IF Ser DATA BIT IS A ONE 
IF CLEAR DATA BIT IS A ZERO 


3 

3 NOTE: tue EDGES ARE WRITTEN PER BIT 
; ONE BIT HAS 500 USEC BETWEEN EDGES 

3 FOR A 1000 USEC PERIOD (1 MILLISEC) 
; 

3 


ZERO BIT HAS 250 USEC BETWEEN EDGES 
FOR A 500 USEC PERIOD (.5 MILLISEC) 
CARRY FLAG IS DATA BIT 


FASSUME IT's A "1" 


MoV AX, 1184 3 SET AX TO BONTBAL ONE SIZE 
Je W28 3 JUMP IF ONE B 
MOV AX, 592 3 NO. SET TO “yOntNAt ZERO SIZE 
W28: + WRITE-BIT 
PUSH ax guiaTe BIT "te PERIOD EQ TO VALUE 
W29: IN AL, PORT_C sINPUT TIMER_@ OUTPUT 
AND AL, 020H” 
JZ w29 sLOOP TILL HIGH 
WSO: IN AL,PORT_C aKOR MALT TILL TIMER'S OUTPUT IS 
3 
AND AL,020H 
INZ wso 
sRELOAD ariey WITH PERIOD 
3FOR NEXT DATA BIT 
PoP ax sRESTORE PERIOD COUNT 
W31: 3 SET TIMER 
our 042H, AL 3 SET LOW BYTE OF TIMER 2 
MOV AL, AN 
our 042H, AL 3 SET HIGH BYTE OF TIMER 2 
WRITE. BIT ENOP 
cre GEN PROC NEA 


s UPDATE CRC REGISTER WITH NEXT DATA BIT 
CRC IS USED TO DETECT ene BekORs 
ASSUMES DATA BIT IS IN 

REG AX IS MODIFIED 

__ FLAGS ARE MODIFIED 


“HOV AX, CRC_REG 


Sashes 


sTHE FOLLOWING INSTUCTIONS 
sWILL SET THE OVERFLOW FLAG 
sIF CARRY AND MS BIT OF CRC 


sARE UNEQUAL 


CR AX,1 

Ret AX,1 

cic sCLEAR CARRY 

JNO W32 sSKIP IF NO OVERFLOW 
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F9 
D1 


as 
cs 


0810 


o6se R 
42 


0700 


f7 


XOR 
sc 
W32: RCL 
mov 
RET 
CRC_GEN 
BEGIN_OP 
CAL 
MOV 
W33: MOV 
wW34: “LOOP 
DEC 
JNZ 
RET 
BEGIN_OP 
ORG 
CODE ENDS 
END 


AX, 0810 


aX,1 
CRC_REG, AX 


PROC NEAR 
MOTOR_ON 
BL,42H 
CX,700H 

W34 

BL 

W33 


ENDP 
BEGIN+O8D0H 
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sIF DATA BIY XORED WITH 
3 CRC REG BIT 15 IS ONE 
STHEN XOR CRC REG WITH 

+ O810H 


. 

sSET CARRY 

sROTATE CARRY (DATA BIT) 
sINTO CRC REG 

sUPDATE CRC_REG 

s FINISHED 


3_START TAPE AND DELAY 

sTURN ON MOTOR 

sDELAY FOR TAPE DRIVE 

sTO GET UP TO SPEED (172 SEC) 
SINNER LOOP= APPROX. 10 MILLISEC 


PEC ELirii itt 
" n 
™ MODULE 4 m 
" " 
PELE ELiirity 
PTE rri iit ty 
0000 
0000 FA 
0001 56 

2 57 
ocos $0 
0004 53 
0005 51 
0006 52 
0007 1E 
6008 06 
0009 BE oo08 
O00C 32 DB 
COOE 32 £4 
0010 BY 0005 
OOlS E4 62 
0015 A& 40 
0017 74 02 
0019 FE C4 
OO1B E2 F6 
001D 80 FC 93 
0020 73 03 


ES cops Rx 

E8 cops 
ca » 

3A ca 

74 44 


80 £ 
so ES 02 


8A Cc? 


0000 € 
0081 
ose $6 TS 0338 R 04 


008A 74 o5 


008D ch 4, 
EB iF 


BB ogg 


oe ©0 eocceoceoo eeoeeo coececeo @ eoeoceeo ceoococecae oa 
eo eo eocoooo0eo eoececo eoeccecee 8 coocveo ecoeoceooeoe o 
N NN NYNYOOR COSHH CUUVUUY 2 22DLPDA PUUUYUUUUU 
QO FPN VUENCTNS VON OMOTFOVSH M AFAOU KTNOBOOVNUY Oo 

m 

o 

°o 

o 

.—J 

«w 

2 


KBDNMI - KEYBOARD HMI INTERRUPT ROUTINE 
THIS ROUTINE OBTAINS CONTROL UPON AN NAT F siieaasiadld WHICH 
OCCURS UPON A KEYSTROKE FROM THE KEYBOAR 


GET THE KEYBOARD SCAN CODE ENTERED. IT THEN ISSUES INT 41 
PASSING THE SCAN CODE IN AL TO THE KEY PROCESSOR. UPON RETURN 


IT RE-ENABLES NMI AND RETURNS TO SYSTEM CIRET). 


3 
3 

3 

3 

5 

3 

; THIS ROUTINE WILL DE-SERIALIZE THE BIT STREAM IN ORDER TO 
s 

s 

3 

5 


“ASSUME cs : CODE, DS:DATA 


oe Proc FAR 
a INTERRUPTS 





SH 

PUSH oI 

PUSH AX 3 SAVE REGS 

PUSH BX 

PUSH cx 

PUSH Dx 

PUSH os 

PUSH Es 

Seewnnm-~---INIT COUNTERS 
MoV ae } ae UP 8 OF DATA BITS 


XOR 


T. PARITY COUNTER 


BL INI 
sonia SNL rt TIMES TO VALIDATE START BIT 


AH, 


MoV CX,5 3 SET COUNTER 
Ti: In AL,PORT_C 3 GET SAMPLE 
TEST AL, 40H 3 TEST IF 1 
JZ T2 3 JMP IF O 
- INC AK 3 KEEP COUNT OF 1'S 
12: LOOP 11 3 KEEP SAMPLING 
cmP AH,S + VALID START BIT 
JNB 125 3 JUMP IF OK 
JMP 18 + INVALID (SYNC ERROR) NO AUDIO 
+ OUTPUT 
KK FOR TRAILING EDGE 


Brro--------VALID START BIT, LOO 
125: MOV CX, 50 


SET UP WATCHDOG TIMEOUT 


. 

13: IW AL, PORT_C + GET SAMPLE 

TEST AL, 40H 3s TEST IF 0 

JZ 1s 3 JMP_IF TRAILING EDGE FOUND 

LOOP 13 ; Seer LOOKING FOR eee EDGE 

JMP 18 3 SYNC ERROR (STUCK ON 1°S 
feeeeeec==—-READ pres TO SET ST. int OF BIT TIME 
15: MOV AL, 3 READ CLOCK 

our THCETL AL ; om 

NOP iia! 

NOP ; 

IN AL, TIMER#1 ; 

MoV HLA ; ou 

IN he aaa ia 

XCHG ial 

MOV or, 3 SAVE CLOCK TIME IN DI 
Boonwwnnn~~--VERIFY vat TRANSITION 

MOV Cx.4 3 SET COUNTER 
Té6r In AL, PORT_C + GET SAMPLE 

eu geese 3 TEST IF 0 


3 
voor 


JMP IF INVALID TRANSITION (SYKC) 
KEEP LOOKING FOR VALID TRANSITION 


Hr : 
Jecenrn------SET UP DISTANCE TO MIDDLE OF 1ST DATA BIT 
alt] Dx, 


Brmmwnn START hee FOR TIME 10 
7: CALL 
MoV bk 526 


310 USEC AWAY (.838 US 7 CT) 
READ DATA BITS AND ASSEMBLE BYTE 


SET NEW DISTANCE TO NEXT HALF BIT 


PUSH = AX 3 SAVE 1ST HALF BIT 

CALL = oI38 

MOV CLLAL 3} PUT 2ND HALF BIT IN CL 

PoP AX 3 RESTORE 1ST HALF BIT 

CMP CLLAL + ARE THEY OPPOSITES ? 

JE 19 3 NO, PHASE ERROR 
Jroeeee-----VALID DATA BIT, PLACE IN SCAN BYTE 

SHR BHAA 3 SHIFT PREVIOUS BITS 

OR BHLAL 3 OR IN NEW DATA BIT 

DEC $i i DECREMENT DATA BIT COUNTER 

JNZ 17 CONTINUE FOR MORE DAYA BITS 
Jenosennn==HNTT. FOR TINE TO SAMPLE PARITY BIT 

CALL 

PUSH = AX 3 SAVE 1ST HALF BIT 

CALL 30 

MOV CLLAL 3 PUT 2ND HALF BIT IN CL 

PoP Ax 3} RESTORE 1ST HALF BIT 

CMP CLAL i ARE THEY OPPOSITES ? 


NO 
jocnewes e=nifgta | ey BIT, CHECK PARIT 
BL 


AND ! 


a ERASE ERROR 


es IF ODD PARITY 
JMP IF PARITY ERROR 


19 
jews ied CHARACTER, SEND TO CHARACTER PROCESSING 
L,BH 


MOV AL, 3 PLACE SCAN CODE IN AL 
CALL ops 
TEST Se iii id 


I 
ALT80H 
TEST +s 


? 
3; a 3 ENABLE INTERRUPTS 


48H 
ump = SHORT 18 
TAM oy BK 4H 
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+ DURATION OF ERROR BEEP 


Appendix A. 


Y OF TONE 
+ FREQUENCY OF TON 
48H BUFFER FUL 
nee Fa, NOISE > ENABLE INTERRUPTS 
stl HORT 18 
0048 mp $ 
oe Be 0000 E 17_2: - Te a aT 
Hy © : L 3 ENAB 
goss EB 1 MOV + OA0H 3 RESTORE AL 
op OE 4 AL,OA 3 RE taknnve 
HH ao oe osse R 8 hov | ALSBL ; CHARACTER PROCESSING 
none a4 Ot int FLG 
OoA2 Eq AO INT 48H 2,NOT NMI_, ss 
B_FLAG_: ~EWABEL WI 
tok he wee RESTORE REGS AND RE PARES TORS REGS 
OAS 48 a FB poeewee-- - ES 
Ad CD SP os38 8: Po ce 
HTH 80 26 I ror De 
MI 
ee a 5 ENABLE N 
woh 3A ne AL OAQH 
gonz 3A 1H & 
ose SB por I g ERETURN TO SYSTEM cep 
et TRE WASE ERROR: OUTPUT IT? 
none 3 SSSTPARITY, SYNCH OR P } ARE WE OR THE ACR UMTGHT BE A 
coy 3E ine ALL DDS 3 ARE 10 FEEDBACK 
sthh CF 19: CHP os MO tien) RANSMISSION ERRORS 
3 0000 E JE 01K «3 CHECK IF Ms REPORTED 
me ee ; itbo MOT BEEPS Pern Trae 
oo8 4 E€D = 3 1=D R BEEP RO ERRORS 
eocl 7 e 110 3 CALL ERRO OF KEYBOARD 
e018 & JNZ OR_BEEP KEEP TRACK ERRUPT 
senate Gat ERSDERREET. | tee Saude bee 
once 75 OF, 110: Me SHORT 18 
QOCA He 06 0012 KR KBDNMI noe NEAR + READ CLOCK 
eocD B DD I30 PRO AL, 40H if 
Ses : I31i: eri TIM_CTL,AL x 
00D : ri ; 
bos 80 40 NOP ig ,* 
oops Eb 43 IN AL, TIME ; " 
eoD7 90 MOV AH, MER+1 5 _— 
ie ig a a eer - 
$008 t l nov pclae ; ee TIME yO ae ae TIME 
odd £0 SUB * DX + oO, KEEP LO NTS OFF ine 
OODF 86 CF CMP Cx.D ; Debate @ OF ts AS LAST T 
O0EL gb Ce Jc 131 3 CAVE CURRENT TI OR NEXT TIME 
OOES 23 tA sus CX, DX : SAV OT PPERENCE F 
Wier 32 EA op. Bhee BIT (5 SAMPLES) ; 
oees 2 ch ADD eran setae DATA ag COUNTER ee 
seen foe ona teat 
Deed 03 FF , a. 
: oe OR MORE 1” 
SEF BY 000 bite o 
spor on Ce ee ane se OOH IS RETURNED IN 
3 IS SAM IN AL, : . 
; eee ean 1s Een NTAENED Ne isnt 
PARITY COUNTER TS RAINTARNED 1H e800 
i Te CLEAR oe 
eal XOR AHOAH i SET SANPL 
AL, : 
1M 4 IF 0 ’ 
we ae tet Test ALS SOH ; KEEP COUNT OF 1°S 
‘a hf a PLING 
a a ite, 1 aa 
A . 
ie oe me ura, beet UE Ty 
QOFC E2 FE ‘ 3B 134 en ; Oe ecne PARITY c 
ter 9205. HOV ALO + RETURN TO CALLER 
e101 ov RM TO ¢ 
03 BO 80 s RETU Att 7 
tits fe XOR AL,AL amen 
bios $2 ce | kil vee 
ote EXDP Seweeesas Seer eSss= AN COD 
nish . ae ‘2INT UTINE IS TO EEE ep TO vars 
jE ancestor. ats aura MED THE SEU 5 gn 
SCAK CODE a3 KEY KE Bernese GERS 0 
i 1S OW THE DE PASSED RETA AN 
EQUIVILEN SCAN CO LAGS 10 ED SCAN 
t AL. EACH SETS Fi NSLAT WA 
PASSED IN RUPT 9 OR THE TRA cop " 
3 TO INTER CALLED F THIS ARIL 
: MORE CALLS RRUPY 9 fe ee cODE 
: . WHEN INTE THE I tae 
; ME ine Hes sD mee Mae Ne 
’ 
; TO KEEP IN FRONT EN aa 
: IN THE o0K AA 
THIS ROUTINE IS VAUARD The L we 
; 62 KEY KE THE NEE 
; TRANSFORMS A ae a 
1 1S ASSunk NE RNG THAT cL HeRraTens WETSTERS ARE 
: IT IS ASSUMED THAT Tire Ano Tat ee REGISTERS HEE ; 
ee ae e 
; 22 act NEN Nain gia teas 
i> NO SS wR ew em in owen cc 
st re : 
= 8839 ma EQU FR_KEY¢1 DE FOR SCAN COD ait 
tx K+1 5 BASE CO ae Kes 
= O05 EXT_SCAN EWU PH S EXTEMDENe BEYOND 85 one 
: O6AH = 5 END OF EXTEND 
A EXT SCAN_END —EQy 
> OOF AWD" MASK EQU OF FH 
= ULF CLEAR_FLags 


1S 
ve BI 
USED TO SELECTIVELY REMONE ic) 
EQu AND MASK’ - CFN_FLAG*FN_BREAK*+FR_ 

SCAN” CODES, ao 
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nonnnnnhaonne 


noooo 
ee 
~oow 
~ 
a 


me ahO0O 
o 
° 
~o 


eooo 
oe ee 
Poses 


©e0o0 eco coeooeose 
we Be ee ee 
ove VR WeYVEY 
eno OF VYUNR OO 


31 
50 
23 


10 45 


4F 


3 99 


4B 
14 


49 
9A 


74 
79 


Q_KEY 
N_KEY 
ENTER_KEY 
H_KEY 

“KEY 
UP_ARROW 
DOWN_ARROW 
LEFT_ARROW 
RIGHT ARROW 










HOLD FUNCTION IS SPECIAL CASE. 


END_KEY 
PAGE_UP 
PAGE_DOWN 
KEYPAD_MINUS 
KEYPAD_PLUS 
JITTKOU_KEY 
WARIKOMI_KEY 
SHURIYOU_KEY EQU 

ASSUME CS: cope, Ds: DATA 
po TABLE OF (te SCAN CODES 


KBO 
DB He KEY, WN 
DB UP_ARROW, TB OM ARROW, LEFT_ARROW, RIGHT_ARROW 
DB ENTER_KEY,H_KEY,T_KEY 


KBOLEN EQu $ - KBO 
3----TABLE OF NEW SCAN CODES 
KB1 LABEL BYTE 


DB PAUSE, NUM_LOCK 
DB HOME, END_KEY,PAGE_UP,PAGE_DOWN 
dB JITTKOU_ KEY ,WARIKOMI_KEY, SHURIYOU_KEY 


sNOTE: “THERE IS A ONE TO ONE CORRESPONDENCE BETWEEN 


3 € SIZE OF KBO AND KB. 

}TABLE OF NUMERIC KEYPAD SCAN CODES 

; THESE SCAN CODES WERE NUMERIC KEYPAD CODES ON 
; THE 102 KEY KEYBOARD. 


3 

NUM_CODES LABEL BYTE 
OB 72H,73H,74H,75H,76H 
DB 77H,78K,79H,7AH,70H 3 10 NUMBERS ON KEYPAD 


~ 
R 
4 
> 
o 


TABLE OF SCAN CODES FOR MAPPING EXTENDED SET 

OF SCAN CODES (SCAN CODES > 85). THIS TABLE 

ALLOWS OTHER DEVICES TO USE THE KEYBOARD INTERFACE. 
IF THE DEVICE GENERATES A SCAN CODE > 85 THIS TABLE 
CAN BE USED TO MAP THE DEVICE TO THE KEYBOARD. THE 
DEVICE ALSO HAS THE OPTION OF HAVING A UNIQUE SCAN 
CODE PUT IN THE KEYBOARD BUFFER (INSTEAD OF MAPPING 
TO THE KEYBOARD). THE EXTENDED SCAN CODE PUT IN THE 
BUFFER WILL BE CONTINUOUS BEGINNING AT 150. A ZERO 
WILL BE USED IN PLACE OF AN ASCII CODE. (E.G. A 
DEVICE GENERATING SCAN CODE 86 AND NOT MAPPING 86 
TO THE KEYBOARD WILL HAVE A (150,03 PUT IN THE 
KEYBOARD BUFFER) 

TABLE FORMAT: 

THE FIRST BYTE IS A LENGTH INDICATING THE NUMBER 
OF SCAN CODES MAPPED TO THE KEYBOARD. THE REMAINING 
ENTRIES ARE WORDS. THE FIRST BYTE (LOW BYTE) IS ‘ 
SCAN CODE ANO THE SECOND BYTE (HIGH BYTE) IS ZERO 


IN THE TABLE CORRESPOND TO THIS SET WITH THE FIRST DATA 

‘ oo MATCHING 86, THE SECOND MATCHING 87 ETC. 

OTES: 
(1) IF A DEVICE GENERATES A BREAK CODE, NOTHING IS 
PUT IN THE BUFFER. 

(2) 4 LENGTH OF 0 INDICATES THAT ZERO SCAN CODES HAVE BEEN 


AND HAVE SOME ITS SCAN CODES IN THE EXTENDED SET. 


EXTAB paprk BYTE 
ENGTH OF TABLE 
Hay 72,73.77,81,80, 1995071057 628 


fee we we we we we we we we we we we te we Oe Oe we we Oe we OF Or OF WF wr OH we Oe OH we OF 


A 17,18,32.45,44,43,50,16,15.1 


KEY62_INT PROC FAR 
St FORWARD DIRECTION 


5 
fact DDS } SET UP ADDRESSING 
HOV. AH, AL } SAVE SCAN CODE 
mL TPH } ADJUST OUTPUT FOR USER 
3 MODIFICATION 
snc KBXO } JUMP IF OK TO CONTINUE 
ee oe cweex ) RETURN FROM INTERRUPT. 
sae CAN ¢ 
Ge a sen OFFH i IS TNIS AN OVERRUN cHaRt 
Se COBOL PASS IT TO INTERRUPT 9 
Je RROTNDLMASK-BREAK_BIT 1 TURN OFF BREAK BIT 
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A DEVICE GENERATING N SCAN CODES IS ASSUMED TO GENERATE THE 
FOLLOWING STREAM 86,87,88,...,864(N-1). THE SCAN CODE BYTES 


og THE KEYBOARD AND ALL EXTENDED SCAN CODES WItt 
BE US 
(3) A DEVICE CAN MAP SOME OF ITS SCAN CODES TO THE KEYBOARD 


Appendix A. 


C4 SE G124R 
26: 8A OD 
1F 


F6 H 0017 R 04 
F6 06 0017 R 08 
3 


Ed O2FO R 
E9 O27A R 


3c 37 

75 11 

Fe 06 0017 R O3 
74 F2 

Fo 06 8017 R 04 
75 &B 

E9 O3OF R 


80 26 00838 R IF 
80 OE 0088 R AD 
CF 


Fo 06 0083 Rx 20 
75 06 

80 26 0083 R IF 
CF 

80 CE co8e R ae 
CF 


3¢ 55 
74 FB 


Fo 06 008s R 99 
75 21 


F6 06 0017 RK 29 
74 16 


AL, EXT_SCAN 3 Is THIS A SCAN CODE > 85 
a Kexe + REPLACE BREAK BI 
CMP AL. EXT_SCAH_END 3 IS THIS A SCAN cove < 106 
JGE KBX4 3 REPLACE BREAK BIT 
JnmneSCAN CODE Ts. IN EXTENDED SET 
XOR" SI,$I 
ASSUME DS TABSO 
A t 
LES DI.DWORD PTR EXST 3 GET THE POINTER TO THE EXTENDED 
3S 
MOV CL,BYTE PTR ES:({DI}) ; GET LENGTH BYTE 
(Slume B3:oarn 
ASSUM 3 
b----DOES SCAN CODE GET MAPPED To KEYBOARD OR TO NEW EXTENDED SCAN 
CODES? 
, SUB AL, EXT_SCAN + CONVERT To BASE OF NEW SET 
Cn AL cL } 1S CODE 34 IN TABLE? 
CMP AL, 3 
JG KBX1 + JUMP IF SCAN CODE IS NOT IN TABLE 
3-~--GET SCAN CODE FROM TABLE 
INC DI 3 POINT DI PAST LENGTH BYTE 
MOV BX, AX 
XOR BH, BH } PREPARE FOR ADDING TO 16 BIT 
ce ns + REGISTER 
, 
ADD DI, BX FFSET TO CORRECT TABLE ENTRY 
MOV AL, BYTE At. ES:tbr} 3 TRANSLATED SCAN CODE IN AL 
cMP AL, EXT + IS THIS A SCAN CODE > 85 
JL KBX4 s REPLACE BREAK BIT 
CMP ALSEXT ~SCAM_END ; IS THIS A SCAN CODE < 106 
JG K 3 REPLACE BREAK BIT 
s~---SCAN CODE GETS MAPPED To EXTENDED SCAN CODES 
KBX1: TEST AH, BREAK_BIT IS THIS A BREAK CODE? 
JZ KBX2 : MAKE CODE, PUT IN BUFFER 
TRET } BREAK CODE, RETURN FROM INTERRUPT 
KBX2: ADD AH, 64 + EXTENDED SET CODES BEGIN AT 150 
XOR AL, AL 3 ZERO OUT ASCII VALUE (NUL) 
IRT 78H 3 KANAKAN ROUTINE 
IRET 
KBX4: = AND ila 3 MASK BREAK BIT on ORIGINAL SCAN 
OR } es NEW SCAN CODE 
Mov AL SAVE AL IN AH AGA IN 
3-7--83 a KEYBOARD FUNCTIONS SHIFT PRTC AND CTRL#NUMLOCK 
KBO_1: CH Le NUM_| 15 THIS A MURLOCK 
SHE cs CHECK 
TEST xB. FLAG, CTL _SHIFT 3 1S CTRL KEY BEING HELD DOWN? 
Jz KB0_2 NUMLOCK WITHOUT CTRL, CONTINUE 
TEST He gr bar att Serr + IS ALT KEY HELD CONCURRENTLY? 
JKZ PASS IT ON 
JMP RIG ul ; PUT KEYBOARD IN HOLD STATE 
KBO_2: JMP NTLIRT 3 CONTINUE WITH INTERRUPT 48H 
ee seneck pror Perse 
KBO_3: AL, 55 i 1s TRS 4 ERE KEY? 
nts KB2 NOT 
TEST KB_FLAG, LEFT_: sear SHIFT ; EITHER SHIFT 
3 ACTI 
JZ KBO_2 3 PROCESS SCAN IN INT9 
TEST KB arise CTL_LSHIFT ; IS THE CTRL KEY PRESSED? - 
JNZ KB 3 NOT A VALID PRTSC (PC COMPATIBLE 
JMP + HANDLE THE PRINT SCREEN FUNCTIO 
3-~--FUNCTION key" HANDLER 
KB2: MOV AH, AL SAVE CHARACTER 
AND AL, AND_MASK - BREAK BIT 5 MASK BREAK BIT 
CMP AL, FN_KEY 3 CHECK FOR FUNCTION KEY 
JNZ KB4 3 JUMP IF NOT FUNCTION KEY 
TEST AH, BREAK_BIT 3 IS THIS A FUNCTION BREAK 
JN2Z KB 3 JUMP IF FUNCTION BREAK 
AND KB_FLAG_2,CLEAR_FLAGS i CLEAR ALL PREVIOUS 
+ FUNC 
OR 


IRET 
bas, UNCTION BREAK 
KBS TEST 


JINZ 

AND 

REY 
KBS_ir oR 
KB3_2: IRET 


CHECK IF 
oo arta FLAG ALRE 


ne 
KB4_0: TEs7 


NZ KBS 
to-=-CHECR TF HUM_STATE 


TIONS 
KB_FLAG_2, FN _FLAG + FR PENDING 


+ RETURN FROM INTERRUPT 
KB_FLAG_2,FN PENDING 
kBs_t 


JUMP IF FUNCTION IS PENDING 
KB "FLAG. 2 


o CLEAR FLAGS 3 CLEAR ALL FLAGS 
KB_FLAG_2,6N BREAK 3; SET BREAK FLAG 


3 RerURN FROM INTERRUPT 


: IS THIS A PHANTOM KEY? 


KB3_2 JUMP IF PHANTOM SEQUENCE 
KB FE AG 2, FH_| LFLAGSFH Lock 3 ARE WE IN FUNCTION 
TE? 


3 ST 


IS ACTIVE 


: KECFLAG, MUM _ STATE -” 
is } JUMP IF ROT IN HUM_STA 
o aL 0 + ARE WE IN NUMERIC KEYPAD REGION? 
Dec rie JUMP IF HOT IN KEYPAD 
Iz KBG 4 i CHECK LOWER BOUND OF on KEY) 
IO--- TRANSLATE Scai Cope a wiieey? Oey 1F Nor IN RANGE 
iA E 
Oy DX, OFFSET sine -cobes LIS OFFSET INTO TABL 
AND Sa CODES ~ 5 NEW SCAN CODE 1S IH AL 
HoBREAK_BIT =; sepeaTe BREAK BIT ON ORIGINAL 
on AL. AH Bites ” 
KBO_1; a SHORT Cont_ryy } UPDATE KeyPaD scan co 


Jrsee 


JP $k HORT Cc 
c ONT INT 
Ks; NECK For y 


CONTINUE WITH INTERRUPT 


‘ GET BACK BREAK BIT IF SET 
ALID FURCTYON KEY 
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022D 
022F 


0231 
0234 
0236 


0238 
023D 


02462 


0244 
0249 
0243 
0250 
0255 


0256 
0256 
0257 
0258 
0258 
O25E 
0260 


0262 
0267 


0269 
026C 


O26E 
0273 


0278 
O27A 
O27A 
027c 
O27E 
O27E 


O27F 
0281 
0285 
0288 
028A 
028d 


O28F 


02946 
0297 


0299 
0298 
0290 
O29F 
O2a1 
O2a3 
O2a5 
O2aa 
O2ac 


0280 
O2B2 
0287 
0287 
028C 
02BD 
02¢1 
o2cs 


e2ca 
O2Ca 
O2CF 


O2D1 
0206 
0208 
02Dc 


O2dE 
O2E) 
O2ES 
O2E5 
O2E7 
O2E9 
O2ER 
O2Ec 
O2Ec 
O2EE 


O2Fo 


O2Fs 
O2F? 
O2Fc 
O30, 
9303 
OSog 


3c 
75 


F6 
75 
F6 


74 
F6 


75 


F6 
74 
80 
80 
CF 


OE 
07 


80 
0088 


0088 


0017 


0088 
0088 


BF 010B R 
B9 0009 
F27 AE 


74 


F6 
74 


F6 
75 


80 
cé 


8A 


E6 
cb 


CF 


3¢ 
75 
Fé 
74 
89 
28 


2E: 


Fé 
74 


1D 


06 
OF 


ce 
OA 


26 
06 


c4 


60 
09 


31 
07 
06 
08 


0088 
0087 


0017 


O10C R 


FQ 


BA 8S 0114 R 


c4 
31 


45 
08 
80 
60 
09 
7F 
06 
11 
06 


cc 
26 


06 
06 


BB 
26 


00as 
0087 


008s 
0087 
0087 
0088 


0087 


0087 R 


Cols 


Cols 
0338 


S018 


40 


40 


1F 
00 


40 


iF 
it) 


OF 


40 


08 
FB 


R 08 


chp oly 3 CHECK FOR ESC KEY (=1) 
JNE KB7 3 MOT ESCAPE KEY 
so ESCAPE EREY.s LOCK KEYBOARD IN FUNCTION LOCK 
TEST AH, BREAK_BIT : IS THIS A BREAK CODE? 
JZ KBS NO PROCESSING FOR ESCAPE BREAK 
TEST KB_FLAG_2, FH_ FLAG 3 TOGGLES ONLY WHEN FN HELD 
; CONCURRENTLY 
Jz KBS NOT HELD CONCURRENTLY 
TEST KB_FLAG_2,FH_| BREAK + HAS THE FUNCTION KEY BEEN 
3 RELEASED? 


JNZ KBs 5 nee IF RELEASED. PROCESS AS 
3 
TEST KB_FLAG, LEFT_SHIFT#+RIGHT_SHIFT 3 EITHER SHIFT? 
JZ KBS + NOT HELD DOWN 
XOR KB_FLAG_2,FN_LOCK ; TOGGLE STATE 
AND KB_FLAG_2,CLEAR_FLAGS ; TURN OFF OTHER STATES 
IRET + RETURN FROM INTERUPT 
lira TABLE FOR OTHER VALID SCAN CODES 
’ 
PUSH cs 
PoP ES 3 ESTABLISH ADDRESS OF TABLE 
MOV DI, OFFSET KBOQ ; BASE OF TABLE 
MOV CX, KBOLEN + LENGTH OF TABLE 
REPNE SCASB 3 SEARCH TABLE FOR A MATCH 
JE KB10 3 JUMP IF MATCH 


gon ILLEGAL CHARACTER 
KB8: TEST KB_FLAG_2,FN_BREAK ; HAS BREAK OCCURED? 


JZ KB9 3 FUNCTION KEY HAS NOT BEEN 
3 RELEASED 
TEST AH, BREAK_BIT 3 IS THIS A BREAK OF AWN ILLEGAL 
JINZ KB ; ree RESET FLAGS OM ILLEGAL 
3 BREA 
KB85: AND KB_FLAG_2,CLEAR_ FLAGS + NORMAL STATE 
MoV CUR_ FUNC, 0 3 RETRIEVE ORIGINAL SCAN CODE 


3----FUNCTION BREAK IS NOT SET 


KB9: MOV AL, AH 3 RETRIEVE ORIGINAL SCAN CODE 
CONT_INT: 

OUT KBPORT,AL 

INT 9H 3 ISSUE KEYBOARD INTERRUPT 
RET_ SINT: | 

RET 
----BEFORE TRANSLATION CHECK FOR ALT¢FN¢N_KEY AS NUM LOCK 
KB10: CMP AL, M_KEY 3 IS THIS A POTENTIAL NUMLOCK? 

JNE KB10_2 3 NOT A NUMKEY, TRANSLATE IT 

TEST  KB_FLAG.ALT_SHIFT ; ALT HELD DOWN ALSO? 

Jz KBs + TREAT AS ILLEGAL COMBINATION 
KB10_1: MOV CX, OFFSET KBO + 1 ; GET OFFSET TO TABLE 

SUB DI, Cx 3 UPDATE INDEX TO NEW SCAN CODE 

3 TABL 
MoV AL, CS:KBICDI) ; MOV NEW SCAN CODE INTO REGISTER 


3-~--TRANSLATED CODE IN AL OR AN OFFSET TO THE TABLE “SCAN™ 
KB12: TEST AH, BREAK_BIT 3 IS THIS A BREAK CHAR? 

JZ KBIS 3 JUMP IF MAKE CODE 
s-~-~CHECK FOR TOGGLE KEY 


cMP AL, NUM_LOCK 3 IS THIS A NUM LOCK? 

INZ KB12_2— 3 JUMP IF NOT A TOGGLE KEY 
OR AL, 80H 3 TURN ON BREAK BIT 

ouT KBPORT,AL 

INT 9H 3 TOGGLE STATE 

AND AL, AND_MASK-BREAK_ BIT ; TURN OFF BREAK BIT 


KB12_21 TEST KB_FLAG_2, FN, -BREAR 3 HAS FUNCTION BREAK OCCURED? 
Jz KB12_3 JUMP IF BREAK HAS NOT OCCURED 
CMP AL, CUR_FUNC 3 IS THIS A BREAK OF OLD VALID 


3 FUNCTION 
INE RET_INT } ALLOW FURTHER CURRENT FUNCTIONS 


AND KB_FLAG_2,CLEAR_FLAGS 

bias CUR_FUNC, 0 CLEAR CURRENT FUNCTION 
’ ry 

IRET ~ 3 RETURN FROM INTERRUPT 

KBX2_3: CMP AL, 2 CUR SFUNC 31s THIS BREAK OF FIRST FUNCTION? 
T 3 IGNOR 
AND Ke FL FLAG_2, AND. _AASR= FH, PENDING 3 TURN OFF PENDING 
i iN 
JMP KB12 ; CLEAR CURRENT FUNCTION AND RETURN 


ocee Y Was BEEN PRESSED 

kbise Test xB. FLAG_2,FN, LAREAK 3; CHECK IF FUNCTION KEY HAS BEEN 
5 
3 JUMP IF NOT SET 


KB 
jo-==FUNCTION Brean “ths ALREADY OCCURED 


3 IS THIS A NEW FUNCTION? 
ie ot id " ) INITIALIZE NEW FUNCTION 
cMP CUR_FUNC,AL 3 I$ THIS NON-CURRENT FUNCTION 
xBas }JUMP IF NO FUNCTION IS PENDING 
ine 1-10 RETRIEVE ORIGINAL SCAN CODE 
ATION SEQUENC 
caw seoR Th al 3} INITIALIZE CURRENT FN 
MOUS tS OP SITIKOULKEY i IS THIS A ENTER,H OR T KEY ? 
CHE ie + NO. JMP KBIG 
Js ee } EXTENDED SET CODE 
MOV AAU 3 CLEAR AL 
hy an } KANAKAN ROUTINE 
_ 5 THE WOLD FUNCTION 
KB1G: IS THIS 
cue AL PAUSE 1 NO. JMP CONT_INT 


JHE CONT_IN 
yeoosPUT KEVEOARD 2 chat Sra STATE ; CANNOT GO IN HOLD STATE IF 
KB16_1: TEST KB_FLA 1 ITS ACTIVE 

% ; DONE WITH INTERRUPT 

JNZ et lety L,HOLD_STATE + TURN ON HOLD FLAG 

OR > 


2,0F8 
N JKE_FLAG_. } RESET KEYBOARD LATCH 
te AL, FT POR ot STATE 3 STILL IN HOLD STATE? 


1T  KB_FLA 
HOLD: LL AL780H 
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ao 
FS 


06 0018 R O8 
6 
26 0018 R F7 


26 0338 R FB 
ce 06 


Ao 
os 


06 8085 R 


06 8685 R 


06 8085 R 00 


0085 R 

26 0086 R FO 
26 0088 R FE 
06 0088 R 2 


&9 
GE 0086 R OF 
E2 


06 0088 R OB 
8 

1E 0086 R 

3 OF 


26 0086 R Fe 
1E cose R 

3 

+ 008s R 04 


36 0088 R 01 
-t 0088 R On 


KB16_2: IRET RETURN FROM INTERRUPT 48H 
seas CPRENT est ee Fhngeee 


PRTSC: tea 1, HOLD. Shit ; IS HOLD STATE IN PROGRESS? 
16 


our WMI_PORT,AL s ENABLE NMI 
ONE HOLD ° $ CONTINUE LOOPING UNTIL KEY IS 
3 PRESSED 


xB TO CONTINUE WITH PRTSC 
AND KB_FUAG_1, OFFH- “HOLD. STATE ; TURN OFF FLAG 
IRET 

sant AND JKB_FLAG_2,0FBH 
te 2 
ADD SP, 3x2 3 GET RID OF CALL TO INTERRUPT 48H 
POP ES + POP REGISTERS THAT AREN'T 
3 


MODIFIED IN INTS 


PoP = 
pop UX 
PoP eX 
POP 
IN AL, RMT_PORT + RESET KEYBOARD LATCH 
INT + ISSUE INTERRUPT 
POP AX 
POP = DT 
por SI + POP THE REST 
KEY62_INT ENDP eee 
iTYPAMATIC 
i THIS ROUTINE WILL CHECK KEYBOARD STATUS BITS IN KB_FLAG_2 
; ACTION GRC EEMUAT STATE THE KEYBOARD IS IN. APPROPRIATE 
i upur ACTION WILL BE TAKER 
BINPU 
ourpur AUT SCAN CODE OF KEY WHICH TRIGGERED HON-MASKABLE INTERRUPT 
30UTP 


3 CARRY BIT = 1 IF NO ACTION IS TO BE TAKEN. 

3 CARRY BIT = 0 cet SCAN CODE IN AL SHOULD BE PROCESSED 

3 RTHER. 

3 MODIFICATIONS TO THE VARIABLES CUR_CHAR AND VAR_DELAY ARE 
; MADE. ALSO THE PUTCKAR BIT IN KB —FLAG_ 2 IS TOGGLED WHEN 
3 THE KEYBOARD 1S IN HALF RATE MODE 


pocw--- 


TPH proc NEAR 
5 
che CUR_CHAR,AL 3 IS THIS A NEW CHARACTER? 
TP2~ 3 JUMP IF SAME CHARACTER 
io---nEW” CHARACTER CHECK FOR BREAK SEQUENCES 
TEST AL, BREAK_BIT IS THE NEW KEY A BREAK KEY? 
JZ TPO ; JUMP IF NOT A BREAK 
ARD AL, O7FH 3 CLEAR BREAK BIT 
CMP CUR_CHAR,AL + IS NEW CHARACTER THE BREAK OF 
3 LAST MAKE? 
MoV AL, AH 3 RETRIEVE ORIGINAL CHARACTER 
JRZ 1P 3 JUMP IF NOT THE SAME CHARACTER 
Mov CUR_CHAR, 60 3 CLEAR CURRENT CHARACTER 
TPs cL 3 CLEAR CARRY BIT 
POP Bx 


RET 3 RETURN 
s—~~w INITIALIZE A NEW CHARACTER 
TPO: MoV CUR_CHAR, AL 3 SAVE NEW CHARACTER 
AND VAR_DELAY, OFOH 3 CLEAR VARIABLE DELAY 
AND KB_FLAG_2,0FEK INITIAL PUTCHAR BIT AS ZERO 
TEST KB_FLAG_2, INIT _DELAY + ARE WE INCREASING THE 
3 INITIAL DELAY? 
JZ TP + DEFAULT DELAY 
Me eae DELAY_RATE ; INCREASE DELAY BY 2X 
HORT 


jos-eHECR IF WE ARE In” TYPAMATIC MODE AND IF DELAY IS OVER 


KB_FLAG_2,TYPE_OFF ; IS TYPAMATIC TURNED OFF? 
be TPG 3 JUMP IF TYPAMATIC RATE IS OFF 
v BL, VAR_DELAY 3 GET VAR_DEALY 
AND BL, OFH 3 MASK OFF HIGH ORDER(SCREEN RANGE 
7 woeeh 3 IS INITIAL rare ee 
3 JUMP IF DELA 
DEC BL 3 DECREASE DELAY WAIT BY ANOTHER 
3 CHARACTER 
AND VAR_DELAY, OFOH 
OR YARD DELAY, BL 
JMP SHORT TP4 
de5r CHECK RY TIME. to OUTPUT CHAR 
TPS: KD FLAG_2,HALF —Aae + ARE WE IN HALF RATE MODE 
a UMP IF WE ARE IN HORMAL MODE 
“oa x _FLAG_2, PUTCHAR > TOGGLE BIT 


pe Kae ~FLAG_2,PUTCHAR 3 IS IT TIME TO PUT OUT A CHAR 


1P4: } MOT TIME TO OUTPUT CHARACTER 
sc 3 SKIP THIS CHARACTER 
POP x 5 SET CARRY FLAG 
RET 
Tem Ei 
PAGE wail 
+ KEYBOARD Lig naa as aera Japsbdeeesesle eS 


1Heur THESE ROUTINES PROVIDE KEYBOARD SUPPORT 


(AH)=0 READ THE NEX 
T JIS8BIT CHARACTER STRUCK FROM THE 
ceynoa ARD, RETURN THE RESULT IK (CAL), SCAN CODE IN 


SET THE Z Fig cTER 1S 
AVAILABLE 10 BE REL RDECATE IF AM JIS8BIT CHARA 


J=1 =~ HO CODE AVA 
tee = TLABLE 
He ; t) CODE 15 AVAILABLE 


READ 1 {i THe NEXT CHARACTER IN THE BUFFER TO BE 


D THE ENTRY REMAINS IN THE BUFFER 


; 
i 
: 
rf 
; CAH) =] 
s 
s 
5 
t 
rf 
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3 
5 
3 
3 
3 
3 
s 
3 
3 
3 
3 
3 
3 
3 
3 
5 
3 
3 
t 
3 
3 
5 
3 
3 
; 
3 
3 
8 
$ 
3 
, 
5 
3 
3 
3 
‘ 
3 
3 
3 
3 
$ 
3 
3 
s 
3 
3 
s 
3 
3 
3 
tf 
3 
3 
5 
4 
4 
ty 
t 
3 
iy 
5 
iy 
s 
3 
5 
’ 
3 
r 
5 
5 
t 
5 
3 
3 
t 
3 
3 
s 
5 
t] 
3 
5 
5 
‘ 
5 


K 


CAKDE2 


CAHD=S 


CAHD=4 


CAH=3) 


CAH285) 


(AH=7) 


ouTPUT 


3 
ASSUME CS:CODE,DS:DATA 
PROC 


RETURN THE CURRENT SHIFT S$ 
aL REOISTER TATUS IH AL AND AH REGISTERS 
1 0 


! 3 

I--¢-D01=5RIGHT SHIFT KEY IS DEPRESSED 
1O=LEFT SHIFT KEY IS DEPRESSED 
11=LOCK SHIFT KEY IS DEPRESSED 

~>CONTROL SHIFT KEY IS DEPRESSED 

“>ALTERMATE SHIFT KEY IS DEPRESSED 

“>SCROLL LOCK STATE HAS BEEN TOGGLED 

~>RESERVED 


w->INSERT STATE IS ACTIVE 


ere rere) 
ewe oe ee ND 


ee ow cee eee oe 
wee eS 


t 
! 
! 
! 
! 
! 
$ 





os ot ew cm cere eae 





AH REGISTER 





76543 21 «86 

Fw ek PY tts 

ft ! f PY L Y f  fd1SZENKAKU MODE. OSHANKAKU MODE 
Lot tf f ff  feete--9200SALPHA/NUMERIC SHIFT 

wf } t OL=KATAKANA SHIFT 

::: 3 1 1O=HIRAGANA SHIFT 

1 PF YF fF  feweeeew--->RESERVED TO 1 

Penton ten gon nn nnn n= - = RESERVED 


SET TYPAMATIC RATES. THE TYPAMATIC RATE CAN BE 

CHANGED USING THE FOLLOWING FUNCTIOXS: 

CALD=0 RETURN TO DEFAULT. RESTORES ORIGINAL 
STATE. 1.€. TYPAMATIC OM, NORMAL INITIAL 
DELAY, AND NORMAL TYPAMATIC RATE. 

CALI EL INCREASE INITIAL DELAY. THIS IS THE 
DELAY BETWEEN THE FIRST CHARACTER AND 
THE BURST OF TYPAMATIC CHARS. 

CAL =E2 HALF_RATE. SLOWS TYPAMATIC CHARACTERS 
BY ONE HALF. 

CALI=ES COMBINES AL=1 AND AL=2. INCREASES 
INITIAL DELAY AND SLOWS TYPAMATIC 
CHARACTERS BY ONE HALF. 

CALD=4 TURN OFF TYPAMATIC CHARACTERS. ONLY THE 
FIRST CHARACTER IS HONORED. ALL OTHERS 
ARE IGNORED. 

AL I$ RANGE CHECKED. IF AL<O OR AL>¢ THE STATE 

REMAINS THE SAME. 


MAMNOTEMOUE EACH TIME THE TYPAMATIC RATES ARE 
CHANGED ALL PREVIOUS STATES ARE REMOVED. I.E. IF 
THE KEYBOARD IS IN THE HALF RATE MODE AND YOU WANT 
TO ADD AN INCREASE IN TYPAMATIC DELAY, YOU MUST 
CALL THIS ROUTINE WITH AH=3 AND AL=3. 


ADJUST KEYBOARD BY THE VALUE IN AL AS FOLLOWS: 

CAL =0 TURN OFF KEYBOARD CLICK. 

CALD=1 TURN ON KEYBOARD CLICK. 

+ 1s gAeee CHECKED. THE STATE IS UNALTERED IF 
<> 1,0. 


CHANGE THE KBD SHIFT STATUS 


AL REGSTER 

7654321 8 

12 7 1-2 fF 8 

Lf tf t 2 bf teetece> OOZHANKAKU , OL=ZENKAKU 

rs oe ee oe | 1O=TOGGLE , L12=NOT CHANGE 

ToL bf feetececeen--> OOSALPHA/NUMERIC , OL=KATAKANA 

' 22 4 1O=HIRAGANA » 112 NOT CHANGE 
Lf Paeteeeencesnnenn--> QO=CAPS OFF . OL=CAPS ON 

-. LO=TOGGLE » L1=NOT CHANGE 

Pon tenn none en en een no---> OOSEXIT KANAKAN O1=ENTER KANAKAN 


LO=TOGGLE » LI=NOT CHANGE 
SAME AS AH=5 BUT THE INDICATER ISN'T CHANGED. 


WHNNOTEIOOG WHEN YOU USE THIS FUNCTION, 
YOU MUST HAVE THE STACK WHOSE LENGTH IS MORE THAN 130 WORD. 
THIS FUNCTION MAY USE THAT. 


INDICATOR AND KANAKAN ON/OFF 

AL REGSTER 

765 43 22 80 

rirrereirtd 

Pot tof ff 2 fessd KAMAKAN Q50N , 1S0FF 
fof of ff 2 Psetese> INDICATOR 50N » 1=0FF 
Joedentendententocssonna> RESERVED 


AS NOTED ABOVE, ONLY AX AND FLAGS CHANGED 
ALL REGISTERS RETAINED 


FAR 


eeeONeE } INTERRUPTS BACK ON 
TI sé 3 SAVE CURRENT DS 
PUSH : 5 SAVE BX TEMPORARILY 
ony bbs 3 rane DS AT BIOS DATA SEGMENT 
3 = 
OR AH, AH 3 Chg aaa 
5 AHS 
DEC AH 3 ASCII_STATUS 
JZ K2 y AHE2 
DEC AH } SHIFT_STATUS 
JZ LS} 5 AHSS 
DEC AH 3 SET TYPAMATIC RATES 
JZ TRATE 3 AHE4 
DEC AM rex } ONZOFF KEYBOARD CLICK 
Jz ; 
DEC aH 


Fe C4 7F TEST AH,7FH 3 AH=5 OR AH=85H 

380 74 65 ee cccenaet ; CHANGE THE KBD SHIFT STATUS 

On ive v2, RET_INTAG i TLLEGAL FUNCTION CALL 

exes Fe CC NZ RET_INT16 + ILLEGAL FUNCTION CALL 

i £9 0493 R JMP CHG_SW 5 CHANGE THE KANAKAN AND INDICATOR SWITCH 


3 
Boo-~-> READ THE KEY TO FIGURE OUT WHAT TO DO’ 


- Kis 3 ASCII READ 
Osea FB STI 3 INTERRUPTS BACK ON DURING LOOP 
$3cb 90 NOP 3 ALLOW AN INTERRUPT TO OCCUR 
oscc FA cul 3 INTERRUPTS BACK OFF 
O3CD 8B 1E OOLAR mov BX. BUFFER_HEAD 3 GET POINTER TO HEAD OF BUFFER 
o3pi 38 1€ oo1c R CHP BX,BUFFER_TAIL ; TEST END OF BUFFER 
o3p5 74 FS Jz Kl 3 LOOP UNTIL SOMETHING IN BUFFER 
o3p7 8B 07 MoV AX, CBX) 3 GET SCAN CODE AND ASCII CODE 
03D9 E8 0439 R CALL K4 3 MOVE POINTER TO NEXT POSITION 
o3spc 89 1€ COLA R MOV BUFFER_HEAD,BX 5 STORE VALUE IN VARIABLE 
O3EO EB SF ‘ JMP SHORT — RET_INTI6 

pooee-- ASCII STATUS 

, 

K2: 
See FA clr 3 INTERRUPTS OFF 
OSES 8B 1E COLA R MOV BX,BUFFER_HEAD 3 GET HEAD POINTER 
O3E7 SB 1E OIC R cMP BX,BUFFER_TAIL ; IF EQUAL (Z=1) THEN NOTHING THERE 
OSEB 8B 07 MOV AX, CBX} 
O3ED FB STI 3 INTERRUPTS BACK ON 
OSEE 58 POP Bx 3 RECOVER REGISTER 
OSEF 1F PoP DS 3 RECOVER SEGMENT 
osFO CA 0002 RET 2 3 


THROW AWAY FLAGS 
goeecon> SHIFT STATUS 


3 

OSFS K3: 
O3FS AO OO17 R MOV AL, KB_FLAG 3 GET THE SHIFT STATUS FLAGS 
O3F6 8A 26 OS36R MOV AH, JKB_FLAG 3 GET THE JKB_FLAG 
O3FA EB 25 ; JMP SHORT ~ RET_INTI6 

pro---- SET TYPAMATIC 
osFe TRATE: 
OsFC 3C 04 CMP AL.4 + CHECK FOR CORRECT RANGE 
OSFE 7F 21 JG RET_INT16 3 IF ILLEGAL VALUE IN AL IGNORE 
0400 80 26 0088 R FL AND KB. AFLAC 2,0F1H 3 MASK OFF ANY OLD TYPAMATIC STATES 
0405 00 EO SHL AL 3 SHIFT TO PROPER POSITION 
0407 08 06 0088 R OR KB “FLAG. 2,AL 
0608 EB 14 JMP SHORT —RET_INT16 

3 

groon---- ADJUST KEY CLICK 

, 
0400 KCLICK: 
040d 0A CO OR AL, AL 3 TURN OFF KEYBOARD CLICK? 
O60F 75 07 IRZ KCLICK1 3 JUMP FOR RANGE CHECK 
0411 80 26 0018 R FB AND KB_FLAG_1,AND_MASK-CLICK_ON ; TURN OFF CLICK 
0416 EB 09 JMp SHORT RET_INTI6 
0418s KCLICKA: 
0418 3¢ 01 cup AL,1 + RANGE CHECK 
041A 75 05 JHE RET_INTI6 NOT IN RANGE, RETURN 
O41 80 DE 0018 R 06 OR 


KB_FLAG_1,CLICK_ on” 3 TURN ON KEYBOARD CLICK 
s 
gmewee= INTERRUPT RETURN 


‘ 
421 RET_INT16: 
0621 5B Pop BX 3 RECOVER REGISTER 
04622 1F POP DS 3 RECOVER REGISTER 
0623 CF RET 3 RETURN TO CALLER 
t 
peers CHANGE KEYBOADR STATUS BY THE AL 
0426 CHG_SHIFT: 
ant Push ax 
; PUSH = CX 
0426 
062828 ce Mov CX, AX 3 SAVE AX INTO CX 
042A xc co AND AL,OCOH 3 
042c 76 06 CMP AL, OCOH + CHNGE KANAKAN ? 
O42E BS FF JE CH_CAP + IF AL=OCOH THEN CH_CAP 
0430 CD 78 ope Suerte i 
oes2 da CH_caP: 3} KANAKAH ROUTINE 
0634 24 30 mov AL.CL F 
0436 SC 30 AHO AL, 30H } 
0638 74 1D CMP AL, 30H ; 
tan ee cH AUz20n , 
74 16 7 20H 
ree a a 
08 L,T0H : 
bee 80 26 0017 R BF ie CAP_ERT 2 SAPS BLT OW Y 
a ee rh KB_FLAG,HOT CAPS_STATE 
046A 80 OE 6017 R 40 CAP_ENT: = 
x 
0657 — CH_JaP: OR KB_FLAG,CAPS_STATE 
9 26 0¢ Hov 
0458 $C ac AND aL Sty 
0450 76 0B CMP AL. OCK 
OS5F Do Es JE cH 2 
SHR rss 


OEAD R 


03 
1? 


26 0338 R FC 
a O338 R 


os 


0336 


0336 
90 
0336 
90 


0336 


FFO2 


os 


FFO. 


78 


0421 R 


6c 
6E 


46 
36 


0082 R 
0080 R 


co 
FF 
12 
ib 
07 
ic 
FF 


60 
FF 
74 


POooouw 
H—nvVoan 


1D 


04 


FF 
1F 
14 
0A 
08 
1A 
FF 


61 
FF 
FF 


vv ww 
UwUoON OU 


R F9 
O336 R 


R FE 


R01 


FF 
FF 
19 
FF 
DA 
18 
FF 


62 
77 
78 


34 
30 


74 
64 


FF 
7F 


01 
0B 
03 
FF 


63 
FF 
FF 


evr NU 
eoo ov 


AND JKB_LFLAG, NOT HOT_ALPHA_STAT 
OR JKB_FLAG,AL 
CH_H_2: 
MOV AL,CL 
AND AL, 03H 
cup AL, 03H 
JE CHG_SHIFT_R 
cme AL,O2H 3 TOGGLE ? 
JE H_2_T00 
CMP AL,O1H 
JE Z_ENT 
AND JKB_FLAG, NOT ZENKAKU_STATE 
JMP CHG_SHIFT_R 
Z_ENT: 
OR JKB_FLAG, ZENKAKU_STATE 
JMP CHG_SHIFT_R 
H_Z_T0G: 
XOR JKB_FLAG, ZENKAKU_STATE 
CHG_SHIFT_R: 
TEST CH, 80H 
JNZ CHG_S_R 
CALL IHD 
CHG_S_R: 
PoP cx 
PoP AX 
JMP RET_INTL6 
rf 
joooo- - CHANGE KANAKN AND INDICATOR SWITCH 
3 
CHG_SW: 
CMP AL,3 
JG CHG_SW_3 
AND JKB_FLAG_2,0FCH 
OR JKB_FLAG_2,AL 
TEST ALT 
JZ CHG_SW_1 
MOV AX, OFFO2H 
JMP SHORT CHG_SW_2 
CHG_SW_1: 
Mi AX, OFFO1H 
CHG_SwW_2: 
78H 
CHG_SW_3: 
JmP RET_INT16 
KEYBOARD_IO ENDP 
gooo--- INCREMENT A BUFFER POINTER 
Ks Proc NEAR 
INC BX 3 MOVE TO NEXT WORD IN LIST 
INC BX 
CMP BX,BUFFER_END ; AY END OF BUFFER? 
JNE KS 3 NO, CONTINUE 
~ MOV BX,BUFFER_START 3 YES, RESET TO BUFFER BEGINNING 
: RET 
K4 ENDP 
gro---- TABLE OF sphere KEYS AND MASK VALUES 
K6 LABEL 
DB RANGE _KEY, MUHEN_KEY, HENKAN_KEY 
DB ALPHA_KEY, KATAKANA_KEY, HIRAGANA_KEY 
DB INS_KEY 3 INSERT KEY 
DB NUM_KEY, SCROLL_KEY, ALT_KEY, CTL_KEY 
DB LEFT_KEY, RIGHT_KEY 
K6L Equ $-K6” 
bro-s-- SHIFT_MASK_TABLE 
K? LABEL” BYTE 
DB KANJI_SHIFT, MUHEN_SHIFT,HENKAN_SHIFT 
0B CAPS_ SHIFT, KATAKANA_SHIFT,HIRAGANA SHIFT 
DB INS_SHIFT 3 INSERT MODE SHIFT 
DB NUMTSHIFT. SCROLL_SHIFT,ALT_SHIFT,CTL_SHIFT 
DB LEFY_SHIFT,RIGHT_SHIFT 
bo---=- SCAN CODE TABLES 
K8 DB 27-1, O,-Lerde~LeSOon2 
DB Ss Ws eS eee Oe tte eee 
DB 2305 18,20525.21,9,25 
DB 16,27,29,10.-1/2019 
DB 45607 eB LOM L223 
DB =1,-1,28,26524,3022,2 
pe AG LS cle rderdemdem ded 
DB . t,-1 
proseeee- CTL TABLE SCAN 
Ko LABEL re 94,95, 96,97-98,99+ 100,101 
De 102,203,-ko~Le ALM “Lo LSZ,-2 
De LPS pode LMG o~D ALT R LLB, ad 


DB 
poereee= LC TABLE 


kio 


-1 


LABEL be BH, 12254567890-5", 08H, O9H 


es squertyuiopl)'sODH,~2,"aadfgh3kis", 0278 
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0558 


oS56c 
056D 
056D 


os7c 


0595 


OSA7 
OSA? 


OSAE 
O5B1 
6581 
0536 


OSBB 
o5BB 


08 
&9 
F6 
€9 
F6é 


3c 
84 


38 
23 


48 
4F 


sooo E 
SE 0017 R 
1E 0336 R 


6A 
6F 


33 
31 


20 
32 


FF 
31 


ES 4007 


FF 
06 


OAFO R 
O7CO R 


EF 06C7 


03 


7 BAAS 0 
80 


6727 R 


FF 
07 


6c 3B 
78 63 
20 


6c 
71 


3435 
33 30 


43 FF 
52 53 


R 
403. R 


26 017 R 
O7C9 R 


06 0017 R O64 
os 
O7B9 R 


66 0017 R og 
74 68 


3A 


26 Cola RK 


DB 60H,-1,5CH,*zxcvbnm,./",-1,'H',-1," * 
DB "1 
iroo--- UC Uitte og 
1 LABE! 
nt DB 27,°!208",37,05EH, "&K()_ +", 08H,0 
DB "QWERTYUIOP =', ODH,-1, "ASDFGHJKL:"* 
DB TEK»-1,°|ZXCVBHM<>2°,-1,0,-1," °,-2 
iw----~ UC TABLE SCAN 
Ki2 LABEL BYTE 
DB 84,85,86,87,88,89,90 
DB 91,92,93 
s7-"="- ALT TABLE SCAN 
Kis LABEL BYTE 
DB 104,105,106,107,108 
DB 109,110,121,112,133 
$~-~=--= HUM STATE TABLE 
K14 LABEL = BYTE 
DB *789-456¢1230." 
3------ BASE CASE TABLE 
Kis LABEL BYTE 
DB 71,72,73,-1,75,-1577 
DB -1,79,80,81,82,83 
311090100010000000000000000000000000000 000000000 ORDO HORONOONIDOEE 
grone-- KEYBOARD INTERRUPT ROUTINE 
500008 00000000000000000000 200 URQ DIDO DR OQO NDI QQNNRROL 
KB_LINT PRoc FAR 
STI : 3 ALLOW FURTHER INTERRUPTS 
PUSK A 
PUSH =—s_ BX 
PUSH = cx 
PUSH = DX 
PUSH = ST 
PUSH DI 
PUSH = »s. 
PUSHES 
clo “a 3 FORWARD DIRECTION 
ALL D 3 
MOV BH, KB_FLAG 3 
Mov BL,JKB_FLAG 3 
AND BX, 4007H 3 MASK KBD STATUS FLAG 
PUSH = BX 3 MEMORIZE KD STATUS 
MOV AH, AL 3 SAVE SCA 
browww= TEST FOR OVERRUN SCAN CODE FROM KEYBOARD 
CMP L,OFFH 3 IS THIS AN OVERRUN CHAR? 
JHZ 16 3 NO, TEST FOR SHIFT KEY 
CALL —- ERROR_BEEP 3 CALL ERROR BEEP ROUTINE 
ce ron’ ais ay 3 END OF INTERRUPT 
boo---- TE HIFY KEYS 
Ki6: 3 TEST_SHIFT 
Bi ALLO7FH 3 TURN”OFF THE BREAK BIT 
POP ES 3 ESTABLISH ADDRESS OF SHIFT TABLE 
aoe eeeeerser K6 3 SHIFT KEY TABLE 
+ LENGTH 
REPHE SCASB § LOOK THROUGH THE TABLE FOR A 
+ MATCH 
yeahs aU TF Raven oraND 
3 JUMP IF MATCH 
pommm=- SHIFT KES ZOUND 3 IF HO MATCH, THEN SHIFT NOT FOUND 
Kl7a ae DILOFFSET Kéo1 5 apgust PTR TO SCAN CODE MATCH 
Test AMeCS:K7CDI) 3 GET MASK INTO AH 
ang + TEST FOR BREAK KEY 
ahF_. . K28~ 3 BREAK_SHIFT_FOUND 
ka? ne SHIFT MAKE FOUND, DETERMINE SET-OR TOGGLE 
‘id pres 3 IS THIS A TOGGLE KEY 
3 


3 YES, HANDLE TOGGLE KEY 
wvToes PLAIN SHIFT Key, SET SHIFT on 

i KB_FLAG,AH } TURN ON SHIFY BIT 
jwwnnn- 19 


i INTERRUPT_RETURN 
kia, GGLED SHIFT KEY, TEST FoR 1ST MAKE OR NOT 


3 


+_SHIFT-TOGGLE 

yess Kis GAS» CTLLsHIFT 3 cheer CTL SHIFT STATE 

INP - 
K18_is Ks 3 JUMP IF CTL state 

TEST 

Jz Kez tAGe ALTsiier CHECK FOR ALTERNATE SHIFT 
Face: 5 JUMP IF HOT ALTERNATE SHIFT 
yTTTo ALTERNATE surey 

cup 


ae RUD AtPHALKey 
TEST AM-KB_FLaG 1 
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s ALTERNATE-ALPHA_KEY = CAPS 


+ IS Key ALREADY DEPRESSED 


o 

~ 
wn 
~ 


53 
26 0018 R 


26 0017 R 
0709 R 


06 OSS7 R 
OE O337 R 


26 0336 R 
39 90 


06 OS3S7 R 
OE O3S37 R 


OE O336R 
1E 90 


7F 90 
06 0338 R 
OE 0338 R 


” 
o 
° 
u 
uw 
oo 
RRA ON 


0338 R 


26 OS3a R 
4 OS3eR 


26 00 
€ Cola 
26 Oo1a R 
26 00 
§ 0017 R 


07C9 R 


5200 
OASS R 


10 


10 
FE 


08 
OL 


40 
46 


F9 


Kid: 


K20: 


K20_1: 


K20_2: 


K20_3: 


Kai: 


3 ewww e 


; 
K22: 


K22_l: 


K22_2: 


K22_3: 


K22_4: 


K22_5: 


K22_6: 


K22_72 
K22_8: 


, 
K23: 


JMP 


Kal 
KB_FLAG_1,AH 
KB_FLAG, AH 
K26 


AL, KATAKANA_KEY 
K20 


JUMP IF KEY ALREADY DEPRESSED 
INDICATE THAT THE KEY IS 
DEPRESSED 

TOGGLE THE SHIFT STATE 
INTERRUPT RETURN 


3 IS THIS THE KATAKAWA_KEY 
3 MOT KATAKAMA_KEY 


aa celiac ine nai 3 IS KEY ALREADY DEPRESSED 


JUMP IF KEY ALREADY DEPRESSED 


3 
JKB_FLAG_1,HAMKAKU_SHIFT ; INDICATE THAT THE KEY IS DEPRESSED 


rt lalalaliii ZENKAKU_STATE 
2 3 


AL, HIRAGANA_KEY 
K20_1 
K20_2 


JKB_FLAG_1,ZENKAKU_SHIFT 


3 TOGGLE THE SHIFT STATE 
INTERRUPT RETURN 


IS THIS THE HIRAGAMA_KEY 
MOT HIRAGANA_KEY 


3 IS KEY ALREADY DEPRESSED 
JUMP IF KEY ALREADY DEPRESSED 


- 


Kal s 
JKB_FLAG_1,ZENKAKU_SHIFT 5 INDICATE THAT THE KEY IS DEPRESSED 
JKB_FLAG, ZENKAKU_STATE 3 TOGGLE THE SHIFT STATE 


K21 
AL, KANJI_KEY 
K20_3 

AL, INS_KEY 
Kal 

K22_6 


SES FLAR. Ze KHUN SHTFS 
K2 
JKB_FLAG_2,KNUM_SHIFT 


AH,AL 
AL, 38H 
78H 


K26 


NOT ALTERNATE SHIFT 


cmp 
INZ 
TEST 
JNZ 
OR 
AND 
JMP 


MOV 


AL, ALPHA_KEY 


K22_1 
JKB_FLAG_1,ALPHA_SHIFT 
K22_7 


JKB_FLAG_1,ALPHA_SHIFT 
JKB_FLAG, ALPHA_STATE 
26 


AL, RATAKANA_KEY 
K22_2 
AL, HIRAGANA_KEY 
K22_3 


AH, JKB_FLAG_2 


”- 


“1S KNUMLKEY 
3 I$ INS_KEY 


3 IS KEY ALREADY DEPRESSED 

3 JUMP IF KEY ALREADY DEPRESSED 

3 INDICATE THAT THE KEY IS DEPRESSED 
$ 

KANAKAN ROUTINE 


INTERRUPT RETURN 


- 


3 SHIFT TOGGLE KEY HIT; PROCESS IT 
3 


IS THIS THE ALPHA_KEY 

NOT ALPHA_KEY 

IS KEY ALREADY DEPRESSED 

JUMP IF KEY ALREADY DEPRESSED 
INDICATE THAT THE KEY IS DEPRESSED 
TOGGLE THE SHIFT STATE 

INTERRUPT RETURN 


IS THIS THE KATAKANA_KEY 
YES, KATAKANA_KEY 
IS THIS THE HIRAGANA_KEY 
NOT HIRAGANA_KEY 


IS KEY ALREADY DEPRESSED 


we we we we we we 


we we we we 


K22_7 JUMP IF KEY ALREADY DEPRESSED 
JKBIFLAG_1,AH 3 INDICATE THAT THE KEY IS DEPRESSED 
JKB_FLAG, ALPHA_STATE 
JKB_FLAG, AH 3 TOGGLE THE SHIFT STATE 
K26 3 INTERRUPT RETURN 
AL KANST_REY A 1s THIS THE KANJI_KEY 

= 3 
AL, MUHEN_KEY 3 IS THYS THE MUNEN_KEY 
K22_4 3 MUHEN_KEY 
AL, HENKAN_KEY 3 IS THTS THE HENKAN_KEY 
K224 3 HENKAN_KEY 
SHORT K22_6 3 

; IS KEY ALREADY DEPRESSED 
ANSIEBLFLAG_2 i Tap Te KEY ALREADY DEPRESSED 
JKBTFLAG_2,AH 3 INDICATE THAT THE KEY IS DEPRESSED 
JKBTELAG,ZENKARU-CHAR, cacy cuKRAErER 
K22 3 
SET AN SCANCODE 
ese + SPACE CHARACTER 
78H ; KANAKAN ROUTINE 
SHORT K22_7 } INTERRUPT RETURN 
SET AH SCANCODE 

meer + DENKAKU SPACE 1ST BYTE 

M KANAKAN ROUTINE 
78H : SPACE 2ND BYTE 
teen : CEAKAN ROUTINE 
SHORT K22_? ; INTERRUPT RETURN 

. READY DEPRESSED 
Alle KB_FLAG_2 ' Usps Le KEY ALREADY  DELRESSED 
KELUAS ANG peeessep SHIFT STATE 
KB_FLAG, Av } TOSsLE ist MAKE OF INSERT KEY 
ALD INS_KEY 
K22_8 
i ; ump IF NOT INSERT KEY 
INTO AR, @ INTO AL 
1 SCAN CODE 

ax, Tns_KEYN256 + SET Tito ouTpuT SUFFER 


MP x57 
BREAK SHIFT FOUND 
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BREAK-SHIFT~FOUND 
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O7FB 
O7FD 


FF 
1D 


De 
26 
BS 
10 


Ool7 Rk 


0O19 R 


2 &4 
26 
A CO 


OO19 R 


oS 
OAIA R 
o7co R® 


BA 
19 
26 
26 
06 
68 
26 


64 


EE 
oD 
26 


36 
16 
E2 


DA 
os 


0337 R FE 
0018 R BF 
0018 R 02 


0018 R FD 
90 


0337 R FD 
0337 R EF 
90 


0337 R FB 
0337 R F7 
90 


R 7F 
R BF 


ouu 
uu 
© © 


0338 R DF 
90 
0338 R EF 
90 


0018 R 


0018 R 08 
0018 R F? 
OO17 R 


OS3E R 
4007 


OSFF 


16 


06 0017 R 08 
03 


OSEO R 


06 0017 R 04 
69 


53 
09 


96 0072 R 1234 


0000 E 


52 
09 


cmp DI,9 3 IS THIS ATOGGLE KEY 
JB K24 + YES, HANDLE TOGGLE KEY 
MOT AH + INVERT MAS 
AND KB_FLAG, AH 3 TURN OFF SHIFT BIT 
cn ALJ ALT_KEY#80H = 3 1s THIS ALTERNATE SHIFT RELEASE 
NE K23_ 3_INTERRUPT_RETURN 
pomo--- ACTeRwaTE SiieT ney RELEAS SED. GET THE VALUE INTO BUFFER 
mov ALT_ 
XOR AH, 3 SCAN CODE OF 0 
mov ALT_INPUT, AH 3 ZERO OUT THE FIELD 
OR ALL AL 3 WAS THE INPUT=0? 
JE K23_1 3 INTERRUPT_RETURN 
JMP K58 3 IT WASN'T, SO PUT IN BUFFER 
K23_1: 
JMp K26 
K24: BREAK-TOGGLE 
cMP AL, ycars _REY*BREAK BIT SPECIAL CASE OF TOGGLE KEY 
JHE 3 SOne AROUND POTENTIAL UPDATE 
AND aeae —FLAG_1,NOT ALPHA_SHIFT 3 INDICATE NO LONGER DEPRESSED 
AND KB_FLAG_ T.Nor CAPS_SHIFT 3 INDICATE NO LONGER DEPRESSED 
TEST KB_FLAG_1,CLICK SEQUENCE 
JZ K26 TERRUPT IS OVER 
AND KB_FLAG_1, AND. MASK CLICk SEQUENCE ; MASK OFF MAKE 
> OF CLICK 
oe JMP K26 3 INTERRUPT IS OVER 
7 
= ed $5 RAT ARAM.) KEY+BREAK_BIT 3 IS THIS THE KATAKANA_KEY 
2 3 NOT KATAKANA_KEY 
AND JKBLFLAG_1,NOT KATAKANA_SHIFT ~ ; INDICATE NO LONGER DEPRESSED 
AND JKBLFLAG_1,NOT HANKAKU_SHIFT 3 INDICATE NO LONGER DEPRESSED 
— JMP K26 3 INTERRUPT IS OVER 
t 
y nd AL HIRARAMAJ KEY+BREAK_BIT 3 IS THIS THE HIRAGANA_KEY 
2 3 NOT HIRAGANA_KEY 
AND JKBLFLAG_1,NOT HIRAGANA_SHIFT — ; INDICATE NO LONGER DEPRESSED 
AND pxBe FLAG_1,NOT ZENKAKU_SHIFT 3 INDICATE NO LONGER DEPRES 
JMP 3 INTERRUPT IS OVER 
K24_3: 
ys Sui Kanar KEY¢BREAR BIT ee 3 IS THIS THE KANJI_KEY 
24 ; NOT KANJ 
AND JXBIFLAG_2,NOT KANJI_SHIFT INDICATE NO LONGER DEPRESSED 
AND JKB_FLAG_2,NOT KNUM_SHIFT ; INDICATE NO LONGER DEPRESSED 
pelea JMP K26 + INTERRUPT IS OVER 
: 
7 cMP AL, MUHEN_KEY*+BREAK_BIT ‘Kee 3 IS THIS THE MUHEN_KEY 
JNZ K26_5 3 NOT MUHEN 
AND Jkp_ FLAG_2,NOT MUHEN_SHIFT ; INDICATE NO LONGER DEPRESSED 
JMP + INTERRUPT IS OVER 
K26_5: 
os cMP AL, HENKAN |_KEY*BREAK_BIT _— ee THIS THE HENKAN_KEY 
JNZ K26_6 3 MOT HIR 
AND JKo_ —FLAG_2,NOT HENKAN_SHIFT 3 INDICATE NO LONGER DEPRESSED 
3 INTERRUPT IS OVER 
Sete BREAK OF AORMAL TOGGLE 
oa NOT INVERT MASK 
AND ne FLAG_1,AH 3; INDICATE NO LONGER DEPRESSED 
JMP RT K26 3 INTERRUPT_RETURN 
bron--- TEST FOR: HOLD STATE 
iat eee tor BRUNE ney 
cmp AL, 80H 3 TEST 
JAE K26 3 NOTHING FOR BREAK CHARS FROM HERE 
3 ON 
TEST KB_FLAG_1,HOLD_STATE ; ARE WE IN HOLD STATE? 
JZ K28 3 BRANCH AROUND TEST IF NOT ¥e 
AND KB_FLAG_1,NOT HOLD STATE 3 TURM OFF THE HOLD STA 
K261 ; INTERRUPT-RETURN 
MOV DH,KB_FLAG 
MOV DL, JKB_FLAG 
AND DX,4007H 3 MASK KBD STATUS FLAG 
POP BX 
XOR ax. Dx 
JZ 
MOV ix, “asrrH 
INT 
K26_1: 
PoP ES 
PoP DS 
POP DI 
POP SI 
POP DX 
POP x 
oon BX 
oP Ax 3s RESTORE STATE 
TRET 3 RETURN, INTERRUPTS BACK OK WITH 
fetes 3 FLAG CHANGE 
NOT IN HOLD STATE, TEST PRR SPECIAL CHARS 
3 NO-HOLD-STA 
The) KRGFLAG-ALT_SHIFT 5 ARE WE IN ALTERNATE SHIFT 
TP he cH 3 she IF ALTERNATE SHIFT 
geen 3 JUM iF NOT ALTERNA 
iy. TEST FOR ALT#CTRL KEY SEQUENC 
Teste RESET 
er Ke FLAG, CTL_SHIFT ; ighE gu IM CONTROL SHIFT ALSO 
i E 
Sac At. »DEL_KEY ae STATE IS THERE, TEST KEY 
Fr=-"=— CTL-ALT~DEL-HAS 8 SET 
MoV RESET FLAG ae FOUND, "50 1/0 CLEANUP 


G. 1234H 3 SET FLAG FOR RESET FUNCTION 
JMP 
kava: ae NEAR FIR R RESET 


’ JUMP TO POWER ON DIAGNOSTICS 
; SHE AL, INS _| + CHECK FOR RESET WITH DIAGNOSTICS 
PTTT™ CTUALT“INSTHAS BEEH FOUND HECK FOR OTHER 
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06 0072 R 3412 
0000 E 

3A 

13 


06 0018 R 02 
AB 


36 0018 R 04 
OE 0018 R 02 
oF 

4D 

12 

OAD1 R 

FC 


94 

CE 0089 R 
ca 

ag R 


1 
OADI R 
04 


14 

06 CO89 R 
co 

OADD R 

02 


O3D4 
Co89 R 


O7CO R 


73 74°75 
78 79 7A 


72 

77 

11 12 

17 1314015 
9 1E 

23 1F 20 21 

25 26 2€ 2p 2€ 


EF 0877 
a R . 


&4 
Cc? 
COlg R 
87Co R 


°6 C019 R 06 
Cora 
e 


Mov RESET_FLAG, 3412H 3 SET FLAG FOR DIAGHOSTICS 
JMP NEAR PTR RESET ; LEVEL 1 DIAGNOSTICS 
K29_2: CMP AL, CAPS_KEY 3} CHECK FOR KEYBORAD CLICK TOGGLE 
JNE K29_3 + CHECK FOR SCREEN ADJUSTMENT 
prom--~ ALT#CTRL4CAPSLOCK HAS BEEN FOUND 
TEST | KB_FLAG_1,CLICK_SEQUENCE 
JNZ K26 JUMP IF SEQUENCE HAS ALREADY 
XOR KB_FLAG_1>CLICK_ On rig acete BIT FOR AUDIO KEYSTROKE 
OR KB_ FLAG. 1 /CLICK_ SEQUENCE 3 SET CLICK_SEQUENCE STATE 
JMP SHOR 3 INTERRUPT IS OVER 
K29_3: CMP AL, RIGHT ARROW } ADJUST SCREEN TO THE RIGHT? 
JNE K29_4 ; LOOK FOR RIGHT ADJUSTMENT 
CALL  GET_POS 3 GET THE ® OF POSITIONS SCREEN IS 
3 SHIFTED 
cMP AL, 0-RANGE 3 IS SCREEN SHIFTED AS FAR AS 
3 POSSIBLE? 
Jt K26 3 OUT OF RANGE 
DEC HORZ_POS 3; SHIFT VALUE TO THE RIGHT 
DEC AL 3 DECREASE RANGE VALUE 
CALL — PUT_POS 3 RESTORE STORAGE LOCATION 
JMP SHORT K29_5 3; ADJUST 
K29_4: CMP AL LEFT_ARROW 3 ADJUST SREEX TO THE LEFT? 
JNE 31 3 NOT AN ALT_CTRL SEQUENCE 
CALL GET_POs 3 GET HUMBERT OF POSITIONS SCREEN IS 
3; SHIFTE 
cup AL, RANGE 31S SCREEN SHIFTED AS FAR AS 
; POSSIBLE? 
JG K29_6 
INC HORZ_POS 3 SHIFT SCREEN TO THE LEFT 
INC AL 3 INCREASE NUMBER oF POSITIONS 
3 SCREEN IS SHIFTED 
CALL —- PUT_POS 3 PUT POSTION BACK IN STORAGE 
K29_5: MOV AL 3 ADJUS 
Mov DX, SD4H > ADDRESS TO CRT CONTROLLER 
nov AL HORZ_POS COLUMN POSITION 
mov ALLH at 3 
INC Dx’ ; POINT AT DATA REGISTER 
ouT DX, AL 3 MOV POSITION 
K29_6: IMP K26 
ponseo- IN ALTERNATE SHIFT, RESET MOT FOUND 
K31: ; NO-RESE 
cMP AL, 57 3; TEST ToFOR srace KEY 
Jz K31_1 ; GO TO 
cMP AL, 108 3 TEST a ees KEY 
Jz K31_1 3 GOT 
chp AL, 109 ; TEST FOR HENKAN KEY 
JZ K31_1 ; GO TO K31_1 
JMP K32 3 GO TO K32_ 
K31_1: MOV aL,’ * 3 SET SPACE CHAR 
JMP x57 3 BUFFER_FILL 
pooee- ALT-INPUT-TABLE 
oe . 5One? H,73H,74H,75H 
172 
DB 36H.77N,78H,79H+7AK 3 20 NUMBERS ON KEYPAD 
boo---- SUPER-SHIFT-TABLE 
DB 16,17,18,19,20,21,22.23 5 A-Z TYPEWRITER CHARS 
DB 24,25,30,31,32,33534,35 
DB 36537 ,38,44,45,46 47548 
POOK FOR KEY PAD ENTRY 
poeenne OR KEY 
al ATs 
Rov a al R30 F toOK FOR ENTRY USING KEYPAD 
REPNE SCASB 3 soe Oe PAD. 
JNE K33 3 
Sus DI, OFFSET K30¢2 3 DI_NOW HAS ENTRY VALUE 
MOV AL,» ALT_INPUT 3 GET THE CURRENT BYTE 
MOV AH.LO ~ ; MULTIPLY BY 10 
ate oat 3 ADD IH THE LATEST ENTRY 
fe SO ialaain ; Sinan AWAY THAT KEYSTROKE 
bo----- LOOK FOR SUPERSHIFT ENTRY 1) yevpap 
K33: : yeRO ANY PREVIOUS ENTRY INTO 
MOV ALT_INPUT,0 5 eer 
oes ee ey PHAR 
REPNE | SCASB : LOdK Om AUCTION KE KEY OR OTHER 
INE K34 bAScII cope, OF ZERO 
XOR ALJAL ; pur IT oe HE BUFFER 
IMP K TE SHI 
——— Look FOR TOP ROW OF ALTERNATE TOP mre on IT 
K34: 3 KEY wit 
on kad ; KEY WOKE oF INTERESTING KEYS 
a eS 
CMP al, ALT~ CAN T 
Jae OKSS ; CONVERT BEUEDO SCAN CODE TO 
A0D 0 AH, 18 + RANCT CATE AS SUCH 
me tasht te Sluna sean ces 
JMP FT 
peneee- TRANSLATE ALTERNATE SHIF: ALT-FUNGTTR TABLE 
K35: + TEST ONTINUE 
CMP AL, 59 3 ALT©COPeTURN 
JAE K37 3 CLOSER Ae Key 
K361 3 IGNORE TINUE 
JP K26 ; are EYPAD REGION 
K371 ee Au.7i 
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Appendix A: 


0931 


0934 
0934 
O9SA 
0940 


73 F9 
BB o5B1 R 
E9 oac7? KR 


Fe 06 0017 R 04 
74 66 


3e Py 


51 
if oo1A R 
AR 06 O71 R SO 


75 06 
BB 7200 
Es OASS R 


pa es£0 R 
ae 

7D 

£9 GASF R 


BO GA 
£9 oagl R 


3 6A 
7347 
£9 OAC? R 


oa GE 70 71 72:73 
74.75 76 77 78 79 
7A 7B 7 7D 7E 


= e011 


9945 
0945 


0956 
0959 
o95¢ 


2D 2B 30 2E 31 32 
$3 34 35 36 37 38 
39 2A 2F 2C OD 


BF 0934 RK 
B9 ool) 
Fas AE 


75 0c 

81 EF 0935 & 

2E: 8A 85 0945 KR 
£9 CASS KR 


Fo 06 0817 R 83 
7B 


3C OF 

75 06 

88 OFCD 
EY OASS KR 


3¢ 3B 
72 06 


BB OSAT RK 
E9 OACT R 


0 

F6 06 O336 R 06 
12 

BB ODGB R 

£8 OBGB R 

8B C2 

BB OD8S R 

E8 OBGB R 

£9 0709 R 

Fe 06 0336 R 02 

re oe 
06 0336 R O1 
12 


BB OC63 R 
ES OB6B R 


c2 
BB OCOD R 


K42_13 


K45_1: 


K45_2: 
K45_3: 


K46: 


R47: 


K47_1: 


JAE 3 IF $0, IGNORE 
MOV 3 ALT SHIFT PSEUDO SCAN TABLE 


JMP K6éS 3 TRANSLATE THAT 
MOT IN ALTERNATE SHIFT 


NOT-ALT-SHIF 

TEST KB_FLAG,CTL_ sure + ARE WE IN CONTROL SHIFT? 
IZ x45 NOT-CTL-SHIFT 

CONTROL SHIFT, TEST SPECIAL CHARACTERS 

TEST FOR BREAK AND PAUSE KEYS 

c 


K36 
BX,OFFSET KiS 


MP adalat KEY 3 TEST FOR BREAK 
JNE 3 MO-BREAK 
MOV Bx. BUFFER_HEAD ; GET CURRENT BUFFER HEAD 
MOV are BREAK,80H 5 TURN ON BIOS_BREAK BIT 
INT 3 BREAK INTERRUPT VECTOR 
SUB Axe AX 3 PUT OUT DUMMY CHARACTER 
Mov {BX1,AX 3 PUT DUMMY CHAR AT BUFFER HEAD 
CALL KS 3 UPDATE BUFFER POINTER 
mov BUFFER_TAIL,BX 3 UPDATE TAIL 
JMP K26 3 DONE WITH INTERUPT 
s NO-PAUSE 
~- TEST SPECIAL CASE KEY 55 
CMP AL,55 
JHE K42 3 NOT-KEY-55 
yd lia ; START/STOP PRINTING SWITCH 


BUFFER_FILL 
SET UP TO TRANSLATE CONTROL SHIFT 


3 NOT-KEY-55 
MoV BX,OFFSET K8 A Ser UP TO TRANSLATE CTL 
cMP AL, 59 3; IS IT IN TABLE? 
JGE K42_1 
JMP K56 3 YES, GO TRANSLATE CHAR 
MOV BX,OFFSET K9 3 CTL TABLE SCAN 
CMP AL,7EH 3 IS MUMERIC PAD RETURN KEY 
JNE K42_2 3 NO. 
mov AL, OAH 3 SET 'LF* CODE 
JMP K57_¢ 
cMP AL, 6AH 3 IS IT IN TABLE? 
JAE K45_2 
K63 3 TRANSLATE_SCAN 
TEN KEYPAD SCAN CODE TABLE 
LABEL BYTE 
DB 4AH,4EH,70H,71H,72H,73H 
DB 74H, 75H,76H.77H, 78H, 79H 
DB 7AH,7BH,7CH,7DH,7EH 


EQU $-K45 
TEN KEYPAD CHARACTER CODE TABLE 


LABEL BYTE 
OB "-40.123456789"7,°,ODH 


NOT IN CONTROL SHIFT 
DI,OFFSET K43 


3 SCAN CODE TABLE 
REPNE Stas ; LeE THROUGH THE TABLE FOR A 
3; MATCH 
JHE K65_1 ; IF NOT MATCH THEN K45 
SUB DI, OFFSET K43+1 3 ADJUST PTR TO SCAN coe mATCH 
MOV AL ,CS#KSSCDII i GET CHARACTER c 
JMP 
3; TEST FOR KEYPAD REGION 
SKE neg’! ; HANDLE KEYPAD REGION 
cnP AL 28 3 TEST FOR CR KEY 
JN 
MOV AL, 13 3 CR CODE 
INT 78H 3 KAHAKAN ROUTINE 
MP K26 } INTERRUPT RETURN 
+RIGHT_SHIFT 
TEST KBLFLAG, /LEFT_SHIFT#RIG fat Tn ear 
UPPER CASE, HANDLE SPECIAL EASES Fan key 
SNE K46 3 MOT-BACK-TAB 
mov AX, 150256 ; SET PSEUDO SCAN CODE 
3 
3 NOT- FORINT SCREEN 
CMP AL, 59 3 FUNCTION KEYS 
JB K47 3 NOT-UPPER-FUNCTION wii 
MOV BX,OFFSET K12 3 UPPER CASE PSEUDO SCAN © 
JP Kes 3 TRANSLATE_SCAN 
wiseia os + NOT-UPPER-FUMCTION 
H] 
mov DX, AX 3 STORE AX TO DX : 
TEST — JKB_FLAG/HIRAGANA_STATE j 15 HIRAGANA STATE tote 
JZ K§771 i NO. IMP KG7 1 epee suiFT 38 
Arta Bx, OFFSET H_Z_U_1ST 3 cenit ant “ 
ul Y 
nOy AX, DX + RESTORE DX TO A upper SHIFT 2nd 5 
Rov, BK/OFFSET HZU_2HD = 5 ZENKAKU Oy RAGAN 
POP DX ; HANDLING 
iil Kae 5} INTERRUPT RETURN 
Ueey GRB-ELAG/KATAKANA_STATE 515 KATAKAMA STATE 1 
3 NO. JMP K47_ 
ee iat FLAG,ZENKAKU_STATE 3 15 ZENKAKU STATE ? ar 3st 
3 NO. JMP K47_: HI 
CALL tk VOFESET K_2Z_U_151 i ZENKAKU | KATAKAHA UPPER § ie 
+ HANDL , 
roy (AX + RESTORE DX TO AX ex SHIFT 2NP 
XoOFFSET KZ_U_2ND 5 ZENKAKU KATAKANA UPP 
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ave muumowuuw moe 
C20 weeenonmr~u woo 


OBGB 
o7¢c9 


OBBS 
OBGB 


o7c9 


Do 


06 0336 R 04 


12 
OCD7 
OBGB 
c2 
OD11L 
OBGB 


o7c9 


06 OS36 R 

23 o2 
O336 

12 R01 


OBEF 
OBGB 
c2 

oc29 
OB6B 
o7Cc9 


OB7B 
OB6B 
o7C9 
6335 


ca 
o7 


2978 
12 


ae C336 R 02 


K47_2: 


K47_3: 


powee- 


K48: 


K49: 


K50: 


peeren- 


KS4: 


KS5r 


KSS_is 


KSS_2: 


KS5_3: 


R56: 


KS7: 


KS7_1: 


KS7_32 


K57_4: 


CALL cK 
SOP Pee ; HANDLING 
JMP K26 3 INTERRUPT RETURN 
MOV 8X,OFFSET K_H_U + HANKAKU KATAKANA UPPER SHIFT 
CALL cK 3 HANDLING 
POP DX 5 
JMP K26 3 INTERRUPT RETURN 
PoP DX 
MOV BX,OFFSET K11 5 POINT TO UPPER CASE TABLE 
JMP SHORT K56 3 OK, TRANSLATE THE CHAR 
3 KEYPAD-REGION 
CMP AL,83 3 IF SCAN CODE > 83 
JA K49 ; THER K49 
SuB AL,71 + CONVERT ORIGIN 
MOV BX,OFFSET K15 5 BASE CASE TABLE 
JMP K64 3 CONVERT TO PSEUDO SCAN 
cup AL, 6AH 3 IS SPECIAL KEY 
JNE x50 3 NO. JMP KS 
CALL sk 3 SPECIAL KEY HANDLING 
JMP K26 3 INTERRUPT RETURN 
MoV ate? 
JMP K57 
PLAIN OLD LOWER CASE 
+ NOT-SHIFT 
cMP AL, 59 3 TEST FOR FUNCTION KEYS 
JB K55 3 NOT-LOWER-FUNCTION 
XOR AL, AL 3 SCAN CODE IN AH ALREADY 
JMP SHORT K57 3 BUFFER_FILL 
3 WOT-LOWER-FUNCTION 
PUSH Dx ; 
MOV DX, AX 3 STORE AX TO DX 
TEST JKB_FLAG,HIRAGANA_STATE 35 IS HIRAGANA STATE ? 
JZ K55_1 3 NO. JMP K47_3 
nov BX, OFFSET H_Z_L_1ST + ZENKAKU HIRAGANA LOWER SHIFT 1ST BYTE 
CALL cK 3 HANDLING 
MOV AX, DX 3 RESTORE DX TO AX 
Mov BX, OFFSET H_Z_L_2uD ; ZENKAKU HIRAGANA LOWER SHIFT 2ND BYTE 
CALt cK 3 HANDLING 
POP Dx 3 
JMP K26 3 INTERRUPT RETURN 
TEST JKB_FLAG,KATAKANA_STATE 3 IS KATAKAHA STATE 2 
JZ K55_3 NO. JMP K47_3 
TEST IKB_FLAG, ZENKAKU_STATE 1$ ZENKAKU STATE ? 
J2 NO. JMP K 


K55 
MOV PesSEASET K_Z_U_isT 
K 


mov AX, DX 

MOV BX,OFFSET K_Z_L_2ND 
CALL cK 

POP Dx 

Jump K26 


MoV BX, OFFSET K_H_L 
cK 


47_2 

ZENKAKU KATAKANA LOWER SHIFT 3ST BYTE 
Meee DX TO AX 

RESTO 

ZENKAKU KATAKANA LOWER SHIFT 2ND BYTE 


HANDLING 
INTERRUPT RETURN 


HANKAKU KATAKANA LOWER SHIFT 
HANDLING 


we we we we we we Be we we OF HF 


we we we we 


PoP 
JMP kzé INTERRUPT RETURN 
POP Dx 
wedwstar PRE Ghanneten | EN 

LA i] 

AMET goa 
D A 3 
XUAT e$:x11 : CONVERT THE SCAN CODE TO ASCII 
PUT CHARACTER INTO BUFFER oy csi) 
3 
CMP AX, 0297EH 3 18 THIS A *TIRDE® 
JNE K57_1 3 NOT 'TIRDE es 
TEST JRB_FLAG, ZENKAKU_STATE Se 
nav eet ; 357 ee OF "TIRDE' 
HN 7EM on b OND BYTE OF ‘TIRE’ 
is k 1 RAN ERRUPT RETURN 
JMP K26 s 
5 A "REVERSE SLASH’ 
one ae : 15 THD EVERSE SLASH’ 
TEST SKBTELAG,ZENKARU_STATE, Geena? ATE 2 
IF K37 3S + Yst BYTE OF "REVERSE SLASH’ 
MOV ac, 3iH PR NAKAN 
INT 78H 1 PND BYTE OF ‘REVERSE SLASH’ 
MOV AL, SFH » RANAKAN 
Int ily + INTERRUPT RETURN 
JMP 
pusH =—- BX 
ION OF ERROR BEEP 

PUSH Cy 80H y DURATENCY OF TONE 
MOV BX,5 3 FREG 
mov CX» AST 3 BUFFER FULL BEEP 
CALL OKBLN 
PoP cx 
PoP 9 ; INTERRUPT RETURN 
uo . ys THIS AN IGNORE CHAR? 
cmp At,-2 } yes, 00 NOTHING METH IT 
JE pr 1 3 LOOK FOR SCAN 
cne ” 


Appendix A. 


OAD) 
OAD} 
OAD2 
OADS 
OAD? 
OaD9 
OADB 
oadc 
OaDD 


744A 
Fo 06 0017 R 40 
74 20 
Fo 06 0017 R OS 
74 OF 


ES ODBF R 
€9 O7C9 R 


2c 3B 


31 

AO 0086 R 
24 

Bl 06 

O2 F8 


cs 


80 €1 OF 


E 
80 26 0017 x FQ 
80 26 0018 R oF 


80 26 0088 Rk IF 
80 26 6337 R 06 


80 26 0338 R OF 


JE K59 3 NEAR_INTERRUPT_RETURN 
jr2--- - HANDLE THE CAPS LOCK PROBLEN 
3_BUFFER-FILL-NOTEST 
TEST —_KB_FLAG, CAPS USTATE SARE WE IN CAPS LOCK STATE? 
vz oe 3 SKIP IF HOT 
pooma-- IN CAPS 
TEST — KB_FLAG, LEFT ~SHIFTSRIGHT USKIFT 3 TEST FOR SHIFT 


Jz Keo ; tr NOT SHIFT, CONVERT LOWER TO 
UPPER 


Jorcee= caaveRT kee UPPER CASE 10 LOWER CASE 
chi 


FIND OUT IF ALPHABETIC 
JB K61 ; NOT_CAPS_STATE 
CMP AL,‘'2° 


JA K61 3 NOT_CAPS_STATE 
ADD AL, "at="Ae 3 CONVERT TO LOWER CASE 
¢ JMP SHORT K61 3 NOT_CAPS_STATE 
593 
JMP K26 3 INTERRUPT RETURN 
j------ CONVERT ANY LOWER CASE TO UPPER CASE 
R60: 3 LOWER-TO-UPPER 
cmp AL, ‘at + FIND OUT IF ALPHABETIC 
JB K61 3 NOT_CAPS_STATE 
CMP AL, *zt 
JA K61 3 NOT cars STATE 
SUB AL, *at-"ae 3 CONVERT TO UPPER CASE 
Kole 3 NOT-CAPS-STATE 
CALL ZEN AN 3 TRANSLATE A/N TO ZENKAKU 
JMP 3 INTERRUPT_RETURN 
— TRANSLATES Scan FOR PSEUDO SEAR GODES a 
2 3 TRANSLATE-S 
SUB AL,59 3 CONVERT ORIGIN TO FUNCTION KEYS 
K64: 3 TRANSLATE-SCAN-ORGD 
XLAT CS1K9 3 CTL TABLE SCAN 
MOV AH, AL 3 PUT VALUE INTO AH 
XOR AL, AL 3 ZERO ASCII CODE 
JMP K57 3 PUT IT INTO THE BUFFER 
KBLINT ENDP vies 
3GET_POS 


THIS ROUTINE WILL SHIFT THE VALUE STORED IN THE HIGH NIBBLE 
Siemey OF THE VARIABLE VAR_DELAY TO THE LOW NIBBLE. 
3 


fourrut NONE. IT IS ASSUMED THAT DS POINTS AT THE BIOS DATA AREA 
; LAU CONTAINS THE SHIFTED VALUE. le tae 
GET_POS PROC NEAR 

PUSH cx SAVE SHIFT REGISTER 

MOV AL,BYTE PTR VAR _betay GET, STORAGE LOCATION 

AND AL MASK OFF Low X 

HOV aca } SHIFT OF FOUR BIT POSITIONS 

SAR AUS CL 3 SHIFT THE VALUE SIGH EXTENDED 

PoP cx 3 RESTORE THE VALUE 

eT 
GET_Pos ENDP a 
t hoa eee See eK wee ewe ee owe wee wm weeeece=. eee wearers eeeceeeee= 
;PUT_POS 


THIS ROUTINE WILL TAKE THE VALUE IN LOW ORDER NIBBLE IN 
Sanne AL AND STORE IT IN THE HIGH ORDER OF VAR_DELAY 
sINPU 


; AL CONTAINS THE VALUE FOR STORAGE 
apabiadd 


NOME. Dae 
PUT_POS PROC NEAR 

PUSH = CX 3 SAVE REGISTER 

MOV CL 4 3 SHIFT COUNT 

SHL = AL, CL i PUT IN HIGH ORDER NIBBLE 

MOV «CL, BYTE PTR VAR_DELAY ; GET DATA BYTE 

AND CL, OF + CLEAR OLD VALUE IN HIGH KIBBLE 

oR AL, CL MBINE HIGH AND LOW NIBBLES 

mov BYTE PIR VAR_DELAY, AL; PUT IK POSITION 


3 RESTORE REGISTER 


FERROR aa 
HIS ROUTINE 
SIMPUT INE WILL ERROR BEEP 


NONE, 
sOUTPUT 
; NONE, 
3 NOTE: 
3 THIS ROUTINE DESTROY BX AND ¢ 
to _THIS ROUTINE CALL KB_NOISE. ms “= 
ERROR_BEEP PROC WEAR. ete 
Hoy a 80H 3 DURATION OF ERROR BEEP 
oth Xe 48H 3 FREQUENCY OF TONE 
at KB NOISE + BUFFER FULL BEEP 
FLAG, OFOH ; cue ALT, CLRL,LEFT AND RIGHT 
rf 
AND KBLFLAG_I,OFH 5 CLEAR POTENTIAL BREAK OF INS, CAPS 
AND Xn FLiGe.aey | »NUM AND SCROLL SHIFT ND 
CLEAR s aie 
AND JKB_FLAG_1,00H ; CLEAR HANCAKU, ENKAKU HIRAGANALKATARMY 
<a 3 ALPHA SHIFT HS 
RET SKBLFLAG_2,0FH CLEAR KANJI, KHUMBER,MUHEN AND HEHKA 
ERROR BEEP _ENDP 
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8150 
OF 


06 OS 
05 a8 


818F 
03 


8158 


FF 


cc 
os 


C3 
cé 


cq 
c9 


c2 
DS 


FF 
FF 
AD 


FF 
FF 


FF 
FF 


AF 
FF 


FF 


0017 
0336 


0336 
0017 
0336 


0336 


Bi 
D6 


Be 
bo? 


BC 
da 


BB 
ca 


a? 
AE 


A&B 
FF 


FF 
FF 


FF 
a4 


63 
06 


BS 
bc 


CA 
DA 


BF 
ih) 


ay 
AG 


FF 
FF 


FF 
FF 


FF 
Al 


05 
os 
02 


B4 
ce 


B6 
DE 


37 
Be 


cB 
D2 


AA 
FF 


FF 
FF 


FF 
FF 


FF 
AS 


Give we we we we 
mw et 

' 

i] 

i] 

4 

t 


SKi: 


SK2: 


SK3: 
SK4r 
SK5: 
SK6: 


SK7s 


SK8: 
SK9: 


x 


CKi: 


cK 
KALLE 


MHOTEX 


THIS KEY IS "JIS" UNIQUE Key Craseri® 


JAPANEASE CHARACTER 


NEAR 
JKB_FLAG, ZENKAKU_CHAR 


KB_FLAG, RIGHT_SHIFT*LEFT_SHIFT 


SKB_FLAG, KATAKANA_STATE 
SHORT SKS 

AL,O7EH 

SHORT SK4 

See PLAS RE TARA STTAEE 


AL, OBOH 
SHORT SK4 


AL,OSCH 
78H 


Dx 
KB_FLAG, RIGHT_SHIFT+LEFT_SHIFT 


SK 
JXB_FLAG, NOT ALPHA_STATE 
$K10 


DX, 08150H 
SHORT SK9 


JKB_FLAG,NOT ALPHA_STATE 
SK8 


DX, 0818FH 
SHORT SK9 


DX, 08158H 


SET HANDLING 


a-129 


NOT INCLUDE). 


ZENKAKU CHARACTER ? 
YES, ZENKAKU STATE 
UPPER CASE? 

NOT UPPER CASE 
KATAKAHA STATE ? 
HOT KATAKANA STATE 
GO TO RETURN 


"OVERSCORE® 
CALL KANAKAN 


KATAKANA STATE ? 
NOT KATAKANA STATE 
"PROLONGED SOUND’ 
CALL KANAKAN 

"YEN SIGH’ 


KAHAKAN ROUTINE 


we we we we we we we 


wwe 


we we we we 


- 


- 


UPPER CASE ? 
NOT UPPER CASE 
ALPHA_STATE 

NOT ALPHA STATE 
"OVERSCORE® 
CALL KANAKAN 


ALPHA_STATE 

NOT ALPHA STATE 
"YEN SIGH* 

CALL KAHAKAN 


"PROLONGED SOUND" 


we we we we we we we 


we we wee 


KANAKAN ROUTINE 
KANAKAN ROUTINE 


we we 


INPUT 
= SCAN CODE 
AL = OFFSET FROM TABLE'S FIRST BYTE + 1 
survey BX = OFFSET OF TABLE’S FIST BYTE 
U oe 
PROC NEAR 
DEC AL , 
XLAT CS:Kil_ 3 
CHP AL,-1 
JE cK1 ; 
CMP AH,-1 3 
JE CK 3 
INT 78H ; 
ENDP : 
R CASE 
LABEL BYTE s KATAKANA HANKAKU LOWE 
DB 1BH, OC7H, OCCH, OB1N, OBSH, OB4H, © BSH, OD4N, ODSH, OD6H, ODCH, @CEH, OCDH. 08H 
K 0 FH, - 
DB 09H, OCOH, OC3H, OBZH, OBDN, OBGH, ODDH, OCSH, OCS , OD7H, OBEH, ODEH, ODFH.-2 
9H, ODSH, CDAH, OB9H, @DLH 
oB #1, OC1H, OCAH, OBCH, OCAH, OB7H, OBBH, OCFH» ,OD8H, 039K, 
OB <assaziss 4 eaiattinst ou FAs MCD, UTNE TRONS DROIT RCSRA SDSS ERE ERT RE 
DB -1,20H,-2 
PER C 
ANA HARKAKU UP a 
DB toheea BYTE: ghoHeOAAM,CABH SOACH, OADH OAEHsOAGH 1,-1,08H 
. owao 
“yeh pcde the GAZHe na 
DB DH cde -2,OABH,-de~de mde“ E Ayrderder’ 
-yne2,cd GASH 
Pe ee ugh 
eee 
-1 AGH, OALH, CASH) ~1o-2 
DB ny yee QAFHy=derberbembe nF 
DB 0-1, 20H,~2 


oBEF 
OBeEF 


oBFD 
ocos 
ocis 
oc2é 
oc29 
oc2? 
ocs7 
oces 
ecs2 
oceo 
oces 
océs 
oc7l 
oc7F 
ecsc 
OCoA 
oceD 
oceD 
OCAB 
oces 
eccé 
OcDe 
eco? 
eco? 
OCES 
OCFS 
oDoe 
ODeE 
OD11 
oDl1 
OD1F 
ep2d 
ODSA 
0D48 
OD4B 
OD4B 
0059 


0D67 


6074 


33 85 85 

83 83 85 

3 83 

83 83 85 
FF 

83 83 83 835 

33 a3 83 83 85 


? 33 83 83 83 83 


33 83 83 85 85 
81 
81 FF 


74:41:45 47 
$8 86 88 8F 7A 
FF 

65 43 58 4A 
; 6A 89 5A SA 


FF 
67 56 GE 4c 
D 6D BA BC 50 


p 63 54.5C 71 
oF 82 6C BB 8h 


% 

40 FF 

FF FF 83 83 83 
83 83 83 83 81 


Pe FF 83 FF FF 
FF OFF FF 81 FF 


F 
FF FE FE FF FF 
FF OFF FF 81 83 


FF 83 FE FF FF 
FF FF 61 81 81 


FF 

81 FF 

FF FF 40 44 46 
83 85 87 92 92 


FF 
FF FF 42 FF FF 
FF FF FF 77 FF 


FF 
FF FF FF FF FF 
FF FF FF 78 9% 


FF 62 FF FF FF 
FF FF 41 42 45 


FF 

40 FF 

82 82 82 82 82 
82 82 82 82 82 
8 


8 
82 82 82 82 82 
ae 82 82 82 81 


82 82 82 82 82 
82 82 82 82 82 


82 82 82 82 82 
82 82 82 82 82 
81 

81 FF 


CA DS AB AG AG 
oe E4 6 ED D9 


BD C4 A2 B7 Ag 
EB C9 E7 BS GA 


BF C6 BS CD AB 
OC CC E8 EA AF 


EB C2 BS BB DO 
fe EO CB E® DF 


40 FF 
FF FF 82 82 82 
HH 82 82 82 81 


FF FF 82 FF FF 
EF FF FF 81 FF 


FF FF FF OFF FF 
FF FF FF 81 33 


FF 82 FF FF F 
FE FF &t 81 a 


3 

KRZU18T 
DB 

OB 

DB 

‘ DB 
KZL_2ND, 
DB 

DB 

DB 

DB 
K2Uist 
DB 

DB 

DB 

; DB 
KZU_2ND 
DB 

DB 

DB 

; DB 
HZAL1ST 
DB 

DB 

DB 

DB 

KZA 2H 
DB 

DB 

DB 

, DB 
MANAST 
DB 

DB 


LABEL BYTE 3 _KATAKANA ZENKAKU LOWER 1ST BYTE 
1BH,83H,83H,835H,83H,83H,835H,83H,83H,85H-83H,83H,8SH,08H 


09H, 83H,8SH,83H,835H,85H,835H,83H,83H,83H,83H,81H,81H,-1 
~1,83H,85H,8SH,85H,835H,83H,83H,85H,83H,83H,83H,8SH 


-1,85H,835H,83H,83H,85H,85H,83H,83H,83H,83H,83H,-1,81H 
-1,81H,-1 


LABEL BYTE 3 KATAKANA ZENKAKU LOWER 2ND BYTE 
~-1,6BH,74H,41H,45H,47H,49H,84H,86H,88H,8FH, 7AH,77He~2 


-1,5EH,65H,43H,58H,4AH, 93H,69H,6AH,89H,5AH,4AH,4BH,—1 
-1,60H,67H,56H,6EH,4CH,4EH,7DH,6DH,8AH,8CH, 50H, 80H 


~1,8DH,63H,54H,5CH,71H,52H,7EH,82H,6CH,8BH,81H,-1, 96H 
-1,40H,-1 


LABEL BYTE 3 KATAKANA ZENKAKU UPPER 1ST BYTE 
1BH,-1,-1,83H,83H,83H,83H,83H,83H,85H,83H,81H, 81H, 08H 


09H,-1,-1,83H,-1,-1,-1,-1,-1,-1,81H,~-1.81H,-1 
WLemLemLerlemderlemle-lLs-1.-1,81H,85H,81H 
-1,-1,83H,-1,-1,-1l,~-1,-1,-1,81H,81H,81H,-1,-1 


-1,81H,-1 
LABEL BYTE 3 KATAKANA ZENKAKU UPPER 2ND BYTE 


=1,-1,-1,40H, 44H, 46H, 48H,83H,85H,87H, 92H, 92H, 58H. 2 
“L,-1,-1,42He—-Le-LerLe-Le-Lo-1,77H,-1e7S5He-1 

“1 s-Le-1e-1,—L,—1e—-1,-2,-1,—-1, 78H, 96H, 76H 

-1,-1,62H -Le-Le-i pl ,-1,-21541H, 42H, 45H,-1,-1 

-1,40H,-1 

aH BEL ght Su act sen Sone BaNe OH s82Hs82H.82H, 82H, 08K 
09H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,81H,81H,-2 
-1,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H 
-1,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H.-1/81H 

-1,81H,~1 

LUABEL | BYTE, |, 5 HIRAGANA ZENKAKU LOWER 200,005 Dy, oD9H,OD6Hs~1 
<§ OSDH TCAD OAT, 6evA, BASH APH wens cean ETA ABSA AO 
i), ark, aces, ansu, econ cexenseani ster dicen. een teat CARE. SPE 
1, Aen MAMAS EheMcneNNy Nr anon neon dean nEaMeRNeeE 
-1,40H,-1 


TE 
LABEL BYTE _;_HIRAGANA ZENKAKU UPPER 1ST BY 
1BH,=1,-1,82H,82H,82H, 82H, 82H, 82H, 82H, 82H, 81H, 81H. 08 


OOH 1 ,-1,82H,-2,-1,-2,-2,-1,-2,81Hy 281s “2 
TLerberLemhemdy-1y-1,-1,-1,-1,81H, 85H, 81H 


WLeW 1 B2H,-2,-2,-1,-1,-1,-1,81H, 81H, 81H, “ed 
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Op82 ~FF 81 FF DB 





-1,81H,-1 
0D85 Hf Z_U_2ND LABEL BYTE 3 HIRAGAHA ZENKAKU UPPER 2ND BYTE 
0085 FF FF FF 9F AS AS 7 DBs -1,-1,-1, 9FH, OASH, OASH, OA7H, OELK, OE3H, OESH,OFOH, 92H, 58H»-1 
ae El ES E5 Fo 92 
OD9S FF FF FF Al FF FF DB -2,-1,-2,OALH»-Le-Le-LemLe-do-1,77H»-1,7SHe-2 
er ad FF FF 77 FF 
ODAl FF FF FF FF FF FF DB Lyd Le rdemLe-2s-Le-l,-2,-2,78H, 96H, 76H 
- FF FF FF 78 96 
ODAE FF FF C1 FF FF FF DB mL WL, OCLH»~L,—LomLe~Lo-Lo-2, 41H, 42H, 45H,~1 5-2 
FF FF FF 41 42 45 
FF FF 
ODBC FF 40 FF DB -1,40H,-1 
{acGucheusocees~ocns euviecwnUGwsdeussecnewaenansocaswestcse-pccose 
ZEH_AN 
; = TRANSLATE art TO ZENKAKU A/N 
INPUT A 
; = SCAN CODE 
3 AL = ABYTE JIS CODE (20H-7EH) 
3 OUTPUT NONE eek 
proereressoseeo- ——e<2e= eee wwe eee eee 6 ee 
ODBF ZEN_AN PROC NEAR 
; 
ODBF 52 PUSH DX 
cuce 8B DO MOV ee suneixu State AX IN DX 
c2 JKB_FLAG, [is 
oDc?7 56 iE one ee ee H_KAKU > IF NOT ZENKAKU THEN H_KAKU 
opcs 3c 20 CMP AL, 20H 3 IF AL<20H THEN H_KAKU 
ODCB 7C 1A JL H_KAKU 3 
ODCD 3C 7E CMP AL, 7EH 3 IF AL>7EH THEN H_KAKU 
ODCF 7F 16 JG H_KAKU 3 
fa 2c 20 SUB AL, 20H ca tae ORIGIN 
DS BB ODEB R MOV BX, OFFS 3 
CDD6 2E: D7 XLAT CS:Z_ALPHAL 3 CONVERT THE SCAN CODE TO 1ST BYTE OF 
= 3 CHRACTER CODE 
ODDS CD 78 INT 78H 3 KANAKAN ROUTINE 
ODDA 8B C2 MoV AX, DX 3 RESTORE AX 
opdDc 2c 20 SUB AL, 20H 3 CONVERT ORIGIN 
ODDE BB CESAR MOV BX, OFFSET Z_ALPHA2 
ODE1 2E: D7 


XLAT CS:Z_ALPHMA2 3 CONVERT THE SCAN CODE TO 2ND BYTE OF 


; CHRACTER CODE 
> 


INT 78H KANAKAN ROUTINE 
ODES 5A POP Dx 

obey °° H_KAKU: 2 

ODEd SA por Dx" 

Obes ZEN_AM ENDP 

ODEB 2 ALPHAL LABEL BYTE 3} ZENKAKU_ALPHA 1ST BYTE 
ODES 81 81 81 81 81 81 DB 81H,81H,81H,81H,81H,81H,81H.81N 
ODFS 31 Si 81 81 81 81 DB 81H,81H,81H,81H,81H,81H,81H,81H 
ODFB 82 82 82 82 82 82 DB 82H,82H,82H,82H,82H,82H,82H,82H 
OEOS 82 82 81 81 81 81 DB 82H,82H,81H,81H,81H,81H,81H,81H 
CEOS a1 82 82 82 82 82 DB 81H,82H,82H,82H,82H,82H,82H,82H 
OE1S 82 82 82 82 82 82 DB 82H,82H,82H,82H,82H,82H,82H,82H 
OE1B 82 82 82 82 82 82 DB 82H,82H,82H,82H,82H,82H,82H,82H 
OE2S 82 82 82 81 81 81 DB 82H,82H,82H,81H,81H,82H,81H,81H 
OE2B 81 82 82 82 82 82 DB 81H,82H,82H,82H,82H,82H,82H,82H 
ESS 82 82 82 82 Bz Bz DB 82H, 82H,82H,82H,82H,82H,82N,82K 
OESB 82 82 82 82 Bz az DB 82H,82H,82H,82H,82H, 82H, 82H, 82H 
OE4S 82 82 Bz 81 81 81 DB 82H,82H,82H,81H,81N, 81H, 81H 
oesA 49°42 00 90 90 93 petehie ER HTT RR CST et eae 
OES2 ¢? $a 96 7B 43 7¢ DB 69H,6AH,96H,7BH,43H,7CH, 44H, 5EH 
OESA SE 30 51 52 53 50 DB 4FH,50H, 51H, 52H, 53H, 54H, 55H, 56H 
CE62 3? 38 46 47 83 B1 DB 57H, 58H, 46H,47H, 83H, 81H, 84H, 48H 
OEGA ? 60 61 62 63 64 DB 97H,60H,61H,62H,63H, 64H, 65H, 66H 
oE72 7 68 69 6A 6B 6C DB 67H,68H,69H,6AN,68H,6CH,6DH,6EN 
OE7A 6F 79 71°72 73 74 vB 6FH,70H,71H,72H, 73H, 74H, 75H. 76H 
OE82 77 28 79 6D 8F 6E DB 77H, 78H,79H,6DH,8FH,6EH,4FH, SIN 
OESA 4D 81 82 33 84 85 DB 4DH,81H,82H,83H,84H,85H,86H,87H 
oEs2 88 89 8A 8B 8C 8D DB 88H,89H,8AH,8BH,8CH,8DH, SEN, SFH 
CEA 38 31 92 93 94 95 DB 90H, 91H, 92H, 93H, 94H, 95H, 96H, 97H 
OEA2 38 99 9A 6F 62 70 DB 98H, 99H, 9AN,6FH, 62H, 70H, 50H 
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preet ete nn en nn ee ee + eee 


ween we enw wn ww ne eo ew ene ee ee 


3 DISPLAY SHIFT STATUS ROUTINE 
t 
3 uum NOTE © 
3 THIS ROUTINE. DISPLAY CURRENT SHIFT STATUS. 
a PeeereRe ear et net Came ma mace eee ee ee ee, a 
3 
EAS IND PROC NEAR 
SEAD FG 66 0338 R @2 TEST —- IKBLFLAG_2,INDICATOR_OFF ; INDICATOR SWITCH OFF ? 
we gS me, i 
8 
0EB1 52 PUSH Dx 3 
OEDZ FS 06 0336 R 04 TEST = JKB_FLAG,HIRAGANA_STATE ; TEST HIRAGANA SHIFT 
OEB7 JZ INDL 3 NOT HIRAGANA SHIFT 
OEB9 Bb oer? R yok SianY thie 3 SET HIRAGANA INDICATOR 
EBC 3 DISPLAY INDICATOR 
OEBE INDI: 
DEBE FE 06 0336 R 02 TEST = JKB_FLAG,KATAKANA_STATE 3 TEST KATAKANA SHIFT 
OECS 05 JZ IND2 3 NOT KATAKANA SHIFT 
oECS a Bree R pt hier aa 3 SET KATAKANA INDICATOR 
OEC3 3 DISPLAY INDICATOR 
OECA IND2: 
DECA F6 06 0017 R 40 TEST KB_FLAG, CAPS_STATE 3 TEST CAPS SHIFT 
OECF 74 05 Jz INDS 3 NOT CAPS SHIFT 
a gee Te BhoaFTHaDiMesS | BEL GAS otearon 
0 3 DISPLAY INDICAT 
OED6 INDS: 
oeDS BB OFIZ R sues | OY BX, OFFSET EMESS 3 SET ALPHA/NUMERIC INDICATOR 
0 
OED? BA CACO MoV DX, OAOOH 3 SET LOW,COLOUM 
oEDC £8 0 CALL WRITE 3 DISPLAY 
OEDF FG tb 76 R 01 TEST = JKB_FLAG,ZENKAKU_STATE 3 TEST ZENKAKU SHIFT 
oEES 74 Jz INDS 3 NOT ZENKAKU SHIFT 
DEES iH nF R nov BX OFFSET MESSZ 3 SET ZENKAKU INDICATOR 
3 DISPLAY INDICATOR 
OEEB IMDS: 
sEER BB OFIB R “anes BX, OFFSET MESSi 3 SET HARKAKU INDICATOR 
0 t 
CEEE BA 0A08 mov DX, OAGSH 3 SET LOW,COLOUM 
COEF! £8 OF25 R CALL = WRITE 3 DISPLAY 
EFS SA POP DX ; 
CEFS 5B PoP BX ; 
OEF6 IND7: 
EFS CS RET 
OEF? IND ENDP 
3 
OEF7 HMESS LABEL WORD 
OEF? a 3 82 Ad 82 C8 081H,079H,082H, OAH, 082H, OC8H, 081H,045H, °S? 
8 
oFoo KMESS LABEL WORD 
FOO 81 73 83 4A 83 69 DB 081H,079H, O83H, 04AH, 083H,069H,081H,045H,"S* 
81 45 24 
oFO9 CHESS LABEL WORD 
OFO9 81 2 $3 61 70 73 081H,079H,043H,061H,070H,075H,081H,065H, "8° 
81 
OF12 EMESS LABEL BYTE 
OF12 81 79 oH 70 90 94 081H,079H,089H,070H,090H,094H,081H,045H, "9° 
45 
OF1B MESS1 LABEL BYTE 
aris 96 BC 81 7A 26 hf DB a o2ite OBCH. O81H. O7AH, "8° 
ESS2. LABEL B 
0F20 91 53 81 7A 26 DB 091H,053H,081H,07AH,'$" 
PAGE 
yf soe Sawa step setecessectesseucceeesucscnesatecctoesceemeeees 
; MESSAGE WRITE ROUTINE 
3 INPUT BX OFFSET OF MESSAGE HEAD 
3 DH ROW 
5 DL COLUM 
3 
3 OUTPUT NONE. 
3 
3 wm NOTE aM 
3 MESSAGE FORMAT 
3 Qeoneeenen=-- KF) BYTE --none-------> 
3 
3 (01), (02), 003) ,-------- = ------- CCN), "8° 
3 weuesoeewee 
OF25 A ieee hcl a i ela Racers as 
fe 50 URITE. proc HEAR 
PUSH BP 
OF2? 8B EA HOV BP, DX ; 
OF29 BS BS MOV AH, 83H 3} READ ALTERNATE CURSOR POSITION 
orep gp ue INT 10H ; AND CURSOR TYPE 
oFee PM PUSH CX ; 
OFZF Bd 2 PUSH DX ; 
OFS2 Be gee MOV CX, 2000H a 
OF Se a be TRY ton ; ERASE ALTERNATE CURSOR 
MOV DX, BP 5 
sea BS 82 HOV AH, 82H sm 
arse cD 10 Int 10H 3 SET ALTERNATE CURSOR POSITION 
WR 
OFae Ge get 2F Rs 1 one BYTE PTR CSiCBXI,"#" 5 15, END OF MESSAGRE 
F462 2€: Ba 97 J hie + LOAD CHARACTER 
OF6S 55 MOV AL, CS: CBX) 3 
H x 
ae He HOV BL. oF 3 SET COLOR (IN GRAPHIC MODE) 
MoV AH, 8 
tree gb 20 THT 10H 5 BIOS CALL 10H 
SFSD 43 net } INCREMENT POINTER 
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81 


NOnonvo~no 
NeENe Oe Ne 


Orwuunw oc 
v~ATNOesmM wee 


36 0359 
04 


1E 001C R 


e4 


WR2: 


3 
3 INT bg tt tala DATA INTO BUFFER) 
3 NPU 


3 OUTPU 


prcceon-------- wee eee =e ee enn eee ween nnn nnn ee. 


TWO_BYT: 
Mov 
ONE_BYT: : 


KQ2: 


KQ3: 


KQ4: 


IRET 
BUFFER_QUEING 
PAGE 


SHORT WR1 


Dx 
AH, 82H 





PROC FAR 
CS:CODE,DS:DATA 


Ss 
BX, BUFFER_TAIL 
SI,BX 


K4 

BX, BUFFER_HEAD 
KQ2 

ae tana PTR 


SI,(BX 
SI, petra 


SI,0EFH 


ONE_BYT + --~- RECOGNIZE PREVIOUS DATA IS FIRST BYTE OF KANJI 


BUFFER_TAIL,BX 


BX 
ERROR_BEEP 
BX 
SHORT KQ4 


ee we we we we we we we we we we we 


3 
3 
U 
3 
3 
3 
E 


RECOVER ALTERNATE CURSOR POSITION 


RECOVER ALTERNATE CURSOR TYPE 


POINT DS AT BIOS DATA SEGMENT 
GET THE END nen TO THE BUFFER 
Lu 


AIL 
HAS THE BUFFER WRAPPED AROUND? 
BUFFER_FILL_BEEP 


~~~ SI=CONTENT OF PREVIOUS DATA 


x 
" 
x 
" 
" 
" 
u 
0 


3 BACK THE POINTER 


SAVE BUFFER_TAIL 
CALL ERROR BEEP ROUTINE 
RETRIEVE BUFFER TAIL 


+ RETURN FROM INTERRUPT 


KB_FLAG_1,CLICK_ON ; IS AUDIO FEEDBACK ENABLED? 
Kes ER 


Bx 

BX,1H 
CX,10H 
KB_LNOISE 

BX 
FIRST_PTR,SI 


CS1),Ax 
BUFFER_TAIL,BX 


ENDP 


we we we we we we we 


NO, JUST PUT IN BUFF 

SAVE BUFFER_TAIL VALUE 
DURATION OF CLICK 

FREQUENCY OF CLICK 

OUTPUT AUDIO FEEDBACK OF KEY 
STROKE 

RETRIEVE BUFFER_TAIL VALUE 


MEMORIZE POINTER 


STORE THE VALUE 
MOVE THE POINTER UP 


RETURN FROM INTERRUPT 


eebaeed 1 tedden ED 


ORG 
CODE ENDS 
END 


BEGIN#1100H 
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PELLET | 
De 00 Oe DO Oe Oe Be ne 


" " 
m MODULE 5 x 
" x 


PEEP ET 
PELE LEE 8 
6000 
0000 40:19 28 
0003 408 19 28 
0006 40 19 50 
0009 40 19 50 
000c 84 19 28 
QOOF 84 19 28 
0012 80 19 50 
0015 00 00 00 
0018 8C 19 14 
001B 8C 19 28 
OO1E 84 19 50 
0021 060 00 00 
0026 060 00 00 
0027 00 00 00 
002A 00 GO 00 
@02D 00 00 00 
0030 40 OB 28 
0033 40 OB 28 
0036 40 OB 50 
0039 40 OB 50 
0OSC 84 19 28 
COSF 84 19 28 
0042 80 19 50 
0045 00 00 00 
0048 8C 19 14 
006B 8C 19 28 
QOOSE 84 19 50 
0051 ac 19 50 
0054 00 
0055 00 
0056 «FS 
0057 F& 
0058 00 
0059 00 
OO5A 80 
6058 80 
eosc 70 
005D 70 
QOSE FS 
QOSF F8& 
0060 600 
0061 00 
0062 80 
0063 00 
006% 60 
0065 00 
0066 80 
0067 10 
0068 98 
0069 00 
OO6A 60 
0068 10 
006C 78 
@06D 00 
OO6E 98 
OO6F 10 
9070 60 
Oo71 18 
0072 98 
0073 60 
0074 78 
0075 80 
0076 98 
0077 EO 
0078 «78 
0079 CO 
OO7A 78 
007B EO 
oo7c «678 
007D FO 
QO7E FS& 
OO7F F8 
0080 600 
0081 060 
0082 80 
0083 80 
0086 20 
0085 20 
0086 CO 


een THIS LOGIC WILL BE INVOKED BY INTERRUPT OSH TO PRINT THE 4 
; 5020 THE STATUS OF THE PRINT SCREEN. ; 
: = 0 1 PRINT SCREEN ISK*T CALLED. ; 
; = 11 PRINT SCREEN IS IN PROGRESS ; 
= __ 2721 ERROR ENCOUKTED DURING PRINTING 


Joceoeeee coca weweesewcnsceccce eonerecee 
3 VIDEO MODE TABLE 


BYTE 1 7.6 O01 CHARACTER / 10 GRAPHIC 3 
5 COLOR TABLE OFFSET 


5 

5 

VERTICAL SCREEN SIZE(SIZE/8 WHEN GRAPHIC) s 
3 

C7 


] 
BYTE2 7-0 
8 


BYTE 3 7- : HORIZONTAL SCREEN SIZE 
TABLE PROC NEAR 
MODETBL DB 040H,019H,028H 3 C (40,25) sMATIVE 

DB 040H,019H,028H 3 C (40,25) 

DB 040H,019H,050H 3 C (80,25) 

DB 040H,019H,050H 3 C (80,25) 

DB 084H,019H,028H 3 G (320,200) 

DB 084H,019H,028H 3 G (320,200) 

DB 080H,019H,050H 3G (640, 

DB 000H,000H,000H 3 NOT VALID 

DB O8CH,019H,014H 3 G (160,200) 

DB O8CH,019H,028H + G (320,200) 

DB 084H,019H,050H + G (640,290) 

DB 000H,000H,000H 3 MOT VALID 

DB 000H,000H,000H 3 MOT VALID 

DB 000H,000H,000H 3 NOT VALID 

DB 000H,000H,000H s NOT VALID 

DOB 000H,000H,000H 3 MOT VALID 

DB 040H,00BH,028H 3 C (40,11) 

OB 040H,00BH,028H 3 C (40,11) 

DB 040H, 00BH,050H ~ 3 © (80,21) 

DB 040H,00BH,050H 3 C (80,11) 

DB 084H,019H,028H 3 G (320,200) 

OB 086H,019H,028H 3 G (320,200) 

DB 080H,019H,05S0H 3 G (640,200) 

DB 000H,000H,000H 3 NOT VALID 

Ds 08CH,019H,014H 3 G (160,200) 

DB O8CH,O1L9H,028H 3 G (320,200) 

DB 0846H,019H,050H 3 G (640,200) 

DB OACH,019H,050H 3 G (640,200) 
DOTTBL DB 000H s 2 COLOR 

DB Q@O0K 

DB OF8H 

bB OFSH 

DB OOOH 3 4 COLOR 

DB QOOH 

DB 080H 

DB O80H 

OB Q70H 

DB 070H 

DB OF3H 

DB OFS8H 

DB OOOH 3 16 COLOR 

OB OOOH 

DB O380H 

DB O00H 

DB 060H 

DB Q00H 

DB O80H 

DB O10H 

DB 098H 

DB Q00H 

DB 060H 

OB 010K 

DB 078H 

OB OOOH 

DB 098H 

DB 010K 

OB 060H 

OB O18H 

os 098H 

DB 060H 

DB 078K 

OB O80H 

DB 098H 

oB QEOH 

DB 078H 

DB OCOn 

DB O78H 

DB QEOH 

DB O738H 

DB QFOH 

DB OFSH 

DB OF3H 

dB OOOH + SUPER 16 COLOR 

bB QOOH 

OB O80 

DB O80H 

oB O20H 

DB Q20H 

DB OCcon 


A-135 


Appendix A. 


8E CO 
80 SE @O1E R 02 
74 


26: 80 SE 9000 R O1 
74 5C 
26: C6 ifs 0000 R OL 


E8 925 

89 26 O06 R 
E8 O3SSF R 

8A 26 OOOS R 
AO 0004 R 

50 

B4 OF 


CD 10 
88 SE 0068 R 
32 €4 


2E: BA o2 oooo R 


A2 006 
80 se. beep R 00 
74 13 


7F 38 
E9 OLAR R 
E ---- R 


8E CE 
Hy FE 06 0000 R 


E8 0308 R 
3B 26 0069 R 
BE 


8E C6 


26: Stee 0060 R O2 


£8 6 
t 


33 D2 
Fe C4 08 
DB 


BB 7814 





DB OCoH 
DB 028H 
DB 028H 
DB OEOH 
DB OEOH 
DB 058K 
DB 058H 
DB OF8H 
DB OF8H 
DB 000H 
DB O0OH 
DB 080H 
DB 030H 
DB 020H 
DB 020H 
DB OCOK 
DB OCOK 
DB 028H 
DB 028H 
DB OEOH 
DB OEOH 
DB 058H 
DB 058H 
DB OF8H . 
DB OF8H 
TABLE ENDP 
fosabenwccseceksweon Sriopmtm toate a, anoneiawciccoeweninens 
; MAIN ROUTINE 
PRINT_SCREEN PROC FAR , 
AVE REGS. 
PUSH ES = = 
PUSH AX 
PUSH BX 
PUSH cx 
PUSH DX 
PUSH SI 
PUSH DI 
MOV AX, DSEGH sSET DS 
MOV DS.A 
MoV AX, XXDATA 3SET ES 
MOV ES, AX 
CMP STATUSI7,2 sIS INT17 IN PROGRESS ? 
JE RETURN 
CMP STATUS_BYTE,1 sIS INTS IN PROGRESS ? 
JE RETURN 
MOV STATUS_BYTE,1 
CALL INIT sINITIAL PROCESS 
MoV SPSAVES, SP 
CALL CRLF 
MOV AH, CPI sSAVE CPI,LPI 
MOV AL, LPI 
PUSH Ax 
MOV AH,15 sGET DISPLAY STATUS AND PAGE 
INT 10H 
Mov PAGENO, BH 
XOR AH, AH sMODE CHECK 
MOV DI,AX 
ADD DI, AX 
ADD DI,AX 
MOV AL, MODETBLUDI) 3SET VIDEO MODE 
MoV VIDEO_MODE, AL 
CMP VIDEO_MODE,90 
JE ABEND 
JG CHAR sCHARACTER 
JMP GRAPH 3GRAPHIC 
EXIT: MOV SI,XXDATA 3SET NORMAL STATUS 
THe STATUS_BYTE 
HC 
POP BX _ sRESTORE CPI,LPI 
CALL CPILPI 
A : MOV SP, SPSAVES sRESTORE S 
agi MOV SI,XXDATA sSET ERROR * status 
SUB FaTUS_BYTE,2 
. 
CALL Post a sPOST ROUTINE 
RETURN: POP DI 
PoP SI 
PoP DX 
POP cx 
POP BX 
PoP AX 
POP ES 
POP s 
IRET 
paint SCREEN ENDP ects arm ste aes spicata iced 
; INT 17 CALL ROUTINE seasick 
Jee c owen nn ene e cena nce ewe meme me eee nennnneeeennnn n= 
INTL? = PROC HEAR 
ror BE ox 
17H SINT 17 
AH, 08H sERROR ? 
ABEND 
DX 
eSestotumsacosce UsGusecessccesceascecne se icccoweeeeswacenas 
ACTER HARD COPY dedpipaksaha pa adanaaiien 
NEAR 
BX,7814H 36 CPI , 6 LPI SET 
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SYS YY YS VAAAAARAAONUUUNNU SP SHLD OU 
MOPFAOKSNOMOFSFARSNOMOFASNOMFAKENOAOU 


eooooocoececo 
be ae bee Dee ee Be ee bee ew 
rrr rovwvwvwowoe 
OuUuEnMeoUE Th 


ver >>p 


EO ee ed ed el ed ck aah and ack od od acl dl aed andl aol andl andl aed andl aol acl aed aad od 
NOMGOPFHSSOONSVUNSOMPF CHUUAMPVUN NO OFWH MBO 


eooecececocecoococooeooecocoocoooeocooooocceoecoeoc0oeocoeoo 
SCOMABAANAMAAANMMMMMMMOGCOCGCINNNANNNGseSs 


eoooooo 
NANNAANNN 





EB 0308 R CALL CPILPI 
2E: BA AD 0001 R MoV CH, MODETBL4+1(DI) SET DISPLAY SIZE TO CX 
2E: 8A 8D 0002 R MoV CL,MODETBL*2(DI) 
32 F6 XOR DH, DH 30 -> V.POS 
32 v2 CHAROO: XOR DL, DL 30 -> H.POS 
33 F6 XOR SI,SI 30 -> BUF.POS 
B4 02 CHARLO: MOV AH,2 sMOVE CURSOR 
BA 3E 0068 R MoV BH, PAGENO 
CD 10 INT 10H 
BG 08 MOV AH,8 BREAD CHARACTER & ATTRIBUTE 
8A 3E 0068 R Mov BH, PAGENO 
CD 10 INT 10H 
3¢ 1¢ CMP AL,1CH sFORMAT CHARACTER ? 
77 22 JA FORMAT 
3¢ 19 CMP AL, 19H 
77 1¢ JA CNTROL 
3c 18 CMP AL, 18H 
77 1A JA FORMAT 
3¢ 17 CMP AL,17H 
77 16 JA CHTROL 
3c 14 CMP AL. 16H 
77 12 JA FORMAT 
3c 10 CMP AL, 10H 
77 0c JA CHTROL 
3c OF CMP AL, OFH 
77 OA JA FORMAT 
3C 06 CMP AL, 06H 
77 04 JA CNTROL 
3c 00 CMP AL, 00H 
77 02 JA FORMAT 
BO 20 CNTROL: MOV AL,t ¢ 
83 84 03D4 R FORMAT: MOV CODE_INTS(SIJ,AL 3SET CHARACTER 
C6 84 0476 R 00 MOV ATTRIINT5S(S1},0 3SET ATTRIBUTE 
46 INC SI 3UP BUFFER POSITION 
FE c2 INC DL 3UP HORIZONTAL POSITION 
3A D1 CMP DL.cL sLIMIT ? 
75 BA JNE CHAR1O 
51 PUSH = CX SPRINT CHARACTER 
BS OB MoV AH,11 
8D 1E O3DER LEA BX, CODE_INTS 
3D 3E 0474 R LEA DI, ATTRIINTS 
8B CE MoV cx, SI 
E8 0126 R CALL INT17 
59 POP cx 
FE C6 INC DH SUP VERTICAL POSITION 
3A F5 CMP DH,CH 
75 9F JNE CHAROO 
ES OOFD R JMP EXIT 
EAR 
BB 7810 MOV BX, 7810H 36 CPI , 7.5 LPI SET 
E8 0308 R CALL CPILPY 
B& 0COS MoV AX, 0COSH 3SET UNIDIRECTION 
B7 00 MOV BH, 0 
E8 0126 R CALL INTL? 
B8 001B MoV AX, 001BH sSET 3 BYTE TRANSMISSION 
E8 0126 R CALL INTI? 
B83 0028 Mov AX, 0028H 
E8 0126 R CALL INT 
E8 025A R CALL SIZESET 
339 XOR cx, Cx 30 -> H.POS 
E&8 0317 R GROG: = CALL ESCX1 sESC # X + 1 4 RL 4% N2 
8B 16 0062 R MoV DX, VSIZE 3VSIZE -> V.POS 
4A DEC Dx 
8B 36 0OGER GR10: = MOV SI,SLICE 3SET COUNT 
33 FF XOR DI,DI 
51 PUSH CX 
E& O2BE R GR20: CALL DOTSET 3DOT PATTERN SET 
41 INC cx 3MOVE POSITION RIGHT 
2B 36 0064 R SUB ST,HRATIO 
75 F6 INZ GR20 
8B OE 0066 R MOV CX, VRATIO 3PRINT DOT PATTERN 
51 GR40: PUSH = cx 
33 FF XOR DI,DI 
8B 0E oo00 R mov CX, PRINTER_ID 3SLICE 7 8 -> Cx 
51 GRS0: PUSH cx 3SET DOT PATTERN TO AH 
39 coos mov CX.8 
BA 85 0080 R GREG: MOV AL, DOTC{DI) 
Di £0 SHL AX, 
88 85 0080 R MOV DOTCDII,AL 
47 INC DI 
E2 FS LOOP = GR6O 
59 PoP ex 
BA C4 MOV ALLAN SPRINTING 
32 E4 XOR AH, AH 
ES 0126 R CALL INTL? 
E2 E5 Loop GR50 
59 POP cx 
E2 DA Loop GR40 
59 POP cx 
4A DEC ox sUP VERTICAL POSITION 
383 FA 00 CMP DX, 0 
7D BE INL GR1O sLIMIT 2 
E8 OS3SFR CALL CRLF 3LINE FEED 
Al OO6E R MOV AX, SLICE sSLICE 7 HRATIO -> ax 
33 D2 XOR DX, DX 
F7 36 0064 R DIV HRATIO 
03 C8 ADD CX, AX SUP HORIZONTAL POSITION 
3B OE 0060 R CMP CX, HSIZE 


A-137 


Appendix A. 














ike IDIRECTION 
Ae nov AX, OCOSH sSET B 
0223 7C AZ iby tees 
228 2) CALL ImMTi7 
teen fa Ot26 R cau, Ini a 
dap ee eh on AO ee 
iat . INITIAL PROCESS as 
iar poe WEAR }SAVE RETURN ADDRESS 
nase a mee 
U 
et nov AL LF_cT SAVE LINE FEED COUNT 
° -_ 
i MOV" SAVE CURSOR POSITION 
HH uae yt “ 
ue gt PUSH St RESTORE RETURN AD 
O23F 52 
cn ; POST PROCESS 0 ana ay ce de on ERE: 
Fost PROC NEAR ESS 
os AVE RETURN ADDR 
neta oer te bx SRESTORE CURSOR RoSTTION 
aos 3A tHe VIDEO_MODE, 0 
saan ae e CMP VIDED | 
0244 80 SE 06D RO ch Patt 
agek Be 02 HOV BH, PAGENO 7 
ent isc" 10s POP Bx" sRESTORE LINE FEED COU 
agen POsT10: ‘1 
v LF_cY, 
b358 88 1E 0026 ® mov LF 
t2s3 es RET _. 
Post ENDP dy caauienicae a taleeo eas ao iss 
025A a 3 
DOT SIZE SET RS ere 
DOT SIZE SET pases Soh ta 
SIZESET PROC Anes SET VERTICAL DOT SIZE 
rash nov ‘MODETBL42 (DI) 
e Mov ALM 
Oasc 26: SA 8S COOL R rou ae 
H : 
me Re nov an SET HORIZONTAL DOT SIZE 
nate 32 Ee nov AU MODETBL#2¢D1) 
bata BA 85 0002 R mov AL. NO 
Hae pe VRATEONe HSET EWLARGE RATIO. 
VRATIO,2 = SET ENLARGE RATIO : 
De ERs an mee ae 
Ba7A Si SE boce & eoce cn VSIZE, ify. size ire 
tH 2 tt ae AX. PRIRTER_ID i] 2000S tes a 
0282 c7 G6 ants R 0005 SIZEOQO: Boh aive sc _ ‘eo — or 
0288 si SE O0C0 R 0168 ic SIZE10 i ee part pare 
as i Mg ic earrarr 
HH 81 3E 0860 R 084 16 S1ZEL0 i mes je 
ap * iSET TABLE OFFS 
Caer AS neds 8 SIZE10: MOV WeenaENEL sacar) pegeeen 
ob Wile a as AND COLORTD: O03FH SLICE SIZE (16 OR 24) 
0247 AS 00GB R : HOV caters. 08 rx se 
O2AA 81 26 0068 R 003 AND coto 3 
02B0 8B OE 0000 R mov cx.P 
02B4 BO 08 nov AL 
0286 FE C1 1Kc et eax 
esta AS Gh MOV SLICE, _ 
O2BA AS O06E R mov ee , 
Oabe SIZESET ENDP I tes ty —o 
a ; CDOT STORE ai pereteras gies 
; Ss sn, ee ee 
OTSET PRO c AR 
DOTSeT PROC. NE 
OBE PUSH CX 
ser 32 en ae SREAD DOT 
ezee Be ep nov AK, 
ozce SB og CMP CX, HSIZE 
i ce no SET VERTICAL MASK 
MOV 
ozce 35 66 AND AX, OOOFH 
Decr as bs mae BX, AX 
02cF HOV 
03D HF fe 006B R ADD Ea coreg) votexi = 
ape See et ge sees HOV DL, DOTTBL41(BXJ cack ueeesbaeal WE 
O20C  2E: 8A 97 0055 R mov DL, DOTTBL reales 
O2EL 8B 1E 0066 HOV Bx. ie 
OE) an Ee MoV CX, BX uot oat 
02€7 4 Be As Bx ak 
02E9 9 a 
26D ab of nov CX, PRINTER_ID 
ert gs ge aise DoT20: MOV DOTLDI), 
sees 1 BS 0080 R OY or 
OOP 
tere Hh co hav eae 3640 MODE t 
OFA Oh Se OR BX, BX 
are 4 BS Fd DOT99 
O2FC 76 97 
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r¥-¥-2 1-1-0 -3 7-7-7 7 YY) 
BHUUUUUUUUNUNUu 
UMUUUNNNANN mmr 
SOUUKONODRUVOOFPVN 


eo 
wu 
wu 
<2 


95 0080 R DOT3SO: MOV DOTCDI), DL 


INC or 
F9 Loop DOTS6 
DOT99: POP Dx 
POP cx 
RET 
OaTsey ENDP 
ee Been eS he esi emuaaeSan Use eeeeseweeecesKesetecclneseeens 
H cPr uPr SET “ROUTINE (BH + cel ’ BL : LPI) 5 
oe ew ww we ee ES SR OO OR Sw PS DOeeeeseeeoeeorro@ j 
ePrpi PROC NEAR 
ocol MOV AX, OCO1H sCPI SET 
0126 R CALL Helga 
FB MoV BH,B sUPI SET 
oco2 MoV AX, oco2H 
0126 R CALL INT17 
RET 
CPILPI  ENDP , 
pelea lanai ere ee wieseocneewuae er ee er 
; Esc + x + 1 + Nl + N2 3 
SW lecatseowccecacasnenesse ee ey 
ESCX1 = PROC EAR 
001B MOV AX, 001BH sESC 
0126 R CALL INTL? 
0025 MOV AX, 0025H 5% 
0126 R CALL T17 
0031 MoV AX, beaan 31 
0126 R CALL IN 
0062 R MOV AX, VSIZE sM1N2 = WSIZE X VRATIO 
26 0066 R MUL VRATIO 
PUSH 
c4 MOV AL,AH 
E4 XOR AH, AH 
0126 R CALL INTL? 
PoP AX 
XOR AH, AH 
0126 R CALL INT17 
RET 
ESCxX1 ENDP . 
H CR. LF. 3 
CRLF PROC NEAR : 
oooD MOV AX, 000DH 3cR 
0126 R CALL INTL? 
3E 0000 R O1 CMP PRINTER_ID,1 Ln 1? 
07 JNE CR10 
OOOA MOV AX,000AH ite (FOR PT-1) 
0126 R cat INTL? 
0418 CR10: MOV AX, 041BK sVERTICAL FEED (FOR PT-2) 
0126 R CALL INTL7 
04625 MOV AX,0625H 
0126 R CALL INTLT 
0435 MOV AX,0435H 
0126 R® CALL INTL? 
0400 MOV AX,0400H 
0126 R CALL INTL? 
0410 MoV AX,0410H 
0126 R CALL INT 
RET 
CRLF ENDP 
ORG BEGIN*O3COH 
CODE ENDS 
END 
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" x 
mu MODULE 32 : 


wee 


INT 17 _soenn nana nn newen nnn anew nnn nn nnn- enn n= === == === wreecennenna5 
RIRTER 170 
INPUT 
AH=0 1 PRINT A CODE IN AL 
AL: OUTPUT DATA 


AH=1 + INITIALIZE PRINTER 
AH=2 1 BEAD PAIOTER STATUS~1 IN AH 
5 


wet 


SEL 
OUT OF PAPER 
RESERVED 
~BUSY 


AH=S + READ PRINTER STATUS-2 IN AH 
7 6 43 251 ' 
| PRINTER-ID 
PIM 
LPI 


RESERVED 
. RESERVED 


4073 10 


: 10 
01: 12 01 
: 15 re 


ae oe te 
NOUS 


AH=4 : PASS THROUGH A oe IW AL 
AL : OUTPUT DAT 


> 
=z 
“ 
w 
- 


PRINT A CODE IN AL CDOUBLE SIZE) 
AL : OUTPUT DATA 


3 
3 

5 

3 

5 

H 

8 

3 

3 

3 

> 

3 

rf 

; 

5 

? 

3 

3 

i 

t 

3 

8 

3 

3 

3 

3 

iy 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

AH=6 : RESERVED t 
AH=7 : RESERVED : 
AH=8 : RESERVED : 
AH=9 : RESERVED / 
AH=A : RESERVED 3 
3 

AH=B : PRINT CODES WITH ATTRIBUTES ; 
ES:BX : ADDRESS OF CHARACTER BUFFER ; 
ES:DI : ADDRESS OF ATTRIBUTE BUFFER ; 
CX: LENGTH OF THE BUFFER ; 
3 

3 

3 

3 

3 

3 

3 

3 

5 

i 

; 

3 

3 

3 

3 

3 

5 

rf 

3 

3 

3 

; 

3 

5 

F 

Fi 

1 

4 

3 

5 

A 

3 

; 

; 

ry 

3 


ATTRIBUTE 
7 6 5 4 3,2 1,0 


| HORIZONTAL GRID * 
VERTICAL GRID ¥ 
RESERVED 
HIGH-INTENSITY 
UBDERSCORE 
RESERVED 


SINGLE SOLID LINE 
DOUBLE SOLID LINE 
SINGLE DASHED LINE 


AH=C + SET PRINTER CONTROL VALU 
AL=0 + RESET CONTROL VALUE a DEFAULT 
AL=1_: CHANGE CHARACTER PITCH 
BH=90 : 10 CHAR/INCH 
BH=78 : 12 CHAR/INCH 
BH=6C : 4073 CHAR/INCH 
BH=60 : 15 CHAR/INCH 
AL=2 : CHANGE LINE FEED PITCH 
BH : PHYSICAL PICH * 120 CINCH) 
AL=3 : CHANGE PAGE LENGTH 
BX : PAGE LENGTH 
AL=5 = CHANGE DIRECTION 
BH=0 : UNIDIRECTION 
BH=1 : BIDIRECTION 
AL=6 : CHANGE CHARACTER TYPE 
BH=0 : LARGE TYPE 
BH=1 : SMALL TYPE 


DX MUST bE ZERO. 


s 


LINE 

00 : NO GRID LINE 
Fy 
2 


eeoeeennoneoooe eee nn nn nn nn ee nn nnn nn nn nn een nnn enn nn nen-==}3 


CPI , LPI CONTROL VALUE TABLE 3 


VERTICAL “ CONTROL VALUES 
0 KEY 
1-3 ‘ SOLID IMAGE 
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eocoooocoocoo0oco0o0oo 
eocoocoococoocoocccooo 
Ne ee ee OO 
NTNOS>COuUNnNKoo> 


0025 


eocoooooceceoccocoCo 
=P-2-7 2-2 tt tt ot od 
OOOO yuWIFFOSPOOOH 
WSUMOKPROSTNOFVAvOust 


P>rrowo 
penory 


UNH OK TNHOHON-OCOTN TNH 
ANSPOONSVONNMVYOONM 


10 
Q 


comnnroocorooo 
OK OTOCOCKOOONNT 


VERE OrnR 
VRENUNO OMe 


50 


o 
m 


FF 
3sF 


FF 
FC 


oF 


3sE 


7 


Fo 


Fs 
Fo 


FF 
3F 


co 


01 


4 
7 


pero nnn nn eee === 


NORAZEGT 


i- 
4 


ee we we we we we 


TABLE ENDP 
: MAIN ROUTINE 
PRINTER, 10 

“STI 


PUSH 


-6 : DASHED IMAGE 

t UNDERSCORE IMAGE 

t FEED VALUE 
DB 1EH 
DB OFFH,OFFH,OF8H 
DB OF8H,03FH, OFOK 
DB 080H 
DB 7 
DB 1EH 
DB OFFH, OFFH, OFFH 
DB OOFH,OFCH,01FH 
DB 080H 
DB 7 
DB 18H 
DB OFFH,OFOH,000H 
DB OFCH,0S0H,000H 
DB O10H 
DB 4 
DB 18H 
DB OFFH, OFFH, OFFH 
DB O3FH,OFCH,O3SFH 
DB 010H 
DB 
DB 14H 
DB OFCH,0COH,000H 
DB OF8H,000H,000H 
DB 002H 
DB 2 
DB 14H 
DB OFFH, OFFH, OFFH 
DB OOFH, OFCH,O1FH 
DB 002H 
DB 
DB 10H 
DB 000H,000H,000H 
DB 000H,000H,000H 
DB 
DB 0 
DB 10H 
DB OFFH, OFFH, OFFH 
DB OFOH,OFFH, 0OOFH 
DB 001K 
DBL 
AL “GRID CONTROL VALUES 


3: DASHED IMAGE 
: HORIZONTAL SIZE 


3 - LPr (UPPER) 


3 4 LPI (LOWER) 


3 5 LPI CUPPER) 


3 5 LPI CLOWER) 


3 6 LPI CUPPER) 


3 6 LPI CLOWER) 


3 7.5 LPI CUPPER) 


3 7.5 LPI CLOWER) 


: SPACE BETWEEN CHARACTERS 


90H 
oB OFCH,OOFH,OCOH 
18 


78H 
DB aaa al 


DB 4 

DB 6CH 

DB OF8H,07CH,000H 
13 

DB 3 


60H 
DB eel 


st. 1. DSEGM 

STATOSI7.«3 

SPSAVE, SP 

DX, DX 

NO USE 
NTER_ID,0 

4 en 

AX 

INIT 


RETURN |_CODE.PR_SELECT 
RETURN CODE, PR_BUSY 


1 
PRINTER_ID,2 
PTR 
PRINTER_ID,2 

O_DEV 
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3 13.4 CPI 


3 15 cPer 





Setetatateteeed | 


3 INTERRUPTS BACK ON 
3 SAVE REGISTERS 


3 SET DATA SEGMENT ADDRESS 


3 SET PROGRESS FLAG ON 
3 SAVE STACK POINTER 
3 CHECK PRINTER CLASS 


3 IMPROPER DEVICE --RETURN-- 


3 CHECK PRINTER-ID 
3 AVAILABLE 
3 INITIALIZE 


3 SET SELECT TO RETURN CODE 


3 IF INIT IS REQUIRED, 


3 JUMP TO PTRI ROUTINE DIRECTLY. 
E 


3 IF STATUS IS REQUIRED, 


3 JUMP TO PTR) ROUTINE 
3 CHECK PRINTER TYPE-} a 


3 CHECK PRINTER TrPE-2 
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0136 R 
06 C002 R 08 
26 0002 R EF 


26 0002 R 
06 OO1E R 00 


06 000D R 60 
O19F R 
AD 


0832 R 
as 

OB 
OFS4 R 
Al 
OFOL R 
gc 
OFOA R 
97 

06 000D R 01 
OLOF R 
80 
OAB] & 
88 


O8Fa R 
83 


NO_DEV: 


NO_USE: 
RETURN: 


PTR2 

RETURN_CODE,PR_ERROR 3 DEVICE IS INVALID 
RETURN_CODE, OFFH-PR SELECT 

ax } SET RETURN CODE 
AH, RETURN_CODE ‘ . 


STATUSIT, t 3 SET PROGRESS FLAG OFF 
3 RECOVER REGISTERS 


3 
3 FOLLOWING MAIN BRANCH IS PREPARED FOR PRINTER TYPE-1 


J ttt nnn ww ne eek 





PIRI: OR AM AH 
AHO_2 = 
Dec an 3 AH=0 PRINT A CODE IN AL 
AH1_1 = Kis 
Dee au . 3 AH=2 PRINTER INITIALIZATION 
AH2 = 
bec AN 3 AH=2 READ PRINTER STATUS 
ANS _ AH= - 
Dee ve $ AH=3 READ PRINTER STATUS-II 
AH4_1 3 ANE 
Dec au 3 AH=@ PRINT PASS THRU CODE IN AL 
AHS_1 + AH=5 DOUBLE SIZE CHARACTER P 
bec AN j RINT 
ARX_ AH N 
Dec a 3 AH=6 IS NOT USED 
AHX_1 3 AH=7 IS NOT 
eo 3 AH=8 IS NOT U 
DEC AH 3 I SED 
Jz AHX_1 + AH=9 IS NOT USED 
DEC AH 
Jz AHX_1 s AHEA IS NOT USED 
DEC AH 
vz AHB_1 3 AH=B PRINT CHARACTER IN SPECIAL BUFFER 
Jz AHC_1 +_AH=C CHANGE PRINTER CONTROL P 
bn---  AH=? ( PTR1 = FUNCTION INVALID ) -------------------------c ee ARAMETER 
AHX_i: UMP NO_USE ; AHS? INVALID FUNCTION IS SPECIFIED 
z--=- H=0 € PTR1_: PRINT A CODE IN AL ) ---------------------------- 
AHO_1: MOV SIZE_AH,NOR 3 SET CHARACTER SIZE NORMAL 
CALL CMD_CHK 
JMP RETURN 
b---- AH=1 ( PTR: PRINTER INITIALIZATION ) ------- ee enn nae nn en nnn; 
AHi_1: CALL) INIT1 
JMP RETURN 
b---- AH=2 ( PTR : READ PRINTER STATUS INTO AH ) --------- woen------; 
AH2_1: XOR BL» BL 
CALL STATUS 
JMP RETURN 
s--- AH=3 ( PTR1 : READ PRINTER STATUS-II INTO AH ) -----9----------; 
AH3S_1: CALL STATUS2 
JMP RETURN 
goon-> «=AH=4 ( PTR1 =: PRINT PASS THROUGH CODE IW AL ) ----mnnnnn--------3 
AHS_1: CALL FIRE 
JMP RETURN 
g---- AH=5 ( PTR1 : DOUBLE SIZE CHARACTER PRINT ) ~------~------ correo; 
AH5_1: MOV SIZE_AH, BAI 3 SET CHARACTER SIZE DOUBLE 
a ee 
MP TR 
---- AH=B ( PTR1 : PRINT ATTRIBUTES AND CHARACTERS IN SPECIAL BUFFER ) 
Awp_a: cate ATTR 
JP RETURN 
s---- =AH=C ( PTR1 : CHANGE PRINTER CONTROL PARAMETERS ) -nnn-en-------3 
AHC_1: CALL = CHG_PT1 
JMP RETURN ; 
geceeuceea Seveeseooctses Biadepecetscccsse ceca socrenseteeee ago. 
3 FOLLOWING MAIN BRANCH IS PREPARED FOR PRINTER TYPE-2 ‘ 
Smeeneeins eee acne ne pis 
PTR2 OR AH, AH 
vite JZ AHO_2 3 AH=0 PRINT A CODE IN AL 
DE ° 
a2. AH1_2 3 AH=1 PRINTER INITIALIZATION 
DEC AH 
JZ AH2_2 3 AH=2 READ PRINTER STATUS 
D AH 
+a AH3_2 3 AH=3 READ PRINTER STATUS-II 
DEC AH 
JZ AH4_2 3 AH=4 PRINT PASS THRU CODE IN AL 
DEC AH 
JZ AHS_2 s AH=5 DOUBLE SIZE CHARACTER PRINT 
DEC AH 
JZ AHX_2 3 AH=6 IS NOT USED 
DEC AH 
IZ AHX_2 3 AH=7 IS NOT USED 
DEC AH 
JZ AHX_2 3 AH=8 IS NOT USED 
DEC AK 
JZ AHX_2 3 AH=9 IS NOT USED 
DEC AH 
JZ AHX_2 3 AH=A IS NOT USED 
DEC AH 
JZ AHB_2 3 AH=B PRINT ATTRIBUTES AND CHARACTERS 
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0166 FE cc DEC AH 


0168 74 2F Jz AHC_2 + AH=C CHANGE PRINTER CONTROL PARAMETERS 
Anna: ane ¢ i + FUNCTION INVALID ) Yani NWALID FUNCTION 13, SPECIE 
016A E9 0OB9 R Mi _USE ; TMVALID FUNCTION sp TED 
goor-  AHEO © PTR27: PRINT A CODE IN AL ) ---------------------n-- enon 3 
NT 17 
016D E8 O7FA R AHO_2: oak ceane. 
7 
Si8 EY DEEP & zooms AHEL ( PTR2 : PRINTER INITIALIZATION ) ----------~-------------; 
0173 ES 0832 R AH2_2: CALL OINITL 
0176 E9 00B9 R JMP RETURH 
z--~~ AH=2 € PTR2 : READ PRINTER STATUS INTO AH ) ----- ata 
0179 32 DB AH2_2:  XOR BL, BL 
017B E88 OFS4 R CALL STATUS 
O17E €9 00B9 R JHP RETURN 
gro AH=S C PTR: READ PRINTER STATUS-II INTO AH ) ----------------; 
0181 E8 OFOL R AH3_2: CALL STATUS2 
0184 E9 0OB9 R JMP RETURN 
s---~ AH=4 ( PTR2 : PRINT PASS THROUGH CODE IN AL ) ----------- teeter} 
0187 E8 OFOA R AH4_2: CALL FIRE 
O15A. E98 10089' ® s---- AH=5 ( PTR2 : DOUBLE SIZE CHARACTER PRINT ) ----- Sa 
018D E8 0816 R AH5_2: CALL CHARS 
0190 E9 OOB9 R JMP RETURN 
s---> AH=B ( PTR2 : PRINT ATTRIBUTE AND CHARACTER IN SPECIAL BUFFER ) 
0193 E8 OAB7 R AHB_2: CALL ATTR 
0196 E9 00B9 R JMP RETURN 
ote ane cc PTR2 : CHANGE PRINTER CONTROL PARAMETERS ) ~----- aati ; 
0199 E8 0979 R AHC_2: CA CHG _PT2 
OBO R JMP RETURN 
O19F nee righ sna 10 ENDP 
3-7 CMD_CHK ~~---~-~-------------------------------------------- tated 
3 CHECKS A CODE JUST RECEIVED, AND RECOGNIZES IT AS A COMMAND OR 3 
3 3 
3 3 
019F CMD_CHK PROC NEAR 
019F F6 06 002C R 80 vest FLG1, THO_BYTE_FLG 3 AL IS SECOND BYTE OF TWO BYTES CODE ? 
01A4 75 3D 
01A6 F6 06 002C R O01 TEST FLG1,ESC_FLG - 3% ESC SEQUENCE IS IN PROGRESS ? 
O1AB 74 06 32 A2i 
01AD E8 O1F6 R CALL ESC_COD 3 JUMP TO ESC SEQ ANALYSE ROUTINE 
0180 EB 43 90 JMP ARET 
01B3 3C 1B A21: CMP AL, 1BH 3 "ESC™ ? 
01B5 75 0E JNE As 
01B7 80 OE 002C R 01 OR FLG1,ESC_FLG 3 SET "ESC™ RECEIVED INDICATOR 
01BC C7 06 0020 R 0001 Mov CODEN, 1 3 SET CODE COUNTER = 1 
01C2 EB 31 90 JMP ARET 
01CS) = 3$C 80 Aa: cmP AL, 80H SF PEPHEESEHESEDES EOE ESOS ES OCEEEEED 
01C7 76 oC JBE AGL 3 + 
01C9 3C 9F CMP AL,9FH 3 + CHECK LEGALITY OF 1ST CODE OF + 
01CB 76 OE JBE AS as + 
01CD 3C DF CMP AL, ODFH 3 + TWO BYTES CODE + 
OC1CF 76 04 JBE Aa 3 + + 
01D1 3¢ FC CMP AL, OFCH 73 e 
O1D3 76 06 JBE AS 3 SHETHHEEEFESSES EES EE EdEEEEEEEEED 
01D5 E8 O3D9 R AGl: CALL SINGLE 3 OTHERS ARE SINGLE CODES 
01D8 EB 1B 90 JMP ARET 
01DB 80 OE 002C R 80 AS: OR FLG1, THO_BYTE_FLG 3 SET TWO BYTES CODE INDICATOR 
CLEO EB 06 90 JMP a6 
C1E3 80 26 002C R 7F ASL: AND FLG1,0FFH-TWO_BYTE_FLG 5; RESET TWO BYTES CODE INDICATOR 
C1E8 50 Ab: PUSH AX 
O1E9 ES O4F6 R CALL MOD_C1 3 FORCE INTO CHARACTER MODE 
o1EC 80 OE 0009 R OL OR. PRINT_MODE, EVEN_PR_FLG 3 SET CHARACTER MODE 
O1F2 E838 0453 R CALL CHR_BUF 3 CODE IS STORED IN BUFFER 
O1FS C3 ARET: RET 
O1F6 CMD_CHK ENDP 
3--TESC_COD ---~----~-----~----~-----~-- ~~~ ee ao--------; 
} CHECKS CODE COUNTER OF ESC-SEQUENCE, AND TRANSFERS CONTROL TO 3 
3 ANALYSE ROUTINE ACCORDING TO COUNTER VALUE. 3 
3 ’ 
Paw etewtcsccewesincewcesce esse Sect ead, momeasesweuasunesweausbieccas 
SHEL ey ae ooze ox EEO Fae 
EX, 3 IN CASE OF CONTINUOUS "ESC*S ¢ 
O1FB 75 04 SRE + + ARE RECEIVED, ONLY FIRST rs 
OL1FD 3C 1B CMP AL,1BH 3 CHECK et TS DUMMY "ESC™ 
OlFF 74 56 JE BRET 3 IGNOR 
0201 FF 06 0020 R BSl: INC CODEN 3 cope COUNT INCREMENT 
0205 83 3E 0020 R 02 cup CODEN,2 3 CODE COUNT = 2 2 
020A 75 06 JNE 
020C E8 0258 R CALL B100 
O20F EB 46 90 JMP BRET 
0212 83 SE 0020 R OS BS2: CMP CODEN,S 3 CODE COUNT = 3 2 
0217 75 06 JNE $3 
0219 E8 0237 R CALL 8200 
021C EB 39 90 JMP BRET 
O21F 83 SE 0020 R 04 BSS: CMP CODEN, 4 3 CODE COUNT = 4 ¢ 
0224 «#75 JNE BS4 
0226 ES O33B R CALL B300 
0229 EB 2C 90 JMP BRET 
022C 83 3E 0020 R OS BS41 cMP CODEN,5 3 CODE COUNT = § ? 
0231 75 06 INE BSS 
0233 E8 0368 R CALL 8400 
0236 EB 1F 90 JMP BRET 
0239 F6 06 002D R O12 BSS: TEST FLG2,X1_FLG s ESC X 1 IS IN PROGRESS 2 
O23E 74 06 Jz BOL 
0240 £8 O057C R CALL Dx1 
0243 EB 12 90 JMP BRET 
0246 F6 06 002D R 02 Bol: TEST FLG2,X2_FLG + ESC X 2. IS IW PROGRESS 2 
024B 74 06 JZ B02 
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o24D =E8 0505 A CALL Dx2 
0250 «EB CS JMP BRET 
0253 EB OL 30 BO2: JMP ER_RTNB 
0256 «90 ER_RTNB: HOP 
0257 C3 BRET: RET 
0258 ESC_COD ENDP 
3-- B100 ----------- 2----------~---- Meteciuaccecccoacaoscuscceeemetcocas 
3 ANALYSES SECOND CODE OF ESC SEQUENCE. ; 
ee een re ee Es EE ORES Ree ww eww wee we eee eee eee == meee 
a ae oe eE. 
0258 «3c 25 : : 3 CHECK AL="PERCENT® 
ei Perr. Oe : 
o2sc 80 0X SET "x" RECEIVED INDICATO 
a iy Ge HER ne a 
0264 3C 3 ° c =" ND" 
tet 7S 8 vrcen a ee ring tlh te 
0268 ESC, + SET CHAR. SIZE TO DOUBLE 
026D 80 26 002C R FE AND FLG1, OFFH-ESC_FLG 3 ESC” INDICAT 
ase bse” ee ee Here stenriies 
6275 3 ’ 3 CHEC S"VERTICAL BAR®™ 
$27) 7 OP sec nos a pagermnite cigcae 
0279 C6 ESC, 3 SET CHAR. SIZE TO NORMAL 
027E 80 26 002C R FE AND FLG1, OFFH-ESC_FLG wesc" 
aaie eb 31 fe oi ane BIRET. 3 RESET "ESC" INDICATOR 
0286 z ’ CHE =mpR 
aa OF soze a as eo Hehe eeontigitl 
028A 80 0 »F_FLG SET "Ff" T 
a ax Oe ES mean 
0292 «3C t 28 3 CHECK AL="C(" 
0294 «74:17 JE B15 dephehcg 
0296 3C 29 CMP AL,29H 3 CHECK AL=")" 
sane 30 uF tre Sanu 
029A ’ CHECK AL="0" 
a29c 74 OF JE BIS ’ 
e29E SC 50 CMP AL,50H 3 CHECK AL="P? 
0240 74 OB JE B15 
02A2 3C 53 cmp AL,53H 3 CHECK AL="S" 
024 «74 07 JE B15 
02a6 3C 56 CMP AL, 56H 3 CHECK AL="v" 
O28 746 03 JE B15 
02AA EB 09 90 JMP eR. Bl 
02AD 80 26 002C R FE B1S: AND FLG1, OFFH-ESC_FLG 3 RESET "ESC™ RECEIVED INDICATOR 
02B2 EB 02 90 JMP BIRET 
0285 90 ER_B1l: NOP 
02B6 «CS BIRET: RET 
0287 B100 ENDP 
3-- B200 ------------- ere -------------------------------- w----------- ; 
3 ANALYSES THIRD CODE OF ESC SEQUENCE. 3 
csecdecewannadec isa cncewaaeccdaccosmessoce cinsnenceseusensdeeeatawasenny 
0287 3200 PROC NEAR 
0237 F6 06 CO2C R O02 B2: TEST FLG1,X_FLG 3 "xX" RECEIVED ? 
o28C 75 10 JNZ B201 
O2BE F6 06 082C R 04 TEST FLG1,F_FLG 3 "FP RECEIVED ? 
62C5 75 03 JNZ B21 
02C5 EB 72 90 JMP ER_B2 
02C8 +A2 0022 R B21: MOV NIVAL 3 AL IS N1 VALUE ( IF "F" RCVD ) 
02CB EB 6D 90 JMP B2RET 
O2CE 3C 31 B201: CMP AL, 31H 3 ALIS "1" 2? 
0200-74 27 JE B202 
0202 -3C 32 cMP AL, 32H 3 AL IS "2" 2 
02D46 74 2B JE B203 
02D6 «3c 33 CMP AL, 33H 3s AL IS "3" 2 
0208 «74 2F JE B204 
02DA 3C 35 chp AL, 35H 3 AL IS "5" 2 
020C 74 33 JE B205 
O2DE 3C 36 chp AL, 36H 3 AL IS "6" 2 
O2E0 74 37 JE B206 
O2E2 3C 39 cMP AL, 39H 3 AL IS "9" ? 
O2E4 74 33 JE B207 
O2E6 SC 34 cMP AL, 34H 3 AL IS "4" 2 
O2E8 74 3F JE B208 
O2EA 3c 38 CMP AL, 38H 3 AL IS "8" ? 
O2EC 746 38 JE B208 
@2EE 3c 62 CMP AL, 42H 3; AL IS "BY ? 
O2FO 74 SF JE B209 
O2F2 3C 55 cMP AL, 55H s AL IS "U" ? 
02F4 76 3B JE B209 
O2F6 EB 41 90 Jup ER_B2 s OTHERS ARE ILLEGAL 
O2F9 80 OE 002D R O1 B202: OR FLG2,X1_FLG 3 SET "X1" INDICATOR 
O2FE EB 3A 90 JMP B2RET 
6301 80 OE CO2D R 02 B203: OR FLG2,%2_FLG 3 SET "X2" INDICATOR 
0306 EB 32 90 JMP B2RET 
0309 80 OE 0020 R 04 B204: OR FLG2,X3_FLG 3 SET "X3" INDICATOR 
OSOE EB 2A 90 JMP B2RET 
0311 80 O£ 002D R 08 B205: OR FLG2,X5_FLG 5 SET "x5" INDICATOR 
0316 «EB 22 90 .  JMP B2RET 
0319 80 CE 002D R 10 B206: OR FLG2,%6_FLG 3 SET "X6" INDICATOR 
OS1E EB 1A 90 JMP B2RET 
aed Hy A so2b R 20 B207: OR FLG2,X9_FLG 5 SET "9" INDICATOR 
JMP B2RET 
et ae ge 002D R 40 B208: OR FLG2,1IGN_FLG 3 SET COMMAND IGNORE INDICATOR 
A 90 JMP B2RET 
0331 80 26 Cozc R FC B209: AND FLG1,OFFH-X_FLG-ESC_FLG ; RESET "x" & "ESC" INDICATOR 
0336 EB 02 90 JMP B2RET 
0339 99 ER_B2: NOP 
033A C3 B2RET: RET 
0338 8200 ENDP eaeeaies 
; ANALYSES FOUTH CODE OF ESC SEQUENCE. 3 
0338 Fleer ah ieeteereeeneiecnneaieneeel wreeere-- ll tttetetetatel | 
B300 PROC NEAR 
O33B F6 06 002D R 7F B3: TEST FLG2,7FH 3 %1,2,3,5,6,9 MODE IN PROGRESS ? 
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JZ B31 
Mov N1,AL AL IS M1 VALUE 
JMP B3RET 
B31: bil PLG1,F_FLG "F® MODE IN PROGRESS ? 
2 
MoV N2,AL AL IS N2 VALUE 
mov AH,N1 
MOV H1N2,AX 3 NIN2 VALUE GEN 
CALL EM 3 CALL ESC-F EMULATION ROUTINE 
JMP BRET 
B32: TEST FLG2, IGH_FLG 3 IGNORE INDICATOR ON ? 
JNZ B3RET =~ 3 RETURN 
JMP ER_B3 
ER_B3: NOP 
B3RET: RET 
B300 : ENDP 
3--B400 ------- wro---------- oo------ Satta SesssSese==-= aaa 
+ ANALYSES FIFTH CODE OF ESC SEQUENCE. ; 
3 
400 PROC NEAR arniabe : 
B4: TEST FLG2, IGN_FLG 3 IGNORE INDICATOR ON ? 
JZ B41 
AND FLG1,0FFH-ESC_FLG-X_FLG 3 RESET “ESC” & "X" INDICATOR 
AND FLG2, OFFH-IGN_FLG RESET IGNORE INDICATOR 
JMP BGRET 
B4l: MOV N2,AL + AL IS N2 
Mov AH,N1 3 
MOV N1N2, AX 3 MIN2 VALUE GEN 
TEST FLG2,X1_FLG 3 "X1" IS IN PROGRESS ? 
JZ B42 
CALL X%1%2_EM 3 CALL XL X2 EMULATION ROUTINE 
JMP BGRE 
B42: TEST FLG2,X2_FLG 3 "x2" IS IN PROGRESS ? 
JZ B43 
CALL X1X2_EM 3 CALL X1 X2 EMULATION ROUTINE 
JmMP BoRET 
B43: TEST FLG2,x3_FLG 3 "X3" IS IN PROGRESS ? 
JZ B44 
CALL X3_EM 3 CALL X3 EMULATION ROUTINE 
JMP BGRET 
B44: TEST FLG2,x5_FLG 3 "x5" IS IN PROGRESS ? 
JZ B45 
CALL X5_EN 3 CALL XS EMULATION ROUTINE 
JMP BRET 
B45: TEST FLG2,X6_FLG "x6" IS IN PROGRESS ? 
JZ B46 
CALL X6_EM 3 CALL X6 EMULATION ROUTINE 
JMP BGRET 
B46: TEST FLG2»29_FLG "x9" IS IN PROGRESS ? 
_B4 
CALL X9_EM CALL X9 EMULATION ROUTINE 
JMP B4RET 
ER_B4: NOP 
BORET: RET 
B400 ENDP 
é-- SINGLE -~----------------~-------~----------. ~------ 


3 ANALYSES ONE BYTE CONTROL CODE WHICH INCLUDES 
3 CANCEL, CARRIAGE RETURN, 


oelabaeiatatetatat | 
SINGLE PROC NEAR 

cnr AL, 18H 3 "CAN" 2 

chr AL, OAH 3 MLEr ? 

— AL,OCH F “Fee 2 

‘ig AL,1CH 3 "Fs" ? 

J 

cMP AL,ODH B CRT ? 

JE CRET 

CMP AL,O8H s BS ? 

JE ET 

cMP AL,11H + ™DC1™ 2 

JE er 

CMP AL,13H 3 "DCS" ? 

JE eT 

JMP C6 3 JUMP TO ONE BYTE CHR CODE 
EE HHETEHT ETE E EEE EEE TEEEEEEEEEESEEEEECEEOE CANCEL FFF eee oodeeeseassase 
Ci: CALL RESET 

sme CRET 
DAA AAADAASDALASASISIS SILI SST T STOTT eee LINE FEED teeeesereseresesece 
C3: CALL PRINT2 

PUSH = CX 

XOR Cx,CX sCLEAR CX 

OR CLLLF_CT 3 CL=0 2 

JNZ csi 

MOV Cl.1 
C3ls MOV AL.OAH 3 LFF 

CALL FIRE s 

LOOP C31 
C32: POP cx 

MOV 


C4: 


PRINT_MQDE,0 
JMP R 
EOEEEEFESEEEEEEEE EEE SEES EEE EER EEEREEEOEED 


CRET 
CALL PRINT2 
MOV AL,1BH 
CALL FIRE 
MoV AL,32H 
CALL FIRE 
MOV AL.OCH 
CALL FIRE 


FORM FEED. SPACE, DC1 OR DC3. 


ee we we we we ee 


RESET PRINT MODE 
FORM FEED teteeroteeoeerarer 


THIS SEQUENCE KEEPS CORRECT 
PAGE LENGTH FEEDITN BY 
LINE FEED MOVEMENT OF 
ONE-SIXTH-INCH 
eFFR 
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0432 BO 1B Mov. AL,1BH 3 THIS SEQUENCE SETS LINE FEED 
0434 E83 OFOAR CALL FIRE 3 PITCH FOR ORDINARY USING 
0437 BO 30 MOV AL, 30H t VALUE OF ONE-NINTH-INCH 
0439 E8 OFOAR CALL FIRE 3 
O43C EB 14 90 Jmp CRET 
TRPRTOEEEE TEETH ES E+ E+ O$4494564404004064% FIXED LENGTH IMAGE TX #44464 
O43F EB O65F R CS: CALL FS_EM 
0442 EB OE 90 JMP cRET 
BEEEEEEEE EE ESSE EEE EEE G EE h44 she ee eeeseees ONE me CHARACTER #4444444¢ 
0445 50 C6: PUSH Ax 3 SAVE A 
04646 E8 O46F6 R CALL MOD_C1 3 FORCE INTO CHARACTER MODE 
0449 80 CE 0009 R O21 OR PRINT_MODE,EVEN_PR_FLG ; SET CHARACTER MODE 
O44E 58 PoP Ax 3 RECOVER AX 
O46F E38 0453 R CALL CHR_BUF 3 STORE SPACE TO CHR BUFFER 
0452 C3 CRET: RET 
0453 qe Si 
pcamosesansccsccucsdew woiveeecceus; 
; STORES A RECEIVED CHARACTER CODE INTO CHARACTER BUFFER : 
3 AND INDICATES CHARACTER SIZE INTO ATTRIBUTE BUFFER. 3 
; 3 
0453 CHR_BUF proc MEAR . 
0453 56 3 SAVE SI 
0454 «53 PUSH BX 3 SAVE BX 
0455 33 SE OOOE R 7C CMP CCP,7CH 3 IF OVER, IGNORE THE CODE 
045A 77 1E JA W1 3 
045C 8B 36 OOOE RR MOV SI,CCP 3 CHAR. CODE TO BUFFER 
0460 88 84 OOAD R MOV CODE poUFEERCSII, AL ; 
0464 8A 1E 000C R MoV BL, SIZ E_ESC 3 CHECK DOUBLE SIZE CHAR. 
0468 OA 1E COODR OR BL, SIZE 3 
046C 88 9C 0190 R MOV ATTR vSUFFERISTI, BL 3 SIZE ID TO BUFFER 
0470 «32 FF XOR BH, BH 3 CLEAR BH 
0472 01 1E COOE R ADD CCP, BX 3 ADJUST CURRENT CHAR POSITION 
0476 FF 06 O90E R INC ccP 3 INDICATOR INCREMEN 
O47A 5B Wi: POP BX 3 RECOVER 
047B OSE POP SI 3 RECOVER Hs 
e47c C3 R 
0470 CHR_BUF ENDP 
t-- PRINT2 ----------- tree cr sen --22------ ++ ----------- wore------------; 
3 ACTIVATES SECONDARY PRINTING. 3 
3 IN CHARACTER MODE : CALLS CHARACTER PRINT ROUTINE 3 
3 IM GRAPHIC MODE =: CALLS LOW PART PRINT ROUTINE 3 
3 3 
paceman renee naan anes naieiSbeacaceneesteenesaceueceaeesy 
0470 PRINT2 “PROC NEAR 
047D F6 06 0009 R O1 PRINT_MODE.EVEN_PR_FLG 3 CHARACTER MODE ? 
0482 75 08 He XX1 3 NO 
0484 F606 0089 R 02 TEST PRINT_MODE,LOW_PR_FLG 3; GRAPHIC MODE ? 
04689 «75 05 JHZ XX2 3 NO 
048B C3 RET 3 FIRST CHARACTER 
048C ES OAAT R XXL CALL PRINT 3 CALL CHARACTER PRINT 
OS8F C3 RET 
0690 «£8 0699 R XX2: CALL LOW_PRT 3 CALL LOW PART PRINT 
0493 C3 RET 
04946 PRINT2 ENDP 
poo-- X1X2_EM ----- wre e---------- al alatabatatetatetatetatateetatatetateted oren---------; 
3 CHECKS TRANSHIT DATA COUNT OF ESC-X1 OR ESC-x2 SEQUENCE 3 
3 AND CONVERTS TO ESC-L 3 
juceu eeccecec= ewer eww eeees= SSeS SSeS SSeS Sek ase erases sae ese ee SSS Sessa 3s: 
0496 X1X2_EM PROC NEAR 
0496 Al CO24R Do: MOV AX, NAN2 
0497 3D 0600 CMP AX,0 3 OUNT = 0 2 
069A 74 GF JE D6 3 IF Zeno THEN GOTO END 
049C 50 Di: PUSH AX 3 SAVE 
969D E8 0515 R CALL MOD_C2 3 INTO GRAPHIC MODE OK ? 
0440 86 DE 0009 R 02 OR PRINT_MODE,LOW_PR_FLG 3 INTO GRAPHIC MODE 
0445 86 26 OCOZE R EF AND FLG3, 0FFH-SL_FUL_FLG 3 RESET SLICE FULL FLAG 
064A C6 06 0028 R OL MOV IM_MOD,1 3 DEFAULT IMAGE MODE ESCX1 
OSAF 58 PoP AX 3 RECOVER AX 
0430 F6 06 002D R 02 TEST FLG2,%2_FLG 3 ESCX2 ACTIVE ? 
04B5 76 0C JZ D3 
0437 C6 06 0028 R 02 Mov IM_MOD,2 3 IMAGE MODE SET TO ESCx2 
O4BC 80 26 OO2E R DF AND Flas. OFFH-BAI_FUL_FLG 3; RESET SECOND SLICE FULL FLAG 
06C1 D1 EO SHL AX, 1 3 TX COUNT TO DOUBLE SIZE 
C4C3 30 0460 D3: CMP AX, MAX 3 IX COUNT OVER 1120 ? 
06C6 76 03 JBE D4 3 IF NOT, JUMP 
C6CB OB8 0468 MOV AX, MAX 3 FORCE COUNT SET TO 1120 
O46CB A3 0929 R D4: Mov FS_N,AX 3 STORE NIN2 VALUE FOR FS 
weer a 1 ave & 
1 PUSH cx 3 
84D0 BB 0460 Mov BX, MAX 3 SET MAX. SLICE POSITION 
O6D3 8B OE Bolo R MoV CX,CSP 3 GET CURRENT SLICE POSITION 
06D? 03 cB ADD CX, AX 3 CALCULATE NEXT FINAL SLICE POSITION 
0609 «3B D9 CMP BX, CX 3 COMPARE MAX. AND NEXT FINA 
O6DB 73 06 JAE DS 3 IF MAX IS NOT LESS, JUMP 
OSDD 28 1E 0010 R SUB BX, CSP 3 CALCULATE CORRECT COUNT 
O6E) 3B C3 MOV AX, BX 3 CORRECT COUNT SET TO AX 
O6ES 59 DS: PoP cx 5 RECOVER cx 
OSEG 58 PoP BX 3 RECOVER 
OSES £8 CE88 R CALL Esct 3 CALL Esce t ouT SUB. 
aceh be St a ne 1 Rede ese 4 x e140 
02C R FC D6: AND ih, OFFH-ESC_FLG-X_FLG ; RE 
cere rd 26 002D R FC AND FLG2,0FFH-X1_FLG-%2_FLG 3 RESET X1 & X2 FLAG 
D7: RET 
OsFe *1x2_6M ENDP id peccegeahatiaety 
3 cHecks. CURRENT PRINT MODE, AND IF GRAPHIC MODE IS ACTIVE. 3 
3 FORCES LOW PART OF GRAPHIC IMAGE OUT TO PRINTER AND ; 
3 FORCES INTO CHARACTER MODE. ; 
3 
sina tans Saad Sao as tae i tae tates weer ew ee eee ee eee ence ener r ees ereeeeeen} 
. 
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moD_¢l reer peaty MODE 
JZ CLEND? sLOW_PR_LFLG 5 GRAPHIC MODE ? 
AND RINT A 3 CALL LOW PART PRINT 
nov PRINT MODE, OFFH-LOW_PR_FLG RESET GRAPHIC MODE 
. _PR_ ESET 
CALL FIRE FORCE CR + LF O 
MoV AL, OAH 
CALL FIRE 
MOV AL, OAH 
yt Pate 
C1END: 
noD_Cl Eur Par 


CHECKS CURRENT PRINT MODE, AND IF CHARCATER MODE IS ACTIVE 
FORCES CHARACTER DATA OUT TO PRINTER AN : 


8 

3 

FORCES INTO GRAPHIC MODE. : 
i 


SaSeeeeise sy 





HOD. C2 PROC NEAR 
TES coEND MODE,EVEN_PR_FLG ; CHARACTER MODE ? 
CALL PRINT 3 CALL CHAR. PRINT ROUTINE 
AND PRINT —MODE, OFFH-EVEN_PR_FLG 3 RESET CHARACTER MODE 
MOV AL, ODH ~;FORCE CR + LF OUT TO PRINTER 
CALL FIRE 
MOV AL, OAH 
CALL FIRE 
C2END: RET 
moD_¢2 re 
; EMULATES ESC-x3 ¢ HORIZONTAL SKIP >, AND 3 
3; CONVERTS ESC-x3 TO ESC-L * NULL DATA . 3 
poeccoco eocersrscrree Beene een e ene ------- = a a ee rmeneiecaad 
X3_EM PROC NEA 
MOV CX,NIN2 3 GET N1N2 VALUE 
CMP X, 3 CHECK ZERO 
JBE N33 
cMP CX, MAX 3 CHECK < 1126 
JA N33 
PUSH cx 
CALL MoD_c2 3 FORCE INTO GRAPHIC MODE 
P 
MOV AX, CSP 3 GET CURRENT SLICE POSITION 
PUSH AX 
PoP SI 
ADD AX, CX 3 ADJUST MAX SLICE POSITION 
CMP AX, MAX 3 
JA N22 
OR PRINT_MODE,LOW_PR_FLG 3; INTO GRAPHIC MODE 
MOV SP, ; 
Mov AX, CX 
CALL ESsct 3 CALL ESC-L OUT 
Nii: MOV AL,O 3 ZERO OUT TO PRINTER 
CALL FIRE 3 FOR MAKING BLANK 
Lage ut 
3 
N22: ZALL LOW_PRT 3 CALL LOW PART GRAPHIC PRINT 
mov AL.ODH 3 FORCE "CR" OUT 
CALL IRE 
JMP N33 
N33: AND FLG1, OFFH-ESC_FLG-X_FLG ; RESET "ESC™ & "Xx" INDICATOR 
AND FLG2. OFFH-X3 _FLG 3 RESET "x3" INDICATOR 
X3S_EM — -ENDP 
<> DX1 -----------------~---- 


CONTROLS ESC-xX1 CIMAGE TRANSMISSSIOND DATA STREAM. 
IF DATA COUNT IS ODD, THE DATA IS OUT TO PRINTER 


IF DATA COUNT IS EVEN, THE DATA IS STORED IN TMAGE BUFFER FOR LOW 


o--- =~}; 


we we we ws we we 


3 
3 
PART PRINTING. 3 
bowen man nn nnn n anew nnn n nnn anne anna nnn nnn 53+ = ++ ~~ === === +=} 
Dx1 PROC NEAR 
mov CX. CODEN 3GET CODE COUNT 
SUB Xx; 5 S CALCULATE CORRECT DATA COUNT 
TEST CX, 01H FOX IS ODD NUNBER ? 
Jz F2 3IF EVEN, GO TO F 
Test — FLGS,SL_FUL_FLO }CHECK SLICE COUNT EXCEEDS MAX 
INC csp sUPDATE CSP 
cH CSP MAX SCHECK MAX POSITION 
CALL FIRE SAL CDATA) IS OUT 
Fir TEST —FLGS,SL_FUL_FLO sCHECK SLICE COUNT EXCEEDS Max 
OR FLGS, St_FUL_FLO 31F EXCEEDS, SET SLICE FULL IND. 
F2: TEST  FLGS,SL_FUL_FLG SIF SLICE POSITION EXCEEDS MAX. 
JNZ FS sIGNORE FURTHER DATA 
XOR SI,SI SCLEAR SI 
ADD S1,CSP 3GET CSP TO SI 
OR IMAGE_BUFFER(SI),AL ;DATA IS STORED FOR SECONDARY PRINT 
F3: SHR cx, sDEVIDE BY 2 
cup CX. NIN2 ;REACHED NIN2 COUNT ? 
JNE F4 
AND 


FLG1, OFFH-ESC_FLG-X_FLG 5 RESET “ESC” & *X™ INDICATOR 
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OSCF 80 26 002D 
ospe C3 


05D5 8B OE 0020 
05D9 83 E9 05 

0001 
OSE2 F6 06 002E 
OSE9 FF 06 0010 
OSED 81 SE 0010 
OSF6 ES OFOAR 


OSFA FF 06 0010 
SE 0010 
OA 

0606 E8 OFOAR 
E 0010 
060D EB 4F 90 

0610 80 OE OO2E 
0615 FF OE aed 


061C F6 06 002E 


O65F 83 ae 0029 
0666 E8 0515 R 
0669 80 OE 0009 


066E 80 CE 002C 
0673 80 26 O02E 


OE 002D 


0699 BO 1B 
069B E&8 OFOAR 


3 
OFOAR 
oD 

OFOA R 
OA 

O6AA E8 OFOAR 
0010 R 
06 0012 
os 


0012 R 
06B9 3D 0460 


0460 
06C2 €8 O£&88 R 
06C6 «33 Fb 


0609 8A 84 COAD R 


R FE 


= RB RR BR RR 


10 


0460 


0460 


20 


10 


Fc 
FD 


10 
10 


02 
eF 
0005 
02 
02 
01 


AND 
Fa: RET 
Dx1 ENDP 


FLG2,OFFH~X1_FLG 


3 RESET "X1" FLAG 


x2 
CONTROLS ESC-x2_ CIMAGE TRANSMISSION AND ENLARGE) DATA STREAM. 


3 4 
3 IF DATA COUNT IS ODD, THE DATA IS OUT TO PRINTER TWICE ; 
3 IF DATA COUNT IS EVEN, THE DATA IS ST NH OIMA F 
; FOR LOW PART PRINTING. a Sores GE BUFFER : 
3 
Fem awaels ennmecenetaianiss ict edi lash egies eaieaatts ets 
Dx2 PROC NEAR 
MOV CX, CODEN 3 GET CODE COUNT TO 
SUB Cx, 5 3 CALCULATE CORRECT DATA COUNT 
er Sxebsh 3 CX IS ODD NUMBER 2? 
TEST FLG3,SL_FUL_FLG 3 CHECK SLICE COUNT EXCEEDS MAX 
INC csP + UPDATE C 
ee rns 3 CHECK max” POSITION 
PUSH ax 
Ele ree 3 SAVE N1N2 
PoP ax 3 GET N1N2 
INC csp 3 UPDATE CSP 
sg ne 3 CHECK MAX POSOTION 
CALL FIRE 
DEC csP 3 DECREMENT CSP FOR ADJUSTING 
JMP G5 3 LOW PART DATA COUNT 
Gl: OR FLG3,BAI_FUL_FLG 3 SET SLICE FULL INDICATOR 
DEC csP 3 DECREMERT CSP FOR ADJUSTING 
JMP GS 3 LOW PART DATA COUNT 
G2: TEST FLG3,SL_FUL_FLG 3 IF SLICE POSITION EXCEEDS MAX. 
JNZ G3 3 IGNORE FURTHER DATA 
XOR SI,SI 3 CLEAR SI 
ADD SI,CSP 3 GET CSP TO SI 
OR IMAGE_BUFFERI[SIJ,AL 3 DATA IS STORE IN IMAGE BUFFER 
Test FLG3.BAI_FUL_FLG 3 CHECK SLICE FULL INDICATOR 
INC SI 3 UPDATE SLICE POSITION 
OR IMAGE_BUFFER(SI),AL 
MOV cSP,ST 3 CURRENT SLICE POSITION STORE 
G3: SHR CX,1 3 DEVIDE BY 2 
ra Cx HIN2 3 REACHED N1N2 COUNT ? 
AND FLG1,0FFH-ESC_FLG-X_FLG ; RESET "ESC" 8 "xX" INDICATOR 
AND FLG2,OFFH-X%2_FLG 3 RESET "x2" INDICATOR 
G4: TEST FLGS,SL_FUL_FLG 3 CHECK SLICE FULL INDICATOR 
N G 
oR FLG3,SL_FUL_FLG 3 SET SLICE FULL INDICATOR 
GS: RET 
Dx2 = ENDP_ 
} EMULATES FIXED DATA IMAGE TRANSMISSION DATA STREAM. 3 
3 TRANSMITED DATA COUNT IS STORED IN FS_N. ; 
3 3 
3 THIS COMMAND USES MOST RECENT ESC-%1 OR ESC-X2 CONTROL VALUES. 3 
3 3 
gocsarssse=: Fa ee re Sane SSS Se a nT a ee po etek) | 
FS_EM = PROC NEAR 
cMP FS_N.O 3 CHECK TX COUNT 
JZ 3 IF ZERO, GO TO END 
CALL MOD_C2 3 ALREADY IMAGE MODE ? 
OR PRINT_MODE,LOW_PR_FLG ; INTO IMAGE MODE 
OR FLG1,ESC_FLG4#%_FLG 3 ESC X ON 
AND FLG3, OFFH-SL_FUL_FLG 3 RESET SLICE FULL INDICATOR 
MOV AX, FS_N 3 TX COUNT INTO AX 
MoV CODEN; 5 3 ADJUST CODE COUNTER 
CALL ESCL ; Be ag gi BS ouT 
TEST IM_MOD, 02H 3 NO ? 
ie rine 3 IF NOT THEN ESC X1 
oR FLG2,X%2_FLG 3 ESC %2 FLG ON 
JMP H2 
Hl: OR FLG2,X1_FLG 3 ESC X1 FLG ON 
H2: RET 
FS_EM — ENDP 
g-> LOW_PRY --------------------------- cesta etatattetatatatatetaaaiatananae etait iatatas 
i PRINTS LOW PART OF 8-BIT GRAPHIC IMAGE IN IMAGE BUFFER } 
cotiewance se! ities Reem mciaicekesoeuwouekvessdsseoseseseeseeaseaee ys 
tou ad Here are 3 THIS SEQUENCE SETS LINE FEED 
CALL FIRE + PITCH FOR ORDINARY USING 
MOV AL, 30H 3 VALUE OF ONE-NINTH-INCH. 
CALL IRE 3 
MoV AL, ODH 3 OR 
CALL IRE 
HOV AL. OAH s LF 
CAL 
mov AX, CSP + GET CSP TO AX 
cMP AX, CSPMAX 
nov ax CSPMAX 
Els, CMP AX, MAX + CHECK CSP EXCEEDS MAX. ? 
JBE E2 3 
MOV AX, MAX 3 IF EXCEEDS, AX = 1120 
€2 PUSH AX 
; CALL ESCL 3 CALL ESC-L OUT ROUTINE 
POP cx 
XOR SI,SI F CLEAR | st 
THC $I 3 ADJU 
E3: MOV AL, IMAGE_BUFFER(SI] 3 GET PRINT DATA FROM BUFFER 
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eaeoooeo 
Se bp tnd 
UU ORS 
UEennwn 


coe 
sw 
ww 
=~ 


2 1 08 WS 0 ws 08 Oo 
ON DWM WH OWoD 


OmUen ene 


wou 
OPUTOM DUH OW 


OOMOUMSNnvOUMamMasevoan 
COMWVCBOASWOROCKOKPUUAN 


a 
w 


O2onguruu 
URPoavourru 


FD 
r 0000 
0000 


©COoNnm CnNeoe 
ASQ WSLan 
coo 
eoo 
“mo 
Noo 
Ra 


ecco NTUTNS 
memm nNYeKW 8M 


F 

0024 . 

0010 

26 002C R FC 
26 002D R EF 


3E 0024 R 00 
3E 0024 R 0100 
OE OO1O R 


047D 
OE 0026 R 
D2 


26 002C R FC 
26 002D R F? 


0024 R 
D2 
000D 
F 

cs 

F9 09 


CALL so FIRE 


MOV IMA 
TEST AHS PRISER RERESII, 0 
JNZ E4 
INC SI 
ie 
E4: PRINT 
ane CSP On OE. OF FH-LOW_PR_FLG 
mov CSPMAX,0 
LOW_PRT ENDP 
pro K6LEM monn meen eee 
EMULATES ESC-x6 (CR To SPECIFIED DOT POS 


x6_ EM eae NEAR 


$ CLEAR IMAGE BUFFER 
ERROR 3 ERROR HAS OCCURED ? 


3 RESET on MODE IND. 
3 CLEAR C 
3 CLEAR CSPMAX 


ITION). ; 


GET NIN2 VALUE TO CX 
CHECK ZERO 


CHECK EXCEEEDS MAX 


CALL CHECK CURRENT MODE 
oe INTO GRAPHIC MODE 


GET N1N2 VALUE 

CALL ESC-t OUT ROUTINE 

ZERO OUT TO PRINTER 
FOR MAKING BLANK 


SAVE NEW CURRENT SLICE POSITION 


RESET "ESC™ & "X" INDICATOR 
RESET "x6" INDICATOR 


CHP ex, : 
JBE 3 
cMP CX, MAX ' 
JAE 3 
PUSH =x 
MOV CX, cP 
CMP GX, CSPHAX 
JB Jt 
Mov, CSPMAX. Cx 
Ji: CALL MO ; 
4 TAT MODE, LOM_PR_F 
MOV AL, ODH ene 
CALL FIRE 
PoP 
MOV «AX CX 3 
CALL ESCL ; 
J2: MOV AL,O 3 
CALL FIRE 3 
Loop = 2 
MoV AX, M1N2 ; 
MOV CSP, AX 
J3: AND —-FLG1, OFFH-ESC_FLG-x_FLG 3 
AND FLG2, OFFH-x6_FLG ; 
RET 
x6 eENOP 
; EMULATES ESC-X5 (FORWARD VERTICAL STEP FEED) 
; 





CHP NIN2,0 3 CHECK NIN2 = ZERO 
J 

CMP NIN2, 100K 3 CHECK EXCEEDS MAX 

JA 

MOV Cx, CSP 

PUSH = CX 

CALL —s- PRINT2 3 CALL SECONDARY PRINT 

MOV CX, NIN2 

XOR Dx, DX PRASAD ASSESS SSS eee eee tees 

MoV AX, CX 3+ THIS SEQUENCE CALCULATES ¢ 

MOV €x,13 + BY FOLLOWING FORMULA: 4 

DIV cx 3+ + 

MOV CX, AX 3+ CX = IZA3 mH CX + 

CMP cx,0 

JNE tl 

INC cx 
Li: MOV AL,1BH + “ESC” 

CALL FIRE 

MOV AL, 30H + FO" 

CALL FIRE 
L2: MOV AL, OAK 3 *LE® OUT 

CMP cx,0 

JE L3 

CALL OFIRE 

DEC cx 

JMP 2 
L3: PoP CX 

MOV NIN2, CX 

CALL =—-X6_EN 
La; AND FLG1, OFFH-ESC_FLG-X_FLG 3 RESET “ESC™ & "Xx" INDICATOR 

AND FLG2,0FFH-x5_FLG + RESET "x5" INDICATOR 
xS_EM 5 entor 
rt poppe tepeasbaenetei tet 
1 EMULATES ESC-x9 (LINE FEED PITCH). 3 
3 FOLLOWING CONVERSION IS PROCEEDED: ; 
3 @ S< NIN2 <3) ...... LINE FEED COUNT = 1 x 179 INCH 3 
3 1S F< NING < 26 ...... CINE FEED COUNT = 2 x 179 INCH; 
3 26 =< NIN2 < 39) ...... LINE FEED COUNT = 3 x 179 INCH; 
; 39 =< NIN2 < 520 ...... LINE FEED COUNT = 4 x 179 INCH ; 
A S20 =< NIN2 < 65 ...... LINE FEED COUNT = 5 x 179 INCH 
3 65 =< NIN2 ¢ 78) ...... LINE FEED COUNT = 6 x 179 INCH; 
3 78 =< WIN2 < 91) ...... LINE FEED COUNT = 7? x 179 INCH 3 
Hi OL =< NIN2 ¢ 100 ...... LINE FEED COUNT = 8 x 179 INCH 3 
3 104 =< COUNT = 9 x 179 INCH 3 
jreroewocoeoreoenees PEDO SPCC B22eee2Ceeezeeeeo Sr Sawa e 
X9_EM PROC NEAR 

PUSH = BX 

PUSH = CX 

MOV AX, NIN2 3 GET NIN2 VALUE TO AX 

xOR DX, DX 

Mov cx, 13 

DIV ex 

MOV CX, AX 

INC cx 

CMP Cx.9 
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JBE Kl 
MOV cx,9 
O7A0 76 03 LF_CT.CL 
Bee cs se nate ® xs Rov ACHR 
re a cue fae . 
0 AL, ICAT 
OFOA R MoV "8 x" IND 
CHAE 30 30 AND” FLGL, OF FH- ~ESC_FLG-X_FLG ; Deeet eaee INDICATOR 
O7bS 0 26 e02C R FC AND FLG2, OFFH-X9_FLG ; 
O7ba 80 26 O02D R DF POP cx 
O7BD 59 See aeeeae 
ane 3 x enor --~------------------- ts ah ae 3 
i-- F Se SEAS ieee canoe PER LINE). 5 
il } EMULATES ESC=F (SET PAGE LENGTH Ze 
; ACTUAL LENGTH: pet a Ate elton into i Sol ; 
: ich te Sat eaten, 
ceca E 
REAR T NIN2 VALU 
o7co rn Ne CX, HAN2 } CHECK ZERO 
eee ts es oe eS 5 CHECK VALUE >= 126 
? TO 126 
76 2B Mit CMP cx, » FORCE CX 
een a3 £8 76 ae even rg Oe met 
OFCE ae OBIE CALL FIRE } HUMBER IN A PAGE 
0753 EB OFOA R Mov AL, 32H 
H : 
He ae Boye ater $ MEA 
a7Db 30 1b R nip sen 
O7DD E8 OFOA MO ° ‘ 
Oye? ES OFOA R Boy, ue + N1 IRTO AL RE oie 
oe CALL FIRE y ESC ¢ @ OUT TO PRIN ORDINARY 
ace AL.1BH INE FEED PITCH 
Ove BOB CALL ORE > istne value 
0 30H ie 
O7EC E8 OFOAR MoV ree "ESC" & "FE" INDICAT 
O7JEF BO 30 CALL FIR ns LG-F_FLG ; RESET 
O7F1 £8 OFOA R er M3: AND FLG1,0FFH-ESC_F . 
O7FS 80 26 oo2c eit tthe Sk ea Sescosa; 
vA FS CH ge DE TRANEHISeTRE Gk a RINTER TYPE-II PRINTED H 
O2EA ane “to MISSION To P HARACTER I$ : 
; PROVIDES CODE TRANS ORAL Shee ; 
3 te ee ee ; 
ER ene AS ne NOONE EAR DE RY . 
OAR ‘ URRENT CHAR. SIZ 
O7FA CHARO oer SI2E_AH,NOR : Se atkeae WORNAL. JUMP 
C7FA 88 iT 000D R 00 JE CHO_T 3 SEY NORMAL SIZE 
O7FF 76 11 PUSH ax mi 
0801 SO MoV ALL1B 
0802 BO 1B CALL FIRE ‘i 
0804 E8 OFOA R MoV AL, 5D 
ise) En er ROV)  SIZE_AN,NOR 
8e0c ce 86 Coe R 00 PoP A + DATA TO PRINTER 
O811 58 CHO: CALL FIRE saci 
0812 cy SERA RET aT ETC EES , 
6815 ¢ ung oy oe Staletatatatatetated } 
0816 b~~ CHARS -----~---- 15 PRINTER TYPE-II ER IS PRINTED 
3 MISSION SIZE. CHARACT H 
; PROVIDES CODE TRANS REDS DoUELE : 
3 IF CHARACTER PRINT IS REQU PAR IE PRD oasiay 
ee reereneenete wewwewewwnn eee, atari E 
jeseressae RRENT CHAR. SIZ 
0816 ee RE ay as + TET ACREADY DOUBLE. JUMP 
0816 ae 3 000D R e1 JE cus_T 3 SET DOUBLE $12 
0818 H A 
081D 50 nov AL, 1BH 
O81E BO 1B CALL FIRE 
0820 ES OFOA R mov AL, 58H 
aa23 CALL OF 
0825 £8 OFOA R SIZE_AH, BAI 
Te roa oar TAR 
O82E 8 OFA R etn ns pation se teat evi “ 
0831 ¢3 ae ee 
0832 peg ec a eore----------- iize It. 3 
t eeeann ER TYPE AND INITIA VALUES. 
RECOGHIZES PRINT T TO DEFAULT Baredacees 
: CONTROL PARAMETERS ARE SE Eee ee 3 
poeta ace 
0832 INIT1 prec | HEAR 
cere 4 PUSH =X 
ease 32 PUSH ST 1 CLEAR CONTROL AREA 
0835 56 AVE 
0836 FF 36 g014 R ria Sr PRINTER_ID 
9834 8D 36 0000 R L 96 
O83E B89 0060 oni crkae pane 
0861 £8 cEeD R cap SPSAVE } CLEAR IMAGE_BU 
0866 8F 06 ool4g R a 51, IMAGE_BUFFER 
9868 8D 36 ooo pg LE 0X, 1140 
084C B89 0674 mov CLEAR SET INIT LINE LOW 
O86F E8 OFGD R CALL DX PR_CMD_PORT 
ge As nD 
08 ni ss 
0857 EE OUT DX, T ATTACHED: BU 
S158 {8 gaye & ett see 
. 78H 
0850 26 78 AHO al, TACHED, JUMP 
O8SF 3¢ 78 cmp aera 1 IF MOT AT 
0861 76 28 JE 
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eooocoouo 
PAAAHRUMMSH 
eNcoceo oo 
PAVSeUW OU 
RBORRR BRR 


PRBBAR 


MOV DX. PR_CMD_PORT SET INIT LIKE HIGH 


MoV AL, OCH : 
out DX, AL 
CALL DELay 
XOR AH, AL s SET PRINTER ID 
Jz R9 3 
SHR AL, 
SHR ALs1 
AND AX, O1H 
AX, 
NE AX, 01H 
PRINTER_ID,AX 5 
R3: CALL DEFAULT” 3 SET DEFAULT VALUE 
Mov BL,0 3 CALL STATUS READ ROUTINE 
CALL STATUS. 3 GET LAST STATUS 
CALL —sGETVAL 3 RESET CPI , LPI CONTROL VALUE 
PoP SI 
POP Dx 
POP cx 
PoP BX 
RET 
R9: Mov DX, PR_CMD_PORT 3 NOT ATTACH 
MoV AL,O 
OUT DXAL 
JMP 
INITI END 


ELAY 
WAIT FOR INITIALIZE 
CARRY : PRINTER STATUS CO:ATTACHED /1:NOT ATTACHED) 


USH 
PUSH BX 
teh GEE 
DELOO: L 
MOV DX,PR_STATUS_PORT 3 GET STATUS 
IN AL,DX 
me 
AND 0 
MOV CX,50 3 GET STATUS 
DEL10: IN AL,DX 
AND AL,OFCH 
CMP AL.BL 
iss Bet 
0 
POP Bx 3 PRINTER IS ATTACHED 
PoP cx 
cic 
RET 
DELSO: POP Bx 3 PRINTER ISN*T ATTACHED 
POP cx 
stc 
RET 
DELAY fre’. 


go> DEFAULT -------------~~------.~---~-~ 
SETS PRINTER CONTROL PARAMETERS | TO DEFAULT VALUES. 


DEFAULT PARAMETERS : 5710 CPI (PT-1) 


Seer enna n = 3 


we er we 


we we we we we we we we w 


6712 CPI (PT-2) 3 
4.5 LPI 3 
so Lee 3 
SMALL TYPE 7 
3 
eet atte a 
DEFAULT PROC NEAR 
MoV CPI,90H 3 CPI DEFAULT SET 
CMP PRINTER_ID.1 
JNE DEF10 
MoV CPI,78H CPI DEFAULT SET 
DEF1O: MOV LPI.14n 


LPL DEFAULT SET 


3 
3 
MOV LPP,42H 3 LPP DEFAULT SET 
MOV LF_CT,1 3 SET DEFAULT LINE FEED COUNT ¢ 
MoV CHAR_TYPE.2 3 SET SMALL TYPE CHAR MODE 
DEF99: RET 


DEFAULT ENDP 


i> RESET ~---~-------~-~--~------~-~--~~------ 22--------- 


s RESETS BIOS CONTROL PARAMETERS AND CLEARS BUFFER 
; 


3 
wee en ene eee ee ee 


wee ---- poe er one eee -----+---; 
RESET PROC NEAR 

PUSH AX 

XOR AX, AX 3 CLEAR AX 

mov Cccp, ax 3 CLEAR CCP 

MoV CSP,AX 3 CLEAR CSP 

MOV CODEN. AX s CLEAR CODE COUNTER 

MOV FLGL.LAL 3 CLEAR FLG) 

MoV FLG2,AL 3 CLEAR FLG2 

MOV FLG3,AL 3 CLEAR FLGS 

ala AX 


R 
RESET ever 
joe meter ee eee eo eo eee 


HG- 
+ SETS PRINTER CONTROL PARAMETERS FOR PRINTER-1. 
3 


phatatetatetattatatetey | 


3 

3 
+ CONTROLLED PARAMETERS ARE AS FOLLOWS: , 
s 3 
H AL = 0 : DEFAULT SET 3 
3 AL = 1 t CHANGE CPI (CHARACTER / INCH) 3 
i) AL = 2): CHANGE LPI (LINE 7 INCH) 3 
3 AL = 3: CHANGE LPP CLINE 7 PAGE) t 
3 AL = 6 t CHANGE TYPE (LARGE 7 SMALL) 3 
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3 
esses a ae ee te De erenrreen acre ne nnn eee? 
oars tHe | PTa PROC NEAR + Reve a 
O8F9 53 Push x + SAVE BX 

A 0A CO ry 
bare 1} 13 vz. Po” + DEFAULT VALUE SET 
O8FE FE C8 
o9o0 74 15 vz Bi 3 CHANGE CPI 
ry 
geoe 74 Se PS ; CHANGE LPI 
0906 FE C8 DEC AL 
0908 tb ri _. PS 3 CHANGE LPP 
090A 3¢ ALLS 
090c 74 56 Jz 6 3 CHANGE TYPE 
O90E EB 63 90 JMP 
e911 £8 O8B9 R Por CALL DEFAULT 3 CALL DEFAULT SET ROUTINE 
0914 EB SD 90 JMP 
0917 80 FF 60 Pi: CMP BH, 60H + 7.5715 CPL 
091A 74 0C JE Pil 
O91C 80 FF 6¢ cMP BH,6CH 3 6.7713.4 CPI 
O91F 74 07 JE Pll 
0921 30 FF 78 CMP BH, 78H 3 6712 CPI 
0924 74 02 JE Pil 
0926 37 90 MOV BH, 90H 3 IF OTHER, FORCE 5710 CPI 
0928 88 3E 0003 R Pll: MOV CPI,BH s STORE TO DATA AREA 
o92c EB 45 90 JMP P99 
O92F C6 06 0026 R 01 P2: MOV LF_CT.1 3 7.5 LPI CONVERT TO 4.5 LPI 
t337 98 to ile 
0939 FE 06 0026 R Inc LF_CT 3 6 LPI CONVERT TO 3 LPI 
sag HE ib ce ht 
J Pp 
0942 89 FF 18 CMP BH, 18H 5 5 LPI CONVERT TO 3 LPI 
0945 76 02 JE P2i 
0947 B7 1E MOV BH, 1EH 3 IF OTHER, FORCE 3 LPI 
0969 88 3E 0006 R P2i: MOV LPI,BH 
094D BO 1B MOV AL, 1BH 3 "esc 
O94F E€8 OFOAR CALL FIRE 
0952 Be 30 MoV AL, 30H 3 "or 
0954 E8 OFOAR CALL FIRE 
HH Hy i€ 3026 R 3 HOV te SET N1N2 VALUE FROM BX 
Pp MoV N1H2,BX ; 
O95E £8 0700 R ; CALL F_EM’ 3 CALL PAGE LENGTH SET ROUTINE 
0961 EB 10 90 JMP P99 
0964 80 FF 01 P6: cMP BH,1 3 SET CHAR TYPE 
0967 77 0A Ja P99 
0969 FE C7 INC BH 
096B 8A DE MOV BL. BH 
BHP FE TE coat maya 
MOV CHAR_TYPE, BX 
C973 EB CASE R P99: CALL ~—s GETVAL 3 RESET CPI , LPI CONTROL VALUE 
0976 «5B POP BX 
0977 58 PoP ax 
0978 C3 RET 
6979 CHG_! ee enor OLENA Ree ? 
i sets PRINTER CONTROL PARAMETERS FOR PRINTER-2. : 
3 COHTROLLED PARAMETERS ARE AS FOLLOWS: ; 
5 AL = 0 : DEFAULT SET 3 
3 AL = 1: CHANGE CPI (CHARACTER 7 INCH) 5 
3 AL = 2 : CHANGE LPI (LINE 7 INCH) ; 
: AL = 3: CHANGE LPP (LINE 7 PAGE) ; 
; AL = 5 : CHANGE DIRECTION : 
Pent SiR nc Fatt he eal tia he a A as i ee ea ete wen j 
0979 CHG_PT2 PROC NEAR 
0979 oA Co AL, AL 
6978 74:15 JZ X61 5 AL=0 € DEFAULT SET > 
0970 FE ca DEC AL 
S97F 76 17 JZ XG2 3 AL=1 ( CPI CHANGE ) 
6981 FE cE DEC AL 
0983 76 19 JZ XG3 b AL=2 ( LPI CHANGE ? 
0985 FE ca DEC ‘ 
0987 76 1B JZ X66 s AL=3 € LPP CHANGE ) 
ee ee 
8 
Hi a is 3e° x66 3 AL=5 ( PRINT DIRECTION CHANGE ) 
B ic JMP XRET 
oaae a Pig XGL: CALL = DEFAULT 3 JUMP TO DEFAULT SET ROUTINE 
JMP XRET 
sen S rise XG2r CALL = XCPI 3 JUMP TO CPI CHANGE ROUTINE 
JMP XRET 
C99E £8 O9FO R XO3: CALL = XLPI } JUMP TO LPI CHANGE ROUTINE 
COAL EB OA 90 JMP XRET UTINE 
eaee - Sack R X64: CALL XLPP 5 JUMP TO LPP SET RO 
rind % T ROUTINE 
O9AA ES 0427 R X66 CALL XDIR UMP TO DIRECTION SE 
aean ES OA36 & XRET: CALL GETVAL eee cpr LPI CONTROL VALUE 
RET 
O9B, CHO_PT2 ENDP Suceeucenacsa} 
; SETS CPI VALUE TO PRINTER-2, cae } 
H soeoeewS H 
§ eww ween nn emen wwe eww rene ewewenee neon, as ieee erga wooo 
0981 XCPI PROC ~— NEAR 
0981 BS HOV BL,75 
O9B3 80 FF 60 H.60H ATES 7-5715 CPI 
0936 76 15 cd eee + CHECK BH INDIC 
$3 Mov BL, 67 
09 «7713.4 CPI 
we ESP Se one BH. 6CH + CHECK BH INDICATES & 
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KOM OOMarwNeGoruUuuuvne 
AMMOCHUSMPFOVMOVvere® 


FC 


eNocecocCCOVOrKUWAN TW 
TUN TNONNNMTnNSOMN NN 


SE 0004 R 
1B 


OFOA 
25 
OFOA 
39 
OFOA 
oo 
OFOA 


c7 
QFOA 


> 
coo 


~ 
tL) 


“vonmne NU 
MONQUUMe 
~ 
on 
oe 
eo 
oe 


F37 Ad 
1F 


8D 36 0048 
BA 2E 0003 


2E: 
74 
83 


o~woam 
mmowe 


3A 
05 
Ccé 0 
F2 


0006 
SE 0052 


Noo 
qQeo 
oo 


2c 
6 


JE XCPF 

MoV BL,60 

céP BH, 78H 5 CHECK BH INDICATES 6712 CPI 

JE XCPF 

MOV BL,50 

cmp BH, 90H 5 CHECK BH INDICATES 5/710 CPI 

JRE XCP9 
XCPF: MOV CPI, BH 3 BH VALUE IS STORED 

Mov AL, 1BH + ESC + 7E + 02 + 00 + 01 OW 

CALL FIRE 

MOV AL, 7EH 

CALL FIRE 

MOV AL,02H 

CALL FIR 

MoV AL,OOH 

CALL FI 

MOV AL.O1H 

CALL FIRE 

MOV AL, BL 

CALL FIRE 
XCP9: T 
xCPI Nee ENDP : 
j= XLPI ----------- waesceweuene horseshoe cs idoewu se bemoeecwou, 
3 SETS LPI VALUE TO PRINTER-2. ; 

LPI PROC NEAR 

* MOV LPI,BH + BH VALUE IS STORED 

MOV AL,1BH 3 ESC +X + 9 + NIN2 

CALL FIRE 

MOV AL, 25H 

CALL FIR 

MOV AL,39H 

CALL FIRE 

MOV AL,OOH 

CALL FIRE 

MOV AL, BH 

CALL FIRE 

RET 
XLPI ENDP 
3-- XLPP ----- ~2-------------------- ~~---------- ~------------ ~--------; 
3 SETS LPP VALUE TO PRINTER-2. 3 
3 . 
eae ee eRe Ae Spee Ree ne Ptr ee cieenesay 
XLPP Proc NEAR 

MoV LPP, BX 3 BX VALUE IS STORED 

MOV AL,1BH 3s ESC + F + NL ¢ N2 

CALL FIRE 

MoV AL, 46H 

CALL FIRE 

MOV AL, BH 

CALL FIRE 

MOV AL.BL 

CALL FIRE 

RET 
XLPP ENOP 
37> XDIR -------------------- torr rrr en nn -o-- -- +--+ += ----- +--+ --- ~~---}3 
3 SETS DIRECTION MODE TO PRINTER-2. 3 
3 3 
Sates on a wone nena -- 22-2 +++ +--+ =e} 
XDIR PROC NEAR 

Mov AL, 42H 

CMP BH.1 

JE XDIRI 

MOV AL. 55H 
XDIRI: CALL DIRSET 

RET 
XDIR year 
bo babebahrbaadehetatahatntatate bated atatatatatetabatate a tetatatere SeSseses===) Soona wanes sewn 3g 
3 Gers. Grip LINE AND CHAR TYPE CONTROL VALUE 3 
3 
GETVAL PROC NEAR : 

PUSH ES 

PUSH cx 

PUSH SI 

PUSH DI 

PUSH DS 

ES SET FOR MOVSB 
we U8 
+ V_VALUE 3 SEARCH V_VALUE TABLE 

GETO6: MOV CHL LPI x 

CMP CH,CS:{SI) 

JE GET10 

ADD $1.18 

JMP GETOO 
GET10: MOV CX, 18 + MOVE TO VALUE AREA 

LEA DI, GVALUE 

PUSH DS 

PUSH cs 

PoP DS 

CLD 

REP MOVSB 

PoP DS 

LEA SI,H_VALUE 3 SEARCH V_VALUE TABLE 
GET20: MOV CH, CPI 

CMP CH,CS:(SI) 

JE GET3O 

ADD SI.6 

JMP GET20 
GETSO: MOV CX.6 3 MOVE TO VALUE AREA 

LEA DI, GVALUE#18 

PUSH DS 

PUSH cs 
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OBL 
OBLS 


1F 

FC 

F37 
F 


26: 
74 

26: 
74 
83 
74 
eB 
49 
eB 
cs 


as 


06 0058 R 0006 
06 0OSA R 0001 

SE OG0A R 02 

oc 

06 0058 R 0000 

Hh OO5A R 0008 
1 


20 
QOO1F R 


1E 00A0 R 
06 OO2F R C001 
OBIS R 


cy 
1D 
Fl 
os 78 FF 0D 
80 78 FF GA 
OA 
SE 0000 R O1 
07 
1c 90 


OF 


26: BA 07 


OL9F R 


eF 
OA 
O1L9F R 


ocBB 
ccs 
OEDE 
ODSA 
OEDE 
0077 
16 0068 R 

06 00468 & 19 
OEDE R 

16 0048 R 


13 


Pop Ds 
Clb 
REP MOVSB 
nov TVALUESUPPER t) + SET CHAR Type 
’ c 
MoV TVALUE*LOWER,2 ONTROL VALUE 
CMP CHAR_TYPE,2 
JE GET40 
Boy TVALUESUPPER? ® 
ov TVALUE#L ’ 
GET40: INT 11H 3 SET SYSTEM IDENT 
AND AL, 20H 
MOV SYSTEM_ID,AL 
POP AX 
POP DI 
POP SI 
POP cx 
ror ES 


hy ENDP 


PRINTS. CODES IN CODE BUFFER. 
INPUT 


CODE_BUFFER : CHARACTER STRING 


3 
; i 
: 3 
3 

; ATTRIBUFFER : CHARACTER SIZE : 
; , i 

3 

3 


ccP CHARACTER LENGTH 
PRINT PROC NEAR 
PUSH DS 3 SET ES 
POP ES 
LEA BX, CODE_BUFFER 3 PRINT 
MoV CSIZE,0001K 
CALL IMAGE 
eT 
RINT ENDP 
3-- ATIR -------- -e-------- wennn-------- ereen------- ~~ etnies 
3 
3 ES: BX : CHARACTER STRING ; 
3 ES:DI + ATTRIBUTE STRING - 
3 cx : CHARACTER LENGTH ; 
U 3 
ATITR PROC HEAR ° 
R cXx,cx 3 LAST CODE CHECK 
JZ AT99 
MoV $I,CX 
CMP BYTE PTR ES: (BX+SI-1),0DH 
JE AT10 
cMP BYTE PTR ES: (BX#SI-1),0AH 
JE AT10 
CMP PRINTER_ID,1 3 WHICH PRINTER IS ATTACHED ? 
JE AT100 
JMP AT200 
AT10: DEC cx 
JMP ATIR 
AT99: = RET 
Pd eat i ht at tae SS ee Ser eseNss Sen SSeS sS3s> SELES Se ame ce ma es 
: PRINTER-1 IS ATTACHED 3 
Ustuencoddeusceteews SR ReS sete ce bees Kceeeeecee case eeceeeseueeeeesuciss 
ATioo: PUSH ES + OUT STRING 
PUSH BX 
PUSH DI 
PUSH cx 
mov AL, ES: (BX) 
CALL CMD_CHK 
PoP 
PoP DI 
PoP BX, 
PoP ES 
INC Xx 
Loop AT100 
MOV AL, OAH 3 LINE FEED 
CALL CMD_CHK 
RET 
prorcececere= eee eee eee en: —eaeeee ee wereemea eee eee eas ween eeeeeere oe eee eeeeer= 8 
b PRINTER-2 1S ATTACHED _ , 
joreee semen ewe ene ae 2S SSS SS SKK KER eR SK SSS SS Kee Em a 
AT200: CALL MODESET 3 3 BYTE MODE SET 
CALL UGRID 3 UPPER GRID LINE 
CALL FEED 3 FEED 
CALL CODEOUT 3 OUT CODE 
CALL FEED 3 FEED 
CALL LORI + LOWER GRID LINE 
MOV DL, GVALUESV SIZE + FEED 
MOV GVALUESY_. SIZE,16 
CALL FEED 
MOV GVALUE+V_SIZE,DL 
RET 
ATTR ENDP 
Ban IMAGE won enn nn nnn nn nnn rer nnn neem ne wwe nnn mere ere nm nnn ss 
3 PRINTS THE CODE STRING 4 
’ 
5 INPUT 5 
5 ES:BX : CHARACTER STRING 5 
3 ES:BX¢240 : CHARACTER SIZE 5 
3 cce t CHARACTER LENGTH rf 
5 CSIZE t AYTRIBUTE VALID FLAG (O:INVALID 7 1:VALID) ; 
5 
Jerr ewww mmm www wwe eeoce we emer eee eee we me we wwe mew ww oe eo He ee eee ee rae 
IMAGE PROC HEAR 
MOV AL, 1BH 3 SET LPI 179 
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evo vomu 
erorvoew 


OFOA R 
30 


OFOA R 
a7 e038 R 


75 
SE 305A R O01 
17 


1B 
OFOA 
GA 
OFOA 


01 
tea 


OFOA 
10 90 
1B 


OFOA R 

30 

OFOA R 
OA 

OFOA R 

36 OOSAR 


OB75 R 
SE QOOA R OL 
05 


OA 
OFOA 
oe. Q00e R 0000 


af G00 R 
OE6D R 


RP RRR 


36 GOOE R 
0057 R 


08 

16 OOOE R 
E2 

OE8S R 

SE QOOE R GO 
1s 

8B AF OOFO 


2E€ OO2F R 
QOBDA R 
Fo 


2c 
O07 90 
06 GOOE R 


26 0057 R 
OC2A R 

OC42 R 

ae QOOOE R 00 


MOV AL. 30H 

CALL FIRE 

MoV SI, TVALUE+UPPER 3 PRINT UPPER IMAGE 

CALL ROTATE 

cMP TVALUE+LOWER, 1 + EVEN IMAGE ? 

JNE IM10 + KO 

MoV AL,1BH ESC +I +4 

CALL FIRE 

MoV AL, 4AH 

CALL FIRE 

Mov AL,O1H 

CALL FIRE 

MoV AL,ODH 

CALL FI 

JMP IM20 
IM10: MOV AL,1BH 3 THIS SEQUENCE SETS LINE FEED 

CALL FIRE 3 PITCH FOR ORDINARY USING 

MOV AL, 30H 3 VALUE OF ONE-NINTH-INCH. 

CALL FIRE 3 

MOV AL, OAH + LINE FEED 

CALL FIRE 
IM20: MOV SI, TVALUE+LOWER 3 PRINT LOWER IMAGE 

CALL ROTATE 

CMP CHAR_TYPE,1 3 CHECK CHARACTER TYPE 

JE IM99 3 IF SIZE IS LARGE, JUMP 

MoV AL, OAH 3 IF SIZE IS SMALL, 

CALL FIRE 3 LF OUT TO PRINTER 
IM99: MOV ccP,0 3 CLEAR CURRENT CHARACTER POSITION 

MoV CX,1160 3 CLEAR IMAGE BUFFER 

LEA SI, THAGE_ BUFFER 3 

CALL CLEAR 3 

RET 
IMAGE _ ENDP 
go> ROTATE -------------------- 22-222 nn nen n = en eeecneonn= === 5 
3 ROTATES FONT IMAGE AND OUT 3 
3 INPUT 3 
3 ES:BX : CODE BUFFER 3 
3 ES:BX+240 : CHARACTER SIZE 3 
3 cep : CODE LENGTH 3 
3 CSIZE : ATTRIBUTE VALID FLAG (O:INVALID 7 1: VALID) 3 
ROTATE PROC NEAR 

PUSH B 

PUSH cep 

mov AL, GVALUE+H_SPACE 3 (8 + SPACE) ™ CCP -> AX 

ADD AL.8 

MoV DX, CCP 

MUL DL 

CALL ESCL 
ROTOO: CMP ccP,0 

JNG ROT99 

Mov BP, ES: 240C BX} 3 MOVE CHARACTER SIZE TO BP 

AND BP, CSIZE 

CALL GETFONT 3 GET FONT INTO FONT WORK 

OR DH, DH 3 HALF ? 

JZ HALF 

JMP NORMAL 
ROT99: POP cce 

POP BX 

RET 
Pape Dh See See arene ee eee Se oe 
3 NORMAL SIZE PRINT 3 
Sesecce Noor ee se eeaean cece ek cue, ae Snares See Soe eee Saneneeee 4 
NORMAL? MOV AH, GVALUESH _SPACE 3 SPACING 

CALL SPOUT 

CALL HVCONV 3 LEFT IMAGE OUT 

cmp ccP,0 

Jz ROTOO 

ADD SI,16 s RIGHT IMAGE OUT 

CALL HVCONV 

SUB SI,16 

MoV AH, GVALUE*H_SPACE 3 SPACING 

CALL SPOUT 

JMP ROTOO 
(minke ta Ce ee ee ee ee Roe ceasssenmensaniececsneteead) 
; HALF SIZE PRINT ; 
prrscese wer er ere eee ee eee = Satie teeta teeteel wee See eee Ke eee eee See eee eee en 
HALF: = MOV AK. 3 SPACING : 

CALL SPOUT 

CALL HVCONV 3 LEFT IMAGE OUT 

MOV AH, 0 3 SPACING 

CALL SPOUT 


JMP ROTO 
ROTATE ENDP 
> GETFONT -------------- wore tenn en ern enn nee enn n een een e een n= - ee; 


: GETS FONT TO FONT WORK 3 
3 


we eee eee eee eee aaah ecient alata ate | 


SETFONT PROC NEAR 
XOR 


CALL GETCODE 3 GET THE FIRST CODE TO DL 
CMP DL.80H B PERRET EEEEE SESE EE EE EEE EELEEE REED 
JBE ONE s 4 + 
CMP DL.9FH 3 *# CHECK LEGALITY OF 1ST CODE OF + 
aac TWO 3+ ¢ 
DL,.ODFH se TWO BY 

JBE ONE 3 + 1ee SORE : 
cmMP DL.OFCH 7 + « 
JBE TWO B PEREEFEEFEHEEEEEEEOEEEEEEEOOREEES 
JMP ONE 3 

TWO: MoV DH, DL $ GET THE SECOND CODE To ot 


CALL GETCODE 
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osFB 53 
OBFC 06 
OBFD 56 
OBFE B9 


9010 
0COl 8D 36 0280 R 


ocoS €E8 OE6D R 


3 
OCoA 80 ae OolF R 00 


0 
0ciS) «8D a 0280 R 


oces 

oC23 26: BA 17 
oc26 eS DD 
oc28 43 

oc29 C3 

OC2A 


OC2A 02 26 COST R 
oo EC 


ocso 8B CD 
ocs2 D2 E4 
oc3¢ «8A CC 
ocsé «32 CO 


ONE: pus BX s GET FONT IMAGE 


USH ES 
PUSH st 
MoV CX,16 3 CLEAR FONT AREA 
LEA SI,FONT 
CALL CLEAR 
MoV AH,19 + FONT REQUEST 
CMP kas ID,00H 
JE FO 
MoV Anele 
FONTLO: XOR AL, AL 
LEA BX, FONT 
MOV CX,DX 
PUSH os 
PoP ES 
INT 10H 
POP SI 
POP ES 
PoP BX 
RET 
GETFONT ENDP 
3--~ GETCODE -~------- woeccce= Sheahan! 


+ GETS CODE AND UPDATE INDEX 


GeTcovE ie NEAR 


DL ES: CBX) 3 GET CODE INTO DL 
aDD BX,BP 3 INDEX UPDATE IF DOUBLE SIZE 
ie BX 3 INDEX UPDATE 


R 
pes ENDE 


ry 

ourPurs SPACES BETWEEN CHARACTERS 3 
3 

INPUT U 
VALUE+H_SPACE : SPACING VALUE 3 

3 


we we we we be wee 


SPOUT PROC NEAR 


ADD AH, GVALUE+H_SPACE + SPACING VALUE 
SHR AH,1 

MOV CX, BP s CHAR SIZE 

SHL AH,CL 

MOV CL.AH 

xOR ALLAL 

OR CL,CL 

JZ SP99 


SPOO: CALL FIRE 


3 OUT SPACE 
Loop SsPoo 


3-- HVCONV ---~~----~------~~------ 
ROTATES. FONT IMAGE AND PRINTS IT 
INPUT 

st! FLAG CO:UPPERZEVEN 1:0DD 8:LOWER) 


3 
3 
3 
: 3 
CHAR_TYPE : TYPE (1:SMALL TYPE 2:LARGE TYPE) 3 
BP s SIZE CO:NORMAL SIZE 1:DOUBLE SIZE) i 

3 


HVCONV PROC NEAR 


USH $I 
PUSH BX 
PUSH nid 
PUSH 
MOV DI, CHAR_TYPE 3 LOAD FONT TO REGISTER 
Mov AL, FONTESEI 
ADD SI, 
MOV CLs FONTEST) 
ADD $1,DI 
mov DL, FONT(SI) 
ADD SI,DI 
MOV aL +f ONTESTI 
ADD DI 
MOV an FONT(S1) 
ADD $I,DI 
MoV CH, FONT(S1) > 
ADD SI,DI 
MoV DH, FONT(SI) 
ADD SI,DI 
MOV BH, FONT(S1) 
ADD SI,DI 
MOV SI.8 

HV00:  SHL AL,1 3 LOAD DATA 
RCL DI,1 
SHL CLei 
RCL DI,1 
SHL DL,1 
RCL DI,1 
SHL BL,1 
RCL DI,1 
SHL AH,1 
RCL DI,1 
SHL CH,1 
RCL DI,1 
SHL DH,2 
RCL DI,1 
SHL BH. 1 
PUSH ax’ 

E 

PUSH ex 3 FIRE IMAG! wee 
me a + Le ve ORE 
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Cc? 
OFOA R 
F9 


1B 
OFOA R 
28 
OFOA R 


06 OO1C R 0003 
OF 


8B 05 
0003 
09 


o7 


1c 90 


36 0053 R 
16 0054 R 
SE 0055 R 


OD45 R 
b2 


HV10: MoV AX,DI 
CALL FIRE 
Loop HV10 
oP cx 
PoP AX 
DEC SI 
JNZ HV00 
SUB CCP, BP 
DEC cP 
PoP Dx 
POP cx 
POP BX 
PoP sI 
RET 
HVCO ENDP 
too NODES | 3 Sibataabaietatutetatatatetetetetatetatetatenaetanateted = 
; SETS 3 BYTE TRANS MODE 
MODESET PROC NEAR 
MOV AL,1BH 
CALL IRE 
MOV AL,28H 
CALL RE 
RET 
alge ta ENDP 
j~= were wee w meee eee <2 ED DD SD eS DD wD ODD: 
3 PRINTS vuprER GRID LINE 
3 ES:DI : ATTRIBUTE BUFFER 
3 Cx : ATTRIBUTE LENGTH 
UGRID PROC NEAR 
USH AX 
PUSH cx 
PUSH oI 
PUSH BX 
MOV CPIMASK,3 
Mov AL,OFH 
MOV SI,DI 
CALL CHECK 
Jc UG99 
mov AL,55H 
CALL DIRSET 
CALL ESCx1 
ucce: PUSH x 
LEA SI,GRID 
MOV X, 54 
CALL CLEAR 
PoP cx 
MOV $1.0 
CALL VGRID 
CALL HGRID 
CALL PGRID 
INC Or 
Loop UGOO 
MOV AL,42H 
CALL DIRSET 
UG99: PoP BX 
op DI 
PoP cx 
PoP A 
RET 
UGRID ENDP 
be- HGRID -------------~---------------- 
3 PRINTS HORIZONTAL GRID LINE 
Jonenne a ee 
MGRID PROC NEAR 
MoV AX, ES: (DI) 
AND AX,0003H 
JZ HG99 
DEC ax 
Jz HG100 
DEC AX 
JZ HG200 
Jue HG300 
HG99: RET 
Jerome nnn nee ee wrt enon oe eee 
: SINGLE 
HG100: MoV DH, OFFH 
mov OL.OFFH 
MOV BH. OFFH 
MoV AH,080H 
CALL HGSET 
JMP HG99 
' DOUBLE 
HG200: NOV OH, OFFH 
MOV DL,OFFH 
MOV BH,OFFH 
MoV AH,OCOH 
CALL HGSET 
JMpP HG99 
poene----- sew ewe ewne meee nw ewww een eee ee 
‘ DASHED 
{vesendawnane seen 
HO300: MOV DH, GVALUE*+H_DASH 
MOV DL, GVALUE+H_DASH#1 
MoV 8H,GVALUE*H_DASH#2 
MOV AH,O 
CALL HGSET 
JMP HG99 
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en ewe em ee ewe ewe we wn nn een eee ne eee 





3 CCP UPDATE 


3 SET MASK FOR 13.5 CPI 
3 CHECK UPPER ATTRIBUTE EXISTS 


3 UNIDIRECTION SET 


3 OUT ESC+X+14N14N2 
3 CLEAR IMAGE BUFFER 


3 SET VERTICAL GRID CUPPER) 
s SET HORIZONTAL GRID 
3 OUT GRID IMAGE 


+ BIDIRECTION SET 





3 GET ATTRIBUTE BYTE 
NO GRID ? 


3 
3 SINGLE ? 
+ DOUBLE 2? 
3 DASHED 





tre r cree e------; 


3 LOAD LINE MASK 


3 LOAD LINE IMAGE 
3 SET GRID IMAGE 





t 
s LOAD LINE MASK 


3 LOAD LINE IMAGE 
3 SET GRID IMAGE 


ewe mm eweewnw ewe nee wees 


. 
s 
3 
3 LOAD LINE MASK 


+ LOAD LINE IMAGE 
3 SET GRID IMAGE 


Appendix A. 


00465 


ODSD 08 a a R 
OD5¢ 83 FE 36 


ODSE BO DF 
6D60 8B FS 
OD62 £8 a R 


OD67 8B FS 
OD69 26: 8A 04 
OD6C E8 G7FA R 


0070 E2 F? 


OD7A C7? 06 BO1C R OOS 
4c 


ODs2 «8B FI 
OD8S «ES CE74 R 
28 


0D89 BO 55 
ODSB  E8 CECE R 
ODSE E8 OEMF R 


OD92 8D 36 O2A0 R 
OD96 «BS 0036 
0099 £8 OECD R 


OD9D BE 0009 
ODA0 EB ODD2 
ODAS E8 ODBS 
@DAG E38 CEG2 R 
ODAA E2 ES 


42 
ODAE E8 CECE R 


GDBS 26: Fé 05S 40 
74 07 


ODBB 8A 26 0047 KR 
OOBF E8 OoDCS R 
ooc2 cs 


opc3 

ODCS 33 FE 

ODCS 08 Ad O2A2R 
ODC9 83 Ce 03 
ODCC 83 FE 36 
ODCF 75 F4 

ODD! C3 

00D2 


paces ENDP 


t-- OH JT wet n nn nen nnn nnn nnn ewe e+e ee Se ee 8 
3 sers Oeae LINE IMAGE ; 
3 3 
3 OM ToL BH : GRID LINE MASK 3 
HGSET PROC NEAR 

XOR SI,SI 
HG500: RCL BH,1 3 SHIFT LINE MASK 

RCL DX,1 

JNC SKIP 3 SET ? 

OR GRID(SIJ,AH 3 YES 
SKIP: ADD $I,3 

cMP SI,54¢ 

JNE HG500 

RET 
HGSET —_ENDP 
3-~ CODEOQUT ---------- tece------- ween ee --------- eecreeeo---- ween en enn 3 
; PRINTS CODES 3 
eee ee we we ee em eee ewes RS RS SRR SO OO OS Oe A SS SO SO ES ED SE SS OO OD Oe eR eS aw en OD ADO ao em en eer anew g 
CODEOUT PROC NEAR 

PUSH AX 

PUSH cx 

PUSH SI 

PUSH DI 

mov AL,ODFH 3 CHECK ALL SPACE 

mov SI, 

CALL CHECK 

Jc co99 

MOV SI,BX 3 CODE OUT 
CODE@O: MOV AL, peetts23 

CALL CH 

INC sr 

LOOP CODE0O 
C099: POP DI 

PoP St 

POP cx 

POP A 

RET 
CODEOUT ENDP 
37> LGRID --------------------- MS ae SSeS ats SssirSs Sas Sass SS See SSSs Ss 3 
3 PRINTS LOWER GRID LINE 5 
3 INPUT ’ 
3 ES:DI : ATTRIBUTE BUFFER ; 
3 cx t ATTRIBUTE LENGTH i 28 
LGRID PROC NEAR 

PUSH A 

PUSH cx 

nove CPIMASK 3 SET MASK FOR 13.5 CPI 

0 3 . 

MOV AL,4CH 3 CHECK LOWER ATTRIBUTE EXISTS 

MoV SI,DI 

CALL CHECK 

J LG99 


=z 
o 
< 
> 
rc 
w 
w 
=x 
~ 


UNIDIRECTION SET 


CALL €scxi 3 OUT ESC#X414+N14N2 
1G00: PUSH cx 3 CLEAR IMAGE BUFFER 
LEA SI,GRID 
MoV Cx, 
sat gee 
MOV SI.9 3 SET VERTICAL GRID (LOWER) 


fal 
> 
lo 
- 
i= 
=z 
=) 

m 

R 

~ 


SET UNDERSCORE 


CALL PGRID 3 OUT GRID IMAGE 

IKC DI 

oop LGoo 

MOV AL, S2H s BIDIRECTION SET 

CALL DIRSET 
L699: POP DI 

POP cx 

PoP Ax 

RET 
LGRID _ENDP a peticsohenie: 
fo= URDER ~-----~----n-2----- 2-22-22 e enna , 
; SETS. UNDERSCORE IMAGE 


ee rr ow en no ee rrr nn} 


TEST BYTE PTR 


ES:CDIJ,40H 3NO UNDERSCORE ? 


JZ UN99 

mov AH, GVALUE*V_UNDER 

CALL UNSET 
UN99: = RET 
rikig ENDP sisiiaalaiaiaisareetane 
teo-> UNSET --------- wee em www www www www nn ene eee ewe ee eee 
5 SETS: UNDESCORE IMAGE : 
3 INP 
; AH : UNDERSCORE IMAGE Resides 
UNSET epee NEAR 

R 

UN500: OR GRID+2CS13,AK + SET UNDERSCORE 

AcD $I, 

cMP $1,546 

JHE UN500 

RET 
UNSET Pid 
b> NGRID ---------------- wenn ene e eee een n nn nne ness 
5 SETS VERTICAL GRID LINE ; 
‘ 
; MESIDI s ATTRIBUTE BUFFER 3 
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OMNNSNYANN 
UMALOSOLSUG 


vou 
NOw 


Coreorvao0onm 
o> 


Quem 
HOVOOVmMmHeuuouw 


cé 


cs 


o 
w 


oo on 
- A 


NmMowouCce 
rs 


@wooooca 


OE 0056 


SE 0052 
CE oo1Cc 
36 o01C 


36. O2A0 
OEFE R 


04 00 
FA 


cy 
68 
84 04 
07 
Fa 


o2 90 


RPBBANRBRAR RRRRAB 


RARBRAR 


6c 


e003 








deerme <n O:UPPER 9: LOWER 3 
VGRID PROC NEAR 
Mov AX, ES: CD13 s GET ATTRIBUTE BYTE 
AND AX, 000CH 3 HO GRID ? 
JZ VG9 
SUB aXe s SIWGLE ? 
JZ VG100 
SUB AX,4 3 DOUBLE 2 
JZ VG200 
JMP VG300 3 DASHED 
VG99: RET 
Pa ha aT we ewe ee weewnn----- wren nee water reer eee ewweennn; 
3 SINGLE ; 
moet rrr entree nena eee eee o---------; 
VG100: Gey SE TOUALUESN SOLID*O[SI] ;SET GRID IMAGE 
AL 
mov AL, Hi tages SOLID410S1) 
OR GRID 
MOV Al, GVALUESW_soLrpe2ts1) 
OR GRID+2,AL 
JMP v699 
; DOUBLE 
VG200: mov Abs VALUES SOLID#0CSI] 3 SET GRID IMAGE 
OR GRID+3, AL 
MoV AL, GvaLuEey _SOLID#1CSI) 
OR GRID#+1 
OR GRID+4, AL 
mov Al, ol ge -SOLID+2CSI) 
OR GRID+2,A 
OR GRID¢+5, AL 
JMP vG99 
oats a ec arto SVaSSeSssSesee si aaa aa laa Saree eacmecotarat : 
i DASHED 3 
Oe werner nena nee see eL eet ees aeSea Shen ene sean mecsnencnnnene wes: oe 
VG300: mov AL -GVALUESY_ DASH+OCSI}) = SET GRID IMAGE 
) 
MOV AL, GVALUE+V_DASH#1(S1) 
OR GRID+1,AL 
MOV AL, GVALUE+V_DASH#2[SI) 
OR GRID#2,AL 
JMP vG99 
VGRID __ ENDP 
3-- PGRID ----------- - 


USH x 
PUSH ES 
XOR CH,CH + OUT GRID IMAGE 
MoV CL, GVALUE+H_SIZE 
MoV AX,CX 3 Cx m3 
ADD CX, AX 
aDD Cx, AX 
CMP GVALUE+H_KEY,6CH 3 13.5 CPL ? 
JNE PGOO 
ADD CX, CPIMASK 3 CPI ADJUST 
xOR CPIMASK,O3H 
PGOO: PUSH DS 
PoP Es 
LEA SI.GRID 
CALL FIRES 
POP ES 
PoP cx 
RET 


PGRID __ENDP 
b> CLEAR ~--~--~-~-------~-------- ~~~ 


3 FILLS THE AREA WITH 0 
; INPUT 


wee w mw wwe ewww www wen ee 3 


; SI: CLEAR ADDRESS ; 

3 CX 1 CLEAR COUNT : 

Be eee CSREES OUND srl acs octane ae A 

CLEAR PROC NEAR , 
MOV BYTE PTR (13,0 


R 
CLEAR ENDP 
37> CHECK -------------- eee 


‘ SHESKS STRtHES 


3 

; 3 
’ AL t CODE MASK 5 
, cx 1 CODE LENGTH : 
3 LES#SI t CODE BUFFER Hy 
fo sssSensssecs: SSSR E UPR ROR RN NARA NR RN SSSI SSSSSRS SESS SR See esa nny 
CHECK PROC NEAR 

PUSH cx 

OR Cx, CX 

JZ CH10 
CHOO: TEST ES: (STI,AL 3 ATTRIBUTE EXEISTS 2 

JNZ cH20 

INC SI 

Loor CHOO 
CH1O: SsTc 3 NO 

JMP CH99 
CH20: CLC + YES 
CH99: POP cx 

RET 
CHECK _ENDe 


3-- ES we ew wwe www eee Set rr terror err ter wnn tena en wees ens seek; 


3 ourPuTs Esc +L + rr + N2 ‘ 
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8 
oesc = E8 ares R 
OE91 ES CFOAR 
OE95 ES GFOAR 


OES9 86 C4 
OE9B ES OFOA R 


OEAO BO 1B 
OEA2 ES OFOA 
QEAS BO 25 
OEA? E8 OFOA 
OEAA BO 31 
OEAC £8 OFOA 
OEAF AQ 0056 
OEB2 F6 EL 
OEBS 80 SE 0052 R 6C 
OE89 75 05 


1B 
GEDL E& OFOA R 

25 
OED ES OFOA R 
GEDA E8 CFOAR 


OEDE 
CEDE BO OD 
CEEO £8 ria R 


CEES E8 OFOAR 
25 

CEEA ES OFOAR 
3 

OEEF E8 OFOA R 
0 


OEFS ES OFOAR 
COEF? AO 0048 R 
OEFA E8 OFOA R 


OEFE 


OEFE 

@EFE 51 

OEFF 26: BA 04 
OFO2 E8 OFOAR 
OFOS 46 

OFO6 E2 F7 
OFOS 59 

OFCS cS 

OFOA 


; INPUT 3 
i AX __ + NIN2 5 
jowroee sew eee Se Se ee 
ESCL PROC NEAR : 
USH AX 

PUSH = AX 

mov AL, 1BH 3 MESC" 

CALL FIRE 

Mov AL, 4CH al 

CALL = FIRE 

POP ax + M1 

CALL) FIRE 

POP AX + N2 

XCHG = AL, AH 

CALL FIRE 

RET 
ESCtL_ _ENDP 
3-7 ESCX] --~-------~-------~~~~----------------------- +--+ - +--+ ---3 
i OUTPUTS ESC + x #1 + NL + NZ 3 
3 
3 CX __1 CHARACTER LENGTH ; 
jaweowe epreia Mmpme pea ce Rha Die dumacpcnur oa cee Sei ee 
ESCx1 PROC NEAR : 

PUSH = CX 

mov AL, 1BH s ESC#x#1 

CALL FIRE 

mov AL, 25H 

CALL FIR 

MOV AL, 31H 

CALL FIRE 

mov AL, GVALUE*H_SIZE + DOT SIZE - CHAR SIZE 

CMP GVALUE*H_KEY,6CH 513.5 CPI ? 

JNE ESCX1X 

cle s aX = 0X72 

RCR cX,1 

ADC AX, CX 
ESCX1X: MOV CX, AX 

MOV AL.CH b N14N2 

CALL = FIRE 

MOV AL, CL 

CALL = FIRE 

POP cx 

RET 
ESCxX1 _ ENDP 
3-- DIRSET -------------------------- ween enn n enn n nnn on - === ------- 3 
3 OUTPUTS ESC * xX + DIRECTION (U OR B) 3 
3 INPUT s 
3 AL____: DIRECTION 3 
a Sm a mareserenas= seeesenaa===5 
DIRSET PROC NEAR 

PUSH = AX + ESC#X+U,B 

mov AL, 1BH 

CALL = FIR 

MOV AL, 25H 

CALL = FIRE 

POP A 


RET 
DIRSET ENOP 


37> FEED ------------------ 


3 EXECUTES LINE” FEED 





mov AL,ODH 3 CR. 
CALL FIRE 
MOV AL,1BH 3 ESC+X+5 
CALL FIRE 
mov AL,25H 
CALL FIRE 
MOV AL, 35H 
CALL FIRE 
mov AL,O 3 WIN2 
CALL FIRE 
MoV AL, GVALUE*V_SIZE 
CALL FIR 
RET 
FEED gene 


FIR 
ourPurs i DATA TO PRINTER PORT 
IHPU 


t 
s 
EStSI t ADDRESS OF oe STRING 5 
cx t LENGTH OF STR 3 
OUTPUT 3 
AH t STATUS ; 


eee eee em ew eww wwe we wewe wwe nn one eee 


we we we we we Be we Oe 


} SAVE REGS. 


FIREOO: MOV AL. ES:(S1 s OUT DATA 

CAL FIRE 

IHC $1 

Loop FIREOO 

PoP cx 

RET 
FIRES _ENDP Be Ps 
por FIRE ----nnnn enn nner enn ee tated ’ 
3 OUTPUTS DATA. TO PRINTER PORT ; 
3 INPU 
3 at : OUTPUT DATA j 
3 OUTPUT ’ 
3 AH : PRINTER STATUS ’ 
s 5 
porrrrereree-- er re em www we ne cee eee ee ee enna} 
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FIRE 


page NEAR 
Dx 
Put Ne 5 SAVE REGS. 
R PUSH BX 
me 
DX.PR_DA RT 3 OUT DATA IW AL 
0378 OUT De RRADATA_PO 
i Mov BL,1 3 BUSY CHECK 
OF56 R Test awenes 
»PR_ERROR 
17 ie now Oxere SET STROBE 
»PR_CMD_PORT Fy 
a MOV AL, ODH 
our DX, AL 5 
8 MoV AL, OCH 
out DX, AL 5 
é Boy BL,O s GET LAST STATUS 
STATUS 
OF54 R FOr AX 5 RESTORE REGS. 
AH, RETURN_CODE 
26 0002 R PoP Bx _! 
POP cx 
POP Dx 
nov ABEND EXIT 
ABEND: SP, SPSAVE FY 
38 000s R LEA SI,PRINTER_ID#3 3 CLEAR CONTROL AREA 
ace Mov CX,93 
ode CALL CLEAR 
Sa ooae K LEA SI, IMAGE_BUFFER 3 CLEAR IMAGE_BUFFER 
0474 MOV CX,1140 
hes R CALL CLEAR 
cane CALL DEFAULT 3 SET DEFAULT VALUE 
0A34 R CALL GETVAL 3 RESET CPI , LPI CONTROL VALUE 
0089 R JMP RETURN 
FIRE ENDP 
go> STATUS -------------~-- ------------------- ---------- ~------------; 
3 GETS STATUS 1 3 
3 3 
3 INPUT ; 
3 BL s BUSY WAIT FLAG (O:NOT WAIT 7 1:WAIT) 3 
3 3 
3 OUTPUT 3 
3 AH : PRINTER STATUS 1 3 
3 RETURN_CODE : PRINTER STATUS 1 3 
3 . 
3 SoSaSssessSSss 
STATUS PROC NEAR 
USH X 
PUSH cx 
EO XCHG AH, AL 
3 
0379 $T00: MOV DX, PR_STATUS_PORT 3 SET STATUS PORT 
06 0016 R 0004 MOV PR_TIME1,4 3 RESET BEEP TINER 
06 001A R 00OB MOV PR_TIMES,11 3 SET WAIT TIME 
c9 XOR cx7ex 
ST10: IN AL, DX 3 GET STATUS 
FE AND AL, OFEH 3 RESET TIMEOUT BIT 
DB OR LBL 3 BUSY NO CHECK ? 
13 JZ ST99 
30 TEST AL, PR_BUSY 3 BUSY ? 
OF JNZ ST99 5 
OFES R CALL BEEP 3 BEEP ROUTINE 
4 Loop ST10 
OE COLA R DEC PR_TIMES 
EA JNZ ) 
01 OR AL, PR_TIMEOUT 3 SET TIMEOUT STATUS 
F?7 AND AL, OFFH-PR_ERROR 
08 ST99: XOR AL, PR_ERROR 
ce XCHG AL, AH” 3 STATUS TO AN 
ES B9 AND AH, OB9H 3 RESET UNUSED FLAG 
26 0002 R MOV RETURN_CODE. AH 
POP cx 
POP DX 
RET 
STATUS ENDP 
Boe STATUS2 wnonnnn nn nnn nnn nnn nnn nnn nnn nnn nn none; 
3 GETS STATUS 2 ; 
3 
F ourpur 4 
: 1 PRINTER STATUS 2 3 
H RETURN_CODE 2 PRINTER STATUS 2 ; 
5 5 
STATUS2 PROC NEAR 7 
PUSH DX 
s 
00 Mov AH, 3 SET PRINTER_ID 
3E 0000 R 02 CMP PRINTER_ID,2 
02 JE $T20 
ol MOV AH, 
cc 80 ST20: OR AH, 80H 3 SET ASF ON 
E4 81 AND AH, 81H 3 RESET UNUSED BIT 
3E 0003 R 90 cMP CPI,90H 3 CPISS 9 
1? JE LPISET 
C4 02 ADD AH, 02H 3 CPIZ6 2 
JE 0003 R 78 CMP CPI,78H 
oD JE LPISET 
C4 02 AbD AH, 02H 3 CPIS6.7 2 
3E 0003 R 6C cMP CPI.6CH 
os JE LPISET 
ce 02 ADD AH,O2H 3 CPI2=7.5 
SE 0004 R 1E LPISET: CMP LPI, 1EH 3 LPIs4 2 
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17 
C4 08 

SE 0004 R 18 
oD 

C4 08 

SE 0004 R 14 
03 

C4 08 

26 0002 R 


OE CO18 R 
ll 

OE 0016 R 
OB 
0E07 
10 


06 0016 R 0003 


ST999% 


PR_TIME1,1 


BEGIN+1040H 
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3 LPI=5 2 
3 LPI=6 2 
3 LPI=7.5 
TFS Ee Ree oa mano mee 3 
3 
5 
OOS wsne noe aae 3 
3 BEEP 


" " 
* MODULE 7 
" “ 


WO tS ee ee Oe 

OO ne 

= OO1E 

0000 

0000 «FB 

0001 Bs OL 

0003 33 D2 

0005 CD 17 

0007 CD 7B 

0009 CD 11 

0OOB 24 30 

Q00D 3C 20 

oooF 76 15 

0011 BS 0011 
001% cD 10 

0016 B& 1000 
0019 BB 0100 
Qo1c 6CD (10 

QO1E BS 1001 
0021 BB 0100 
0024 cD 10 

0026 B8 FF20 
0029 cD 

0028 E8 0000 E 
OozE 8B SE 0302 R 
0032 80 OE 0336 R 08 
0037 B& 0500 
003A CD 16 

oo3sc 2B CO 

OO3E 8E 

0040 8E CO 

0042 BB 7COO R 
0065 C7 06 0078 R 0000 E 
0048 8C OE 007A 
OOsF 33 FE 

0051 33 D2 

0053 Dl CF 

0055 2F 

0057 Be 0004 
005A 51 

0058 B84 00 

0050 CD 13 

OOSF 72 08 

e061 388 0201 
0064 89 COOL 
0067 CD 13 

0069 «59 

006A 73 09 

006C Fé C4 80 
006F 75 15 

0071 €2 E7 

0073 EB 11 

0075 BE FFFF ; 
0078 81 7F 03 4249 
007D 75 07 

OO7F 81 7F 05 48D 
008s «74 22 

0086 42 

0037 80 FA 04 
008A 72 C7 

008c OB Fé 

OesE 74 16 

0090 BE 0OBS R 


3 
; 
; 
3 
5 
3 
3 
3 
$ 
5 
r 
; 
> 
3 


3 


== INT 19 22s22cse2eeree---- srtsscrssssssssecs ssszreszs 
BOOT STRAP LOADER 
TRACK 0, SECTOR 1 I$ READ INTO THE 


BOOT LOCATION (SEGMENT 0, OFFSET 7C00) 
AND CONTROL IS TRANSFERRED THERE. 





IF THE DISKETTE IS NOT PRESENT OR HAS A 
PROBLEM LOADING (E.G., NOT READY), AW INT. 
18H IS EXECUITED. IF A CARTRIDGE HAS VECTORED 


INT. 18H TO ITSELF, CONTROL WILL BE PASSED TO 
THE CARTRIDGE. 


THIS ROUTINE SET INITIAL CARTRIDGE PROCESS 
AND ALSO CHECK DISKETTE IS BOOTABLE OR NOT 


ASSUME CS:CODE,DS:ABSO 
U 1EH 


BOOT STRAP Pp 
BOOT_ roc NEAR 
STI 3 ENABLE EXTERNAL INTERRUPTS 
MOV AH, 1 3 INITIALIZE PRINTER 
XOR DX, DX 
INT INT_17 
INT 7BH 3 GO SYSTEM CARTRIDGE HANDLING 
Hi: INT INT_11 3 CHECK APPLICATION MODE 
AND AL, 30H 3 
cMP AL,20H 3 EXTENSION MODE ? 
JE H2 3 YES-SKIP FOLLOWING VIDEO SET MODE 
mov AX, 0011H 3 SET 20X11 COLOR MODE FOR DEFAULT 
INT INT_10 3 
MOV AX, 1000H 3 SET 20X11 DEFAULT COLOR BLUE 
MOV BX,0100H 3 FOREGROUND TO BLUE 
INT INT_10 3 
MOV AX, 1001H 3 INCLUDING BORDER COLOR TO BLUE 
MOV BX,0100H 3 
INT INT_10 3 
H2: MoV AX, KKNINIT 3 INITIALIZE KANA-KAN CONVERSION 
INT 78H 3 : 





ASSUME BStDATA 


CALL 

MoV DI,JEQUIP_FLAG ; GET DRIVE CONFIGURATION 

OR JKB_FLAG, 08H 3 FLAG TO KANA-KAN INITIALIZED 
MoV AX,0500H 3 INITIALIZE KEYBOARD 

Int INT_16 3 








ASSUME DS:ABSO 
SuB AX,AX 3 ESTABLISH ADDRESSING 


mov DS,AXx 
MOV ES,AX 3 SET DISKETTE BUFFER ADDR 
MOV BX.OFFSET BOOT_LOCN ; 


psecss yh THE DISK PARAMETER TABLE VECTOR 


g----- LOAD SYSTEM FROM DISKETTE 
xOR SI,SI ; 


WORD PTR DISK_POINTER,OFFSET DISK_BASE 
MoV WORD PTR DISK_POINTER#2,CS , 


RESET DISKETTE INSTALLED FLAG 


XOR DX, DX 3 HEAD @, DRIVE 0 
W3r ROR DI,1 3 DISKETTE DRIVE ATTACHED ? 
JNC 47 3 NO -GOTO NEXT DRIVE CHECK 
MoV CX,4 3 SET RETRY COUNT 
H4: PUSH cx 3 SAVE RETRY COUNT 
MOV AH,O 3 RESET THE DISKETTE SYSTEM 
INT INTIS 3 
Jc HS + IF ERROR, TRY AGAIN 
MOV AX,0201H 3 READ OP.., 1 SECTOR 
MoV CX,0001N 3 TRACK 0, SECTOR 1 
INT INT_1IS 3 READ IN THE SINGLE SECTOR 
HS: PoP cx s RESTORE RETRY COUNT 
INC H6 3 IF GOOD, GOTO FORMAT CHECK 
TEST AH,80H 3 TIMEOUT ERROR ? 
JNZ 7 3 YES-GOTO NEXT DRIVE CHECK 
Loop H4 + DO IT FOR RETRY TIMES 
JMP SHORT H? i 
dmn~~-- CHECK DISKETTE FORMAT 
Ho: MOV SI,OFFFFH & SET DISKETTE INSTALLED FLAG 
CMP DS:WORD PTR BOOT_LOCNICBX).*BI* 3; FORMAT GOOD ? 
JNE u? + NO - 
cmp DS:WORD PTR BOOT_LOCN2(BX), *UM 
JE O_B0oT $ YES-GOTO BOOT PROGRAM 
H7: TNC Dx 5 SET DRIVE @ FOR NEXT DRIVE 
CMP DLL4 + END OF DRIVES ? 
JB HS 3 NO - 
OR SI,$I 3 ANY DISKETTE INSTALLED » 
JZ ng 3 NO - 


crows DISKETTE WAS INSTALLED, BUT SYSTEM DISKETTE WAS NOT INSTALLED. 
MOV SI,OFFSET BOOT_ERR 3 DISPLAY ERROR MESSAGE 
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3 
0093 89 OSE MOV CX, 62 
0096 2E: 8A 04 HB: HOV At, cs: CST) 4 
0099 46 INC SI 3 
009A E€8 0000 E CALL PRT_HEX 3 
009D E2 F? toop =—s«#H8 
ook ten oe ue ini 3 WAIT ANY KEY INPUT 
0oAl CD 16 INT _INT_16 é 
O0AS. E9 C009 R JMP Ht a RETRY ERGM ST ORIVE 
TTE 

bow--- UNABLE To IPL FROM THE DISKE 

@0As CD 18 Ho: INT T_18 s GO TO BASIC OR APPLICATION CARTRIDGE 
2 i>---- IPL WAS SUCCESSFUL 

an ee SE RER NE x 3 ADJUST STACK POINTER 
00A9 80 CA 40 OR DL,40H 3 SET DOUBLE TRACK System DISKETTE 
oOAC 88 57 1E MOV DS:BYTE PTR LBOOTCBX), DL 3 OR LOGICAL Bo 
@OAF EA 7C00 ---- R JMP BOOT_LOCN ; GO BOOT LOCATION OT DISKETTE 

Brae HONORE ren 

3 MESSAGE AREA 
0eBS 90 BS 82 BS 82 AZ BOOT_ERR DB "ELW YATh FIATybeBLAA, ” 


sepe 89 FC 8D 73 83 Du OAODH 
8 83 4c - o ‘ 
81 5B 82 FO 89 9F DB aAF-EMULTKAV 
82 BS 82 C4 89 BA 
82 BS 82 Az 
ore BOOT_STRAP ENDP 
ores ORG BEGIN+100H 
0100 CODE ENDS 
END 
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Oe ee ee FE MRO 000 000000000000000000D000NNNONNNOOROOHHSNOnOOHNNOOONOOOANEL 
x s 
x MODULE 8 x Be KANA-KANJI DATA DEFINITION " 
ReianseNwaie jo orn NN naan ERAN RaN 
0000 cpa SEGMENT AT 80H 
bie DsTART EQU $ 
7 SHANEIDNKIONSOUTAOLEONEIRIOgE KIO atN SEDC SC NEKO AOLSDE DEN DONC sNO DN tb 
3M DATA AEAR 
7 RRR n ORE oopA A EDADAEHONOOOHOEA AHORA ONAN 
i 
bstat DB 2 sDATA STATUS 
eases HANKAF EQU 01K > HANKAKU 
S epee ZEN2F  EQU 02H 3ZENKAKU 
= peor FUNCF EQU 04H + FUNCTION 
= 0008 ZENMENF EQU 08H 3ZENMEN 
= eats KANJIF EQU 10H 3KANJI 
= 0020 ZENILFE EQU 20H 3ZENKAKU HIGH BYTE 
rs 0080 DAKUF EQU 80H > DAKUT EN/HANDAKUT EN 
KBDSTAT DW 2 ;KEYBOARD STATAS 
een ett ESHIFT EQU 00H sEISU SHIFT 
a 0002 KSHIFT EQU 02H sKATAKANA SHIT 
a eae HSHIFT €QU 04H sHIRAGAHA SHIFT 
= 0001 ZMODE EQU 01H sZENKAKU MODE 
xd o0co HMODE EQuU OOH sHANKAKU MODE 
a 0006 KBOMSK EQU 06H 3KBD STATUS MASK PATTERN 
= 0040 CAPSST EQU 40H sCAPS STATUS 
= 0010 CAPSON EQU 10H 3CAPS LOCK 
= 00co KKNOCHG EQuU OCOH sKANA~KAN REQUIREMENT HOT CHANGED 
fs KKKYDCD EQU CHARL 3KEY DATA CODEC6BYTE) 
= KKINKEY EQU CHARL 
0003 «2? CHARL DB ? s CHARACTER 1 
4 ee ATTR1 DB 2 SATTRIBUTE 1 
0005 22 SCANL DB ? 3SCAN CODE 1 
0006 «2? CHAR2 DB 2 3CHARACTER 2 
0007 2? ATTR2 DB 2 s ATTRIBUTE 2 
0008 7? SCAN2 DB ? sSCAN CODE 2 
jNeSeeewaeewoes: ------ wrrerere------- +--+ wero e+ --------- ~-—------0 
0009 6c C KKINBUF DB 108 DUP(?) sVOMI INPUT BUFFER(120BYTE) 
22 
J 
0075 6c C KKINBFSV DB 108 DUPC?) 3 YOMI INPUT BUFFER SAVE 
9°? 
J 
= 0000 HANATTR: EQU : THIGH BYTE OF Sen 
? IGH BYTE OF ZENKAKU ATTRIB 
2°b001 ZATTRIS EQU  O1H 80x25 a 
= 9080 ZATIRIN EQU 80H $80™11,40"22 
2? A ? sLOW BYTE OF ZENKAKU ATTRIB 
2°So03 ZATTR25 EQU 03H 380"25 oeete 
= 0088 ZATTR2N EQU 88H 38011, 40022 
ROATCHT DB 2 sROTATE ATTRIBUTE COUNTER 
ie ROT25 ECU 0 380x25 
= 0001 ROTi1L EQU 1 380M11,40m22 
@oEs 772°? SPACE DW ? 3SPACE HANKAKU DATA 
OOEG 777? KKWCCA DW ? 3 BUFFER CONTECUTUAL CURSOR 
OOES 297? KKEOPMAX Di ? 3_END OF YOMI POINTER (¢ MAX ) 
= 0O0OF SESrnAN Equ is 3BANGOU MAXIMUM EOP 
@CEA P7777 KKWEOP DW ? 3 END OF YOMI POINTER 
@oEcC 777? RHEE EY Dw ? 3 SAVE AREA FOR END OF YORI POINTER 
@OEE rrr? BASE DW ? 3 START ribet OF DISPLAY INP 
= 0030 BBASE25 Equ 48 3BANGOU 80%2 AEDT ‘NURP, 
© 0015 BBASE\L EQu 21 3 BANGOU sontiveonaa 
3 
3 
OOoFO 77 KKWINSY DB ? 3_INSERT MODE FLAG TABLE 
OOFL 779? KKINP DW ? 3DISPLAY POINTER 
Oors rT? KKCUSR DW ? sKANA-KAN CURSOR POSITION 
= 183¢ KCSRP25 EQu 183CH ponnes CURSOR POSITION (80n25) 
= OALlL KCSRP11 EQU OAlLH (LL) 
= 1811 KCSRP4O25 EQU  1811H ; (40x25) 
3 
OOFS 27797 KKCHRSP DW ? sCLEAR DATA OF INPUT BUFFER 
= 8140 ZENSP EQU 8140H sZENKAKU SPACE DATA 
eer? 277? KKFORPIT DW 2 sMOVE FORWARD POINTER 
t 
oors 27 KKMODE DB ? 3KANA-KANJI_ MODE 
= 0000 NORMALM EQU Q sNORMAL MODE 
= 0002 KANJIM EQU 2 sKANJI MODE 
= 0004 SELECTM EQU 4 sKANJI SELECT MODE 
= 0008 CODEM EQu 8 sKANJI BAGOU MODE 
3 
OOFA 77 TVMODE DB i sTV MODE 
= 0001 TV8025 EQU 1 3TV MODE 80x25 
= 0002 TV8O11L EQU 2 3 8011 
= 0003 TV4011 EQU 3 3 40mi) 
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2? 
0107 «3? 
2 


saree 
pre rry 





O1SE 2222 
0140 

01460 2722 
0142 2222 
0166 2229 
0166 «2272 
0168 «2229 
O146a 46 C 


GI8E 2227 
0190 2? 


wonna 
o 
° 
°o 
wu 


e 
- 
2 
~ 
~~ 
ry 


rv? 


Wi 

TVLINE DB 

TVL80—- EQU 
TVL60—-EQU 
KKOILP DB 

OILP25 EU 
OILP11 EQU 
KHBLK DB 


KHBLKMX DB 
APKBDST DW 


3 

DOILP DB 
DOILP25 EQu 
DOILP11 U 
DOILP11K EQU 
DOILP11S EQu 
CLINDLIP EQU 
DOILN DB 
DOILN2S EQU 
DOILN11 EQU 
DOILN11K EQu 
DOILN11S EQu 
CLINDIIN EQU 


BANGOUP DB 
BANP25  EQU 


mi 
2: 


BANP11 EQU 
BASTERP DB 
BAST25 QU 
BAST11 EQU 
DCRSRP DW 
DSTRTP DW 
DENDP DW 
; 


ose 


OOM MUS Oe wD MND PO 
Sconnre 


+ 
<o 


68 


? 


no 


Ve NBD Me 
~~ 


KKGVNYM DB 


KKDICLN DW 
KKDICFF DW 
KKLENYM DW 


KKECNRML EQU 
KKECNOTF EQU 
KKECYMLN EQU 
KKECYMHR EQU 
KKECDICT EQu 


KKYOMIL DB 
KKYOMI DB 


KKOHOSUU 


KKDICADR 
KKDICOFF 
KKDICSEG 


KKOHOZAN 
KKOHOCNT 
KKOHODSP 


KKHANQUE 


KKHQLEN 


3 
KKCHRMD DB 

MDZENNUM EQU 
MDZEHHIR EQU 
MDZENKAT EQU 
MDHAHNUI EQU 
MDHAKKAT EQU 


KKYMSTS DB 
KKYMSTE EQU 
KKYMSTM EQU 
KKYMSTD EQU 
KKYMSTN EQU 
KKYMSTER EQU 


KHENFST DB 
ATTRMSK DB 


ATMSK25 EQU 
ATMSK11 EQU 


OLDMODE DB 
sWsccee ns x 
DEND —- EU 


7 DUPC(?) 


HORM weve 


o 


2 
37 DUPC?) 


DW bs 
LABEL DWORD 
DW 7 


sNUMBERS OF CHARACTER 
eson2s IN 1 LINE 


s8OML17460M11 


;0IL POSITION 
380"25 POSITION 
380M11740"11 POSITION 


sKOUHO BLOCK NO. 
sMAXIMUM BLOCK NO. 


sSAVE KBD STATUS FOR APPLICATION 


sDATA POSITION OF OIL 

380"25 POSITION 

38011 POSITION 

34011 POSITION CKANJrY MODE) 
34011 POSITION (SELECT MODE) 
34011 INDICATOR POSITION 
sNUMBER OF OIL DATA 

380*25 NUMBER 

380%11 NUMBER 

34011 NUMBER CKANJI MODE) 
#40M11 NUMBER (SELECT moDE) 
34011 NUMBER OF INDICATOR 


3BANGOU DATA POSITION 
380%25 POSITION 
380*1174¢0M11 POSITION 


sASTERISK POSITION IN KKOUTBUF 
380"25 POSITION 
380*11740K11 POSITION 


sCURSOR POSITION (KKDISP) 
sSTART POSITION CKKDISP) 
>END POSITON (KKDISP) 


3 YOMI WORK 


DICTIONARY INDEX LENGTH 
DICTIONARY TOP OFFSET 
YOMI LENGTH ON INDEX 


NORMAL 

YOMI NOT FOUND 

YOMI LENGTH EXCEPTION 
HIRAGANA YOMI EXCEPTION 
DICTIONARY FORMAT ERROR 


we we we 


we we we we we 


LENGTH OF YOMI 
YOMI BUFFER 


we 


TOTAL NUMBER OF KOUHO 


3 DICTIONARY OFFSET 


DW ? DICTIONARY SEGMENT ADDRESS 

Dw ? 3 ZAN 

OW 2 ; DISPLAY KOUHO COUNTER 

DW ? 3 DISPLAY KOUHO PRINTER 

DB 17™4 DUPC?) 3 QUEING BUFFER 

Dw 2 

"a1 + ZENKAKU NUMERIC CHARACTER 
02 3 ZENKAKU HIRAGANA CHARACTER 
03 + ZENKAKU KATAKANA CHARACTE 
04 3 HANKAKU NUMERIC CHARACTER, 
05 ; HANKAKU KATAKANA CHARAC 

2 

000000018 + PROCESS END FLAG 

000000108 ; MOVE FORWORD FLAG ti 
000001008 ; DAKUTEN, HANDAKUTEN FLAG) | 
000010008 ; NUMERIC KEY CONVERSION 
100000008 + ERROR FLAG 

? 

7 

: ;ATTRIBUTE MASK 

OFCH 380425 

7K 3BOK11740N11 

sOLD KANA-KAN MODE 

$-DSTART 
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vwnonnne 


wee 


0 00 08 OP Ot ee Oe Ot oe oe tb te te Oe on ee eee eee ea 


ennnn 


- 
eoocecoe 


w 
o 
~~ 


OFE. 
001 


004 
OFB 


o 
°o 
Nn 


0000 
0000 
OOFF 
0000 
0040 
0080 
0020 


FFOO 
FF4O 
FF&O 
FF20 
FFO. 
FFO2 


6B20 
6840 
6B81 
6B38 
6C20 
6C40 
6c8l 
6D20 
6040 
6D81 
5200 
5300 
OE08 
O1llB 
7700 
1coD 
7EOD 
9300 
“B00 
4D00 
1A81 
1881 
1ADE 
1BDF 
LAGA 
1B4B 


@olrF 


6000 
eoo. 


0082 
008s 
0081 


e700 
7FFF 


0020 
@O2A 
OOAO 
OOSE 
0007 


0028 
GO0A 


0009 
QOOF 
0001 
OOSE 
0001 
0078 


KKFLAG ea ? 
KON OFEH a a 
sKANA-KAN ON FLAG 
ereres: Eau 01H $KANA-KAN OFF FLAG 
CUSRST_ON equ oct TEANACKAN, CURGGR 
CUSRST—OFF EQU OFBH PRATER CURSOR STATUS oF ee 6 
; 
$ 
FRO O 0200800000000 0000 ROD RORRIN0O DBNBS HH OORN NRO NOOEE 
. ii 
a CONSTANT VALUE x 


; " 
7 ODO 00000000000000000000 000 VE DIOBORERROORONNNOD ROR RORNNOOOIIEE 


; 
3 


AtalebeaeiiteebeLLLLLLULLULLITI TTT LLETTETLELL ET ETT TEEPE CTT TTT ETT rrr 


3m KANA-KAN PARAMATER « 
ROU 80 800000000000 000000 000 ORVODUVRRORVRVINN DAVAO RAO NONNDOE 

. 

FUNCAL EQU 00 sCHARACTER CODE OF FUNCTION KEY 

ZENMAK = EQU 00 3SCAN CODE OF ZENMEN 8-BIT CODE 

KANJAH EQU OFFH 3SCAN CODE OF KANJI MODE 

KANEXT EQU 00 sCHARACTER CODE OF KANJI EXIT 

KANENT EQU 40H sCHARACTER CODE OF KANJI ENTER 

KANCHG EQU 80H sCHARACTER CODE OF KANJI CHANGE 

KANINT EQU 20H sCHARACTER CODE OF KANJI IMITIAL 

3 

KEXITX EQU OFFOOH 3AX OF KANJI EXIT 

KENTRX EQU OFF4OH 3AX OF KANJI ENTER 

KCHNGX EQU OFF80H 3AX OF KANJI CHANGE 

KINITX EQU OFF20H 3AX OF KANJI INITIAL 

KONX EQU OFFOLH 3AX OF KANJI ON 

KOFFX EQU OFFO2H 3AX OF KANJI OFF 
320000000008008800000000008000 00000000008 V VIII VIII OVD VOIIE 

3M KEY DATA | 
AalaieleisieieleieleleelebtlbbLLLLLLLLELEELILELIELi til ii titi tT itt TT Trt T er rer ret 

3 

KYKANJX EQU 6B20H 3 SCAN/CHARACTER CODE OF KANJI 

KYKANJ2 EQU 6B40H *SCAN/CHARACTER CODE OF KANJI (ZEN-LOW) 
KYKANJ1 EQU 6B81H *>SCAN/CHARACTER CODE OF KANJI (ZEN-HIGH) 
KYCODEX EQU 6B38H 3 SCAN/CHARACTER CODE OF SANGOU 

KYMUHEX EQU 6C20H sSCAN/CHARACTER CODE OF MUHENKAN 

KYMUHE2 EQU 6C40H sSCAN/CHARACTER CODE OF MUHENKAN (ZEX-LOW) 
KYMUHE1 EQU 6C81H sSCAN/CHARACTER CODE OF MUHENKAN (ZEN-HIGH) 
KYHENKX EQU 6D20K 3SCAN/CHARACTER CODE OF HENKAN 

KYHENK2 EQU 6D40H 3SCAN/CHARACTER CODE OF HENKAN (ZEN-LOW) 
KYHENK1 EQu 6D81H #SCAN/CHARACTER CODE OF HENKAN (ZEN-HIGH) 
KYINSTX EQU 5200H 3SCAN/CHARACTER CODE OF INSERT 

KYDELTX EQU 5300H *>SCAN/CHARACTER CODE OF DELETE 

KYBACKX EQU QEO8H 3 SCAN/CHARACTER CODE OF BACKSPACE 
KYESCPX EQU O11BH 3 SCAN/CHARACTER CODE OF ESCAPE 

KYEEOQFX EQU 7700H sSCAN/CHARACTER CODE OF ERASE EOF 
KYCRRTX EQU 1CODH sSCAN/CHARACTER CODE OF CARRIER RET. 
KYCRRTY EQU 7EODH sSCAN/CHARACTER CODE OF CARRIER RET. 
KYENTRX EQU 9300K 3 SCAN/CHARACTER CODE OF ENTER 

KYCSRLX EQU 4BOOH sSCAN/CHARACTER CODE OF CURSOR LEFT 
KYCSRRX EQU 4D00H }SCAN/CHARACTER CODE OF CURSOR RIGHT 
KYDAKUX EQU 1A8iH #SCAN/CHARACTER CODE OF DAKUTEN (HIGH) 
KYHANDX EQU 1B81H #SCAN/CHARACTER CODE OF HANDAKUTEN (HIGH) 
KYDAKU1 EQU 1ADEH BSCAN/CHARACTER CODE OF DAKUTEN CHANKAKU) 
KYHAND1] EQU 1BDFH *SCAN/CHARACTER CODE OF HANDAKUTEN (HANKAKU) 
KYDAKU2 EQU 1A4AH BSCAN/CHARACTER CODE OF DAKUTEN (ZENKAKU) 
KYHAND2 EQU 1B4BH sSCAN/CHARACTER CODE OF HANDAKUTEN (ZENKAKU) 
3 

CTRL_X EQU 1FH sCHARACTER CODE OF CIRL+X 

3 

RCNOMAL EQU C) sNOMAL RETURN CODE 

RCABNO EQU 1 sABNOMAL RETURN CODE 

ZENHIRA EQU 82H s3ZENKAKU HIRAGANA HIGH BYTE 

ZENKATA EQU 83H sZENKAKU KATAKANA HIGH BYTE 

ZENMARK EQU 81H s3ZENKAKU MARK HIGH BYTE 

3 

SPEAKHZ EQU 0700H 3SPEAKER HZ 

DELAYN EQU 7FFFH 

3 

BLANK = EQU 20H sBLANK DATA CODE 

ASTER  EQU 2AH sASTERISK DATA CODE 

SPECHAR EQU OAOH sSPECIAL CARACTER CODE 

CAPS EQU SEH sCAPS DATA CODE 

BEL EQU 07H sBELL CODE 

. 

DAKUNUM EQU 40 sNUMBERS OF DAKUTEN CARACTER 

HANDNUM EQU 10 3NUMBERS OF HANDAKUTEN CARACTER 

BNUMMIN EQU 9 MINIMUM NUMBERS OF BANGOU 

BNUMMAX EQU 15 sMAXIMUM NUMBERS OF BANGOU 

TENMIN EQU 1 sMINIMUM TEN 

TENMAX EQU 4 sMAXIMUM TEN 

KUMIN EQU 1 3MINIMUM KU 

KUMAX EQuU 120 sMAXIMUM KU 


3 

; 
}929000001900000000000000000800000000000000000000000000000HHNOORDADUEERDRE 
ih) SCAN CODE a 
3200010100000 00000200200 0000 000 QOD OGRE 
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Ce eT TT TT] 
co 
o 
u 
w 


woune 
o 
o 
+ 
~ 


10 8 0 O08 OE TE HE OO OE 08 08 eee 08 08 ae 8 on on ce Oe ee ee et Oe oe oe ae te oe 
o 
o 
oe 
n 


0010 
0081 
0082 
0085 
00838 
0089 
OOSA 
OO8E 


0020 


0196 


SCANO2 EQU 02H 
SCANOA EQU OAH 
SCANOB EQU OBH 
SCANOD EQU ODH 
SCAN1O0 EQU 10H 
SCANIB EQU 1BH 
SCANIE EQU 1EH 
SCAN29 EQU 29H 
SCAN2B EQU 2BH 
SCANSS EQU 35H 
SCAN39 EQU 39H 
SCANS4A EQU 4AH 
SCANSE EQU 4EH 
SCAN6A EQU 6AH 
SCAN6B EQU 6BH 
SCAN70 EQU 70H 
SCAN72 EQU 72H 
SCAN7A EQU 7AH 
SCAN7D EQU 7DH 
NUMI19M1 EQU 2FH 
NUMOM1 §EQU 25H 
NUM1IM2 EQU 41H 
HUMOM2 EQU 40H 


THE UIRTGan Hobie toe eaniinadncsiniGuaiabninisacunisis Kadri eaantieceeeece 


a * 
7 Wiadonaat i sass CCIE TOES Case ocac acne sans 
3 
poo EQu OOH 
Dol EQu 01H 
Do2 Equ 02H 
DOS EQU O3H 
DOS EQU 04H 
bos EQU OSH 
Do6 EQU 06H 
DO? EQU 07H 
Dos EQU 08H 
Dog EQU 09H 
DOA EQu OAH 
DOB EQU OBH 
Doc EQu OCH 
DoD EQU ODH 
DOE EQU OEH 
DOF EQqu OFH 
D10 EQu 10H 
D20 EQU 20H 
D30 EQU 30H 
D¢0 EQU 40H 
D50 EQU 50H 
D60 Equ 60H 
070 EQU 70H 
D380 EQU 80H 
D90 EQu 90H 
DAO EQU OAOH 
DBO EQU OBOH 
pco EQu OCOH 
DDO EQU ODOH 
DEO EQU QEOH 
DFO Equ OFOH 
OFF EQU OFFH 
3 
BSS S<S=== wwwn~ EQUATES FOR VIDEO INTERFACE ---------~- 

o 170 
VIDEO EQu 10H 3 INTERRUPT NO. OF VIDE! 
VSETACT EQU 81H 3 SET ALTERNATE CURSOR IEE TION 
VSETACP EQu 82H 3 SET ALTERNATE CURSOR POSITION 
VRDACP EQU 83H 3 READ ALTERNATE CURSOR CTER AT ALT CSR PSH 
VRDACA EQU 88H } READ ATTRIBUTE AND CHARACTER AT ALT C&R Pau, 
VWRACA EQu 89H > WRITE ATTRIBUTE AND con PSN 
VWRCA EQU 8AH 3 WRITE CHARACTER AT ue PSN 
VWRITYA EQu 8EH 3 WRITE TTY USING ALT 
CURSOR_DISABLE EQU 20H 3 CURSOR DISABLE BIT 


5 
KKDATA ENDS PPT PP Terreel 
321001000000000000000000000 EHD 10000000000000000000000000000004 


. PUBLIC KKKFDM 
BIGIN = § 
ASSUME CS:CODE,DS:KKDATA 


om x 
3" PROGRAM NAME: KKKFDM ¥ 
3M 
3M DESCRIPTIVE NAME: KANA-KANJI MAIN ROUTINE TOR) m 
3m (KEYBORAD FUNCTION DISTRIBUTION MONI 3 
3m R INTO GROUPS 
3 FUNCTION: THIS ROUTINE CLASSIFIES SCAN CODE/CHARACTER 3 BRANCHES ¥ 
3m THAT ARE THE GRAPHIC, CURSOR OR FUNCTION. T x 
7M TO EACH PRocEss. a 
3M " 
3™ LINKAGE: INT 78H “ 
a Le 
sm INPUT: AX CAH - Scan cop - CHARACTER ) " 
is i avie aL E,a-c¢ : 
; Y 
“4 2 BYTE CODE (HIGH BYTE) 
x 


BYTE CODE (LOW BYTE) 
FUNCTION KEYS . 


8 BIT CODE WITH ZENMEN KEY 
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---- R 
DB 

cs 
6B20 
OA 
FF80 
05 
FF20 
03 
0219 R 


16 OOF9 
FFO2 

oD 

FFOL 

15 

26 0195 
56 90 


OE 0195 
FA 00 


4B 

6820 

16 0194 
6881 

3F 

FA 00 
2F 

D8 

132D R 
FB 6D81 
2F 

FB 6C8&1 
29 


0097 R 
06 0000 
F 


1 

FA 02 
OA 

FA 04 
05s 
O379 R 
08 
OSEF R 
os 
OSSE R 
0000 
os 
O212 R 


R 20 


7m KANJI Fints 

: HED (FFOO) ll 
+ KANJI ENTERED (FF40) ¥ 
am KANJI. CHANGED CFF80) 5 
i NJI INITIALIZED (FF20) " 
; KANJI ON CFFO1) bl 
ix KANJI OFF CFFO2) ie 
3 u 
sm OUTPUT: KAKA-KAN COMMON TaBLES ‘ 
$ 

3™ RETURN CODES: None ri 
ae mt 
;™ EXTERNAL REFERENCES, x 
3 " 
7m ROUTINES: KKINIT - Kana-xan INITIALIZATION x 
im KKNOML - NORMAL MODE CONTROL ol 
in KKZCTL - ZENKOUHO CONTROL : 
— KKBCTL - BANGoU CONTROL F 
i KKWOIL - WRITE OPERATION INFORMATION LINE " 
i TABLES: KANA-KAN COMMON TABLES ‘ 
7 = 
3M REGISTERS: ALL UNCHANGED x 
im ; 
sM CHANGE ACTIVITY: VERSION 00.00 ¥ 
3x : 
3m -f 
3 21000010888080900000000088000000000 8 BO008B8DRV0NRNNNNO ORDO ONDINE 
3 


ASSUME DS:KKDATA 


KKFDM 


Be JR ve oe we we we oe we 


PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
MoV 


KFDOO0O0: 
KFDO10: 


KFDO12: 


KFDO14: 


KFDO20: 


KFDOSOr 
KFDO40: 


KFDRTN: 


Proc NEAR 


BX,SEG KKDATA 
DS,8X 


Es,Bx 
AX, KYKANJX 
KFDOOO 
AX, KCHNGX 
KFDO0O0O 
AX, KINITX 
KFDO10 


KKINIT 


DL, KKMODE 
AX, KOFFX 
KFDO12 

AX, KONX 
KFDO14 
KKFLAG, KON 
KFDRTN 


KKFLAG, KOFF 
DL, NORMALM 
KFORTN 

AX, KYKANJX 


OLDMODE.DL 

AX, KYKANJL 

KFDRIN 

eo ea 
3 


KCALCCW 
BX, KYHENK} 
KFDRTN 

BX, KYMUHE] 
KFORTN 
CSCAN 
DSTAT, ZENLF 
KFDRTN 

DL. KANJIM 


KKBCTL 
SHORT KFDO4O 
KKZCTL 

SHORT KFDO40 
KKNOML 

AX, RCNOMAL 


KFORTN 
SPEAKER 
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AON BOORORO0O000E KKK EDM 3000000000200 22000 NE 
ENTRY OF KKKFDM 


“ 
slaialaiahehaiebeieleieleelbbbaLLLLLLLLULLLELCCLELLLT Li LTT Tiere TTT Terr Terre Trt 


sSAVE REGISTERS 


;LOAD KANA-KAN DATA SEGMENT 
sGET KANA-KAN DATA SEGMENT 


s-~- MODIFYED FOR KANA-KAN PERFORMANCE uP 


CHECK SCAN CODE THAT REQUIRE INITIALIZE | 


sKANA-KAN INITIAL PROCESS 


sLOAD KANA-KAN MODE 
sREQUIREMENT IS KANJI OFF? 
3 YES. GOTO 


sREQUIREMENT IS KANJI ON ? 
3 NO. GOT 
SET KANJI ON FLAG 


3SET KANJI OFF FLAG 


sMORMAL MODE 2? 
3; YES. 


sLOAD KANJI KEY CODE (FINISH KANJI) 


3SAVE KANA-KAN MODE 


sHIGH BYTE OF ZENKAKU KANJI KEY 
+ YES. GOTO 

sNORMAL MODE 2? 

’ YES. GOTO 


CALCULATE KKWCCA 
sHIGH BYTE OF ZENKAKU HENKAKN KEY ? 
’ YES. GOTO 
sHIGH BYTE OF ZENKAKU MUHENKAN KEY 2 
’ YES. GOTO 
sCHANGE SCAN CODE 
sHIGH BYTE OF ZENKAKU 2? 

+ YES. GOTO 
KANJI MODE 2 
3 YES. GOTO 
KANJI SELECT MODE 2 
3 YES. GOTO 
s3BANGOU MODE PROCESS 


sKANJI MODE PROCESS 


sNORMAL MODE PROCESS 


sRETURN CODE IS NORMAL ? 
3 YES. GOTO 
3SOUND SPEAKER 
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70 
70 


iF 


OOEL R 


LEE ELL Lillie LLoLLLLi rt TTT at tT tit 


POP Ax 
POP Bx 
PoP cx 
POP Dx 
POP SI 
POP DI 
POP BP 
POP ES 
POP DS 
IRET 
KKKFDM ENDP 
3 
3 
3M 
3é 
7 CHANGE SCAN CODE 
3M 
3M 
, 
CSCAN PROC NEAR 
PUSH DX 
MOV DL,DSTAT 
CMP DL,ZENIF 
JNE cSC001 
CSC000: 
JMP cscoso 
cscoo1: 
CALL HANDAKU 
cMP AL,O 
JE csco02 
JMP CSC090 
CScoo2: 
cMP BL, FUNCAL 
JE cscoio 
CMP BH, ZENMAH 
JE CSC020 
cMP BH, KANJAH 
JE CSCO30 
cMP BL, ZENHIRA 
JE CSC040 
cMP BL,ZENKATA 
JE cSC040 
CMP BL, ZENMARK 
JE CSC040 
cMP BH, SCANO2 
JB CSCoo3 
CMP BH, SCANOD 
JBE CSC009 
cscoo3: 
CMP BH, SCAN10 
JB CSC004 
cMP BH, SCANLB 
JBE c$co09 
CSC004: 
cmp BH, SCANLE 
JB CSC005 
CMP BH, SCAN29 
JBE cscoo9 
cscoos: 
cMP BH, SCAN2B 
JB CSC006 
CMP BH, SCAN35 
JBE csco09 
CSC006: 
cMP BH, SCAN39 
JE csc009 
cmp BH, SCANGA 
JE CSC009 
cMP BH, SCANGE 
JE CSC009 
CMP BH, SCAN6GA 
JE cSc009 
CSCO07: 
CMP BH, SCAN70 
JB CSCO10 
CMP BH, SCAN7D 
JA cSCo1o 
Bm mr rn rr rrr ern nrernn wwmmeen— essere 
7m HANKAKU PROCESS 
C5C009: 
CMP BL,CTRL_X 
JBE cscol0 
mov AL, HAHKAF 
JMP SHORT CSC060 
csco10: 
mov AL, FUNCF 
JMP SHORT CSC060 
csco20: 
MoV AL, ZENMENF 
JMP SHORT CSC060 
Csco3o: 
MoV AL, KANJIF 
JMP SHORT CSC060 
CS$C040: 
MoV AL, ZENIF 
MoV AH, ZENATTRI 
JMP SHORT CSCO70 
CSC060: 
MOV AH, HANATTR 


BX : SCAN CODE/CHARACTER 
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sRESTOR REGISTER 


sRETURN TO CALLER 


moe CSCAN 2080000000000 0800808 DOK 


;LOAD DATA STATUS 


DATA IS LOW BYTE OF 
; NO. GOTO ZENKAKU »¥ 


sDAKUTEN OR HANDAKUTEN PROC 
a o HANDAKUTEN CHARACTER ? 


sDATA IS FUNCTION KEY ? 
3 YES. GOTO 

sDATA IS ZENMEN KEY 2? 
3 YES. GOTO 

sDATA IS KANJI REQUIREMENT ? 

+ YES. GOTO 

;DATA IS AIRAGANA KEY ? 

+ YES. GOTO 

sDATA IS KATAKANA KEY ? 

> YES. GOTO 

sDATA IS HIGH BYTE OF ZENKAKU ? 
+ YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC (CHANKAKU) ? 
3 YES. GOTO 
sDATA IS GRAPHIC (HANKAKU) ? 
3 YES. GOTO 
;DATA IS GRAPHIC CHANKAKU) 2? 
3 YES. GOTO 
sDATA IS GRAPHIC (CHANKAKU) ? 
3 YES. GOTO 


sDATA IS GRAPHIC CHANKAKU) ? 
3 NO. GOTO 





sCTRL*X KEY ? 
3 YES. GOTO 
;HANKAKU FLAG ON 


sFUNCTION FLAG ON 


sZENMEN FLAG ON 


sKANJI FLAG ON 


sZENKAKU 1 FLAG ON 
sSET ZENKAKU-1L ATTRIBUTE 


sSET HANKAKU ATTRIBUTE 


vwegw» 
erous 


Pp 
a 
CSCO70: 3 
mov | _yARLeBL ier 
‘x 9003 f Mov SCANL at HET A ArnKaKu TE ARACTER 
26 000 MOV DSTAT; AL sSET scan 
05 ® CODE 
3e 908 JMP CSC090 *SET DATA STATUS 
taller caer eee Sea 
1B 90 we ZENKAKU PROCESS Sina senetcea noe eee pene sty 
FS SRE Tne mere " 
cscoso: Wott enn wen nnn wanna nee atalaatatatae noe--- x 
CALL HANDAK' 
CMP AL,0 ‘ HDAKUTEN OR HANDAKUTEH PROCESS ; 
0166 R JNE ¢sco90 SDAKUTEN OR HANDAKUTEN ? : 
00 Mov CHAR2, BL * YES. GoTo 
13 east ® HOV AL, ZENATTRE ISET ZENRARU CHARACTER 
v A 
ooez R nav ATTR2, rAL tSET ZENKAKU-2 ATTRIBUTE 
9007 RD nov DSTAT oe iSET SCAN CODE } 
se 0008 R 9,  ZEN2F +ZENKAKU FLAG ON F 
06 0000 PeRer RRS Keomamntmcinii ac a 
im chic NA: Ma aceite rea % 
Salonen atic aera ee woenne 00 rae er eres, canal i ik i as 5 we na et an 
escoso: mov AH, DO2 ’ ‘ 
INT 16H IREA . 
2 sREAD KBD STATUS 
te : mov KBDSTAT, AX iSET KAHA-KAN KBD STATUS 
0002 
RET RETURN TO CALLER 
CSCAN _ENDP 
3; uMMM HANDAKU 420}000000080800000000000000000000 DDO NODNNSNNOONANOD DIET 
3M x" 
a DAKUTEN/HANDAKUTEN PROCESS x 
3é x 
POU OO 00000000000000000000002000G000N0NNRNNNONNONNONDL 
HANDAKU PROC 
Mov DI.KKWCCA sLOAD CURSOR POINTER IN KKINBUF 
3E 0OE6 R SUB DI,D06 sCURSOR POINTER IS AT TOP ? 
EF 06 3B HANO8O 3 YES. GOT 
73 MOV AH, KKINBUF(DI) $LGa0 HIGH BYTE OF ZENKAKU 
A5 0009 R MoV AL, KKINBUFCDIJ¢1 OAD ATTRIBUTE-1 
85 OOOA R CMP AL, ZENATTRI sDATA I5_ ENKA 2 
06 OOEL R JNE ee rag 4 0; Soro : 
6A cMP AH, ZEN sHIRAGANA 
FC 82 JE HANOOO 3 YES. GOTO 
Fe 83 SHE HANOBO | SRADARARA? 
JNE 3 MO. 
60 
MABUEES oy AL KKINBUFLDIJ+43 sLOAD LOW BYTE OF ZENKAKU 
85 pene R CMP BX, KYDAKUL 
FB 1AD JE HANO4O 
1c CMP BX, KYDAKU2 sDAKUTEN ? 
4 1AGA JE pila hh + YES. GOTO 
CMP BX, 
FB 1BOF JE HANOOS 
06 CMP BX, KYHAND2 sHANDAKUTEN 2 
fe aes JNE HANO8O + NO. GOTO 
Weewee--- ------ = - ~~ -- +e heater! hate! ieee | 
iM HANDAKUTEN PROCESS 
Steet ee ee SOT T TRC RRR RR ORO Renee 
. ANOoSs Mov SI, OFFSET HAGYOH sLOAD HA GYOU DATA OFFSET 
Hi MOV cx, *HARDH uM LOAD HUMBERS OF HANDAKUTEN CHARACTER 
MOV DH, 
02 JHP_ SHORT HANOS@ ——_;GOTO CARACTER CHECK 
We een enn enn nnn nooo 22-5 -- += aaa aaa ae | 
ie DAKUTEN PROCESS " 
pMe---- SSeS See ese Sees: a ane ae SS SO OS a oe Se ee eee IS ? 
HANGS 
oie ® — Mov SI,OFFSET KAGYOH sLOAD KA GYOU DATA OFFSET 
MOV CX, DAKURUM LOAD NUMBERS OF DAKUTEN CHARACTER 
0028 MOV DH, DOL 
_ HANOSO: ; 
3A 04 cmp AL, CS: CSI) sCHECK DAKUTEN CHARACTER ? 
03 jE. HANOGO 3 YES. GOTO 
N 
F838 Loop HANO50 
28 JMP SHORT HANO8O = | UNMATCH. GOTO 
cs en REDY ADD AL,DH sMAKE DAKUTENCHANDAKUTEN CHARACTER . 
26 0O0S R MoV CHAR1,AH 3SET HIGH BYTE OF AKU ; 
0006 R MoV CHAR2,AL sSET LOW BYTE OF ZENKARU 5 
OOE1L R MOV AL, ZENATTRI $ 
0004 R MOV ATTRIGAL SET ATTRIBUTE-2 $ 
AL. 
oser nov ATTR2, AL bSET ATTRIBUTE-2 
oop R MoV AL, KKINBUFCDIJ42 sLOAD SCAN CODE 
ahaa & Mov SCANI. AL user SCAN cope 
SCAN2 SCAN CO 
da ueee ® Ba Bay DS TAT, ZENZF*DAKUE iSET ZENKAKU DAKUTEN/HANDARUTEN FLAG 
01 MOV AL, OEM isc SSET RETURN CODE OF DAKUTEN/HANDAKUTEN 
02 JMP SHORT 
co BURNERS. ALS AL VSET RETURN CODE 
BANE sag FRETURN TO CALLER 
HANDAKU ENDP aeeeeneeercto see. 
one an Be 
7M DAKUTEN/ HANDAKUTE c Keo etal ema Fn! : 
Nelo iach alae SES TAR ei RO ape ce 
A9H, OABH, OADH, OAFH, OB1H 
35 07 89 BB sacront on OBSH.OBSH, OB7H.ORSH, CBRN 
Bs. 8 SAGYOH: DB DH, OBFH, OC2H. OC4H. OCéH 
a Fe Ge ks TAGYOH: OB MAH SCH. GEM, SON, SoH 
ee oe et ze KAGYOK: DB S4H.S6H, 58H .SAN. Seu 
56 58 SA 5C SAGYOK: DB 54H,56H, ’ ’ 
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o 
iw) 
oe 
o 

Cow 

mom 

vOoOO 

Koo 

voOe 

euuw 
voe 

Nou 

woe 

rox 


80 FA OE 


BS 0195 
32 Co 


0260 AA 
E2 FD 


80 FA 02 


81 FB FF20 
é OOFA R 
E9 O33C R 
BF 0000 R 


0195 R FD 
A OB 
s 
80 OE 0195 R 02 


80 Ht 0195 R 02 


0195 R OS 
83 16 OOFA 


C7 06 00E4 R 0020 
03 


65H,67H 
SEH. 60H» 630 H, ODSH 
YOK: DB ,ODOH, OD3H, OD6H, 
nagyon: D TSOP 74H,77H,7AH 


HAGYOK: DB ER 1100500000000 2000022000000 0 OO OL 


3 M7000 SPEA 000008 
be sound SPEAKER FOR INVALID OPERATION * 
3 
OOOO Tr ltlaahaialelaelaeialaiialaiiaablaala LLL eae x 
: WO ee 
SPEAKER te AL BEL 

HOV ree sSPEAKER ON 

Ht sRETURN TO CALLER 


SU CER, k8000490000000000000000000000080000000000000000000 0000 a, 
; Ptr} 


" 
i PROGRAM NAME: KKINIT 


iM egcRIPTIVE NAME: KANA-KAN INITIALIZATION 


in FUNCTION: THIS ROUTINE IS INITIALIZATION FOR 


KANA-~ 
T SETS TELEVISION MODE KANJI HENKaN, 


is LINKAGE: CALL 

x INPUT: NONE 

5 OUTPUT: KANA-KAN COMMON TABLES 
tal RETURN CODES: NONE 

EXTERNAL REFERENCES: 

bal ROUTINES: NONE 

bel TABLES: KANA~KAN COMMON TABLES 
™ 


TERS: BX, cx, DX,DI - WOR 
x jRee ALL OTHERS UNCHANGED 


™ CHANGE ACTIVITY: VERSION 00.00 
. 


RKEERKEKKKEKEKKEKKKKRKKKEKKKK 


3 
3 
> 
> 
3m 
A 
3M 
3 
* 
3m 
He 
3 
3m 
3 
7m 
> 
> 
ri] 
H 
Hy 


# y090000900000000000000006 KIC 7 00000000000000000000000000000000000OOOGE 
3u 
, 


3 ENTRY OF KKINIT x 
7x 
34 98000180000000000000000000000000090000000000000000000 00000000 000000000 0000 
KKINIT PROC NEAR 

PUSH AX 

PUSH AX 
PRPS SEs Shea Swe wees aSeseeses a a a a ad ii 
zu GET TV MODE u 
3 Memo wer renee ewww nw ww mwnww ewww www mmm nnn nnn nn ew een w wenn eee sennene eee Lt 

MOV AH, DOF 

INT 10H READ DISPLAY STATUS 

MOV DX, AX 

INT 11H sREAD EQUIPMENT 

PoP BX 

AND AL,D30 sIGNORE MEANINGLESS BIT 

CMP AL,D20 sSYSTEM Bene IS 5550 EM ? 

JE IRI002 3 _YES. GOT 

CMP DH, 80 3TV MODE 1s 80m11 2 

JE INI000 + YES. GOTO 

mov DL,TV4011 LOAD 4011 MODE 


JMP SHORT INIO06 


MoV DL,TV8011 
JMP SHORT INI006 


INIO00: 
sLOAD 80™11 MODE 


INI002: i 
KKFLAG, OFDH 3 
CHP «DL Do $COLOR GRAPHIC MODE ? 
JE INI 004 3 YES. GOTO 
CMP DL, DOE 3COLOR TEXT MODE ? 
eC wTOOS 3 NO. GOTO an 
INIO03: , LAG,CLRF25 SET 80"25 COLOR 


ov OL, TV8025 


D 80%25 MODE 
JP SHORT INI006 sas 


THIO06: 
KKFLAG,CLRF25  ;SET 80”25 COLOR FLAG 
MOV 
IN1006: DL, TVSO11 $LOAD 40"25 MODE 
Se SX:KINITX REQUIREMENT IS INITIAL 7 
cre «2H ; YES. GOTO 
JHE TWHODE, DL sCHANGE TV MODE ? 
iM THI008 ; YES. GOTO 
JP INIRTH 
cunts — OFFSET 
HOV oe penser DSTART ;LOAD KANA-KAN CONTROL yar TABLE 
XOR ri SCAPACITY OF KANA-KAN CON 
INT009: tat sLOAD 00H : 
Looe INT009 ;CLEAR KANA-KAN CONTROL inte ane 
AND -K 
HOV KKFLAG, 03H sCLEAR KKFLAG WITHOUT KANA 


nov —« LYMODE, DL 


;SET TV MODE 
CHP SPACE, BLANK 


3SET HANKAKU SPACE DATA 


DL, TV401} Cys 
oh Teor iTV MODE 15 40m 
t-Tv8011 STV'RODE TS 80x11 ? 
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e@occeo coooococcococococoeoco 
BCUWH WWW 


MUMuUUuM WUUANNErKrooooee 
MOON VSNOSCUMoOSmMowosees 


74 


73 

06 OOFB R 50 
06 OOFC R 18 
06 OOF3 R 1811 
06 OOE1 R OL 
06 OOE2 R 03 
06 0193 R FC 
06 OOES R 00 
06 0101 R OC 
06 0102 R 44 
06 0103 R OC 
06 010% R 1B 
79 

06 OOFB R 28 
06 0195 R 02 
3A 

06 OOFC R 18 
06 OOFS R 1811 
06 OOE1 R 01 
06 COE2 R 03 
06 0193 R FC 
06 OGE3 R 00 
06 0101 R OC 
06 0102 R 446 
06 0103 R OC 
06 0104 R 1B 
38 

06 OOFB R 50 
06 OOFC R OA 
06 GOOFS R OALI 
06 OOE1 R 80 
06 OOE2 R 88 
06 0193 R 77 
06 OOES R O01 
06 0101 R OC 
06 0102 R 44 
06 0103 R OC 
06 0106 R 1B 
06 0195 R 01 
14 

FF40 

22 

FF80 


JIE TV8O11L 3 Yes. GOTO 
fs wae er ene nnn nn --ee----- ------ es -----8 
3m “TV MODE = 80x25 xu 
3 em rr nn ne rer eee ne Pwr mmm ororeeerceo= ee em ee mene eww enn eo 
TV8O25L:. 

mov TVLINE, TVL80 sSET NUMBERS OF CARACTER IW LINE 

MOV KXOILP,OILP25  ;SET OIL POSITION 

MOV KKCUSR,KCSRP4025 s;SET KANJI CURSOR POSITION 

MOV ZENATTRI,ZATTRIS sSET ZENKAKU ATTRIBUTE 1 

MOV ZENATTR2,ZATITR25 sSET ZENKAKU ATTRIBUTE 2 

MoV ATTRMSK,ATMSK25 ;SET ATTRIBUTE MASK PATTERN 

MOV ROATCHT,ROT2S sSET ROTATE COUNTER 

MoV DOILP,DOILP11 sSET DATA POSITION OF OIL 

MOV DOILN,DOILN11 +SET NUMBERS OF OIL DATA 

MOV BANGOUP,BANP1L ;SET BANGOU DATA POSITION 

MOV BASTERP,BAST11 ;SET ASTERISK POSITION 

JMP SHORT INIRTN 





“MOV TVLINE, TVL40 
TEST KKFLAG, CLRF25 
IZ INIO10 

pMoonnnm 40*25 
MOV KKOILP,OILP25 
MoV KKCUSR,KCSRP4025 
MOV ZENATTRI,ZATIRIS 
MoV ZENATTIR2, ZATIR25 
MOV ATTRMSK,ATMSK25 
MOV ROATCHT,.ROT25 
MOV DOILP,DOILP11 
MoV DOILN, DOILNI1 
MoV BANGOUP, BANPL1 
MOV BASTERP, BASTI1 


SHORT INIRTN 


sSET NUMBERS OF CARACTER IN LINE 
een cave GRAPHIC MODE (40x25) ? 


sSET OIL POSITION 
sSET KANJI CURSOR POSITION 
sSET ZENKAKU ATTRIBUTE 1 
sSET ZENKAKU ATTRIBUTE 2 

sSET ATTRIBUTE MASK PATTERN 

sSET ROTATE COUNTER 

sSET DATA POSITION OF OIL 

SET NUMBERS OF OIL DATA 

>SET BANGOU DATA POSITION 

sSET ASTERISK POSITION 








“MOV TVLINE, TVL80 3SET NUMBERS OF CARACTER IN LINE 
INIOLO: 
MOV KKOILP,OILP11 ;SET OXL POSITION 
MOV KKCUSR,KCSRP11 ;SET KANJI CURSOR POSITION 
MOV ZENATTRI,ZATIRIN sSET ZENKAKU ATTRIBUTE 1 
MoV ZENATTR2,ZATTR2N sSET ZENKAKU ATTRIBUTE 2 
MOV ATTRMSK,ATMSKL1 ;SET ATTRIBUTE MASK PATTERN 
MOV ROATCNT,ROTIL  ;3SET ROTATE COUNTER 
MOV DOILP,DOILP11  ;SET DATA POSITION OF OIL 
MoV DOILN,DOILN11  ;SET NUMBERS OF OIL DATA 
mov BANGOUP,BANP11 ;SET BANGOU DATA POSITION 
MOV BASTERP,BASTI1 ;SET ASTERISK POSITION 
rr rw en en oo ee ewe eT 
INIRTN: 
por Ax 3POP SCAN/CHARACTER CODE 
KKINIT ENDP 
2000000000000 00D OOD 
3M 
3 PROGRAM NAME: KKNOML « 
; u 
He DESCRIPTIVE NAME: NORMAL MODE CONTROL CSECT " 
; " 
3 FUNCTION: me ROUTINE SETS AX TO QUEUING BUFFER IN NORMAL MODE. x 
He WHEN KANJI KEY IS PRESSED, IT INITIALIZES KANA-KAN MODE. 
3 a 
A LINKAGE: CALL “ 
3 u 
Os INPUT: KANA-KAN COMMON TABLES x 
3 x 
iM OUTPUT: QUEUING BUFFER x 
3 n 
im RETURN CODES: (AX) " 
3 a 
iM 0 - SUCCESSFUL " 
7M 1 - INVALID OPERATION “ 
; " 
i. EXTERNAL REFERENCES: x 
4 n 
A ROUTINES: KKZINT - ZENKOUKO INITIALIZATION ) 
- KKWOIL - CHANGE INDICATOR « 
n 
c TABLES: KANA-KAN COMMON TABLES x 
t “ 
3M REGISTERS: AX - RETURN CODE “ 
sm BX - WORK " 
” ALL OTHERS UNCHANGED * 
3 x 
3M CHANGE ACTIVITY: VERSION 00.00 « 
3x i] 
3M “ 
#48 GABNAAAAHHOHOABHOANBHH|EADAvABLOARAERAHAAAKAARERAANAHROH IANO 


#400000000000000000001 KURO FO000000000000000000000000H O08 


Li 
uM ENTRY OF KKNOML : 


5 B00 1 toa cD tito banat ane acLDE EEOC DCD OEE NAN 


KKNOML §=PROC 
TEST KKFLAG, KOFF sDURRING KANJI OFF ? 
INZ NOROOO 3 YES. GOTO 
CMP AX. KENTRX 
JE NORO10 
CMP AX, KCHNGX 
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06 0000 R 83 
05 

O39F R 

19 

26 0005 R 
0OOs R 
4B00 

OA 

4000 

os 

OSDE R 

os 

OC2E R 


0 
JE noRo1e sENTER KANJI MODE 2 
CRF ax YEARS 3 YES. GOTO 
JE AX, KYKANJ2 sENTER KANJI MODE ? 
cnr NOROLO ; YES. GOTO 
NOROOO: SOTHER KANJI REQUIR 
CMP pe eens > YES. GOTO GHENT 9 
cae Baa SeiNene 
JE HO! B 3KANJI KEY ? 
“Y AoRezo > YES. GOTO 
NOROOL: ;BUFFER QUEUING 
79H ; 
an SHORT NOROZO 
NOROLO: 
MOV BL,D80 
KKWOTL sINITIALIZE INDICATOR 
CALL OKKZINT 3KANJI MODE INITIALIZTION 
MP SHORT NORRTN 
HORNSEY co AX, AX 3SET NORMAL RETURN CODE 
OREM sRETURN TO CALLER 
KKNOML EN 


DR 5 9000200000900 0000000000000000000 0000000000000 BOOOIEK 
7M 
° 


3 PROGRAM NAME: KKBCTL x 
x 


tx DESCRIPTIVE NAME: BANGOU CONTROL CSECT : 
HE FUNCTION Ts FOULS BMANeHERS TROON PROCESS Tar rs wef 
ik LINKAGE: CALL ¥ 
}x INPUT: KANA-KAN COMMON TABLES x 
jx OUTPUT: NONE x 
i RETURN CODES: (AX) “ 
: 

S22 HNGREDS obeearzon : 
im EXTERNAL REFERENCES: x 
ix ROUTINES: KKBGRP - BANGOU GRAPHIC KEYS ; 
3M KKCSR_ - BANGOU CURSOR KEYS 7 
; KKBFNC - BANGOU FUNCTION KEYS P 
ik TABLES: KANAKAN COMMON TABLES : 
jm REGISTERS: AX - RETURN CODE 3 
zm ALL OTHERS UNCHANGED x 
ik CHANGE ACTIVITY: VERSION 00.00 
He x 


3700000000000 00000 OU OOOO 


70000000100000000000000008 KKB CTL J0R20000000000000000000000000 O00 O00000O0 000 


7m . 
7m ENTRY OF KKBCTL x 
3 
3000000000000 OOOO 
KKBCTL PROC 

TEST DSTAT, HANKAF*ZEN2F 4 DAKUF ;GRAPHIC KEY ? 

J2 BCTO10 3 NO. GOTO 

CALL KKBGRP ;GRAPHIC KEY PROCESS 

JMP SHORT BCTRTN 
BCTO10: 

mov AH,SCAN1 

MoV AL, CHARI ;LOAD SCAN CODE/CHARACTER 

CMP AX, KYCSRLX CURSOR LEFT KEY ? 

JE BCTC20 3; YES. GOTO 

cMP AX, KYCSRRX ;CURSOR RIGHT KEY ? 

JE BCT020 3 YES.” GOTO 

a le ;FUNCTION KEY PROCESS 
Bevoz0: | CTRIN 

KKCS F 

BCTRTN: 7 R ;CUSOR KEY PROCESS 
KKBCTL ENDP ;RETURN TO CALLER 


3 990910000000000000000000000000000090000000000 1000000002020 
im PROGRAM HAME: KKBGRP 
; 
3 DESCRIPTIVE HAME: BANGOU GRAPHIC KEYS 
3™ FUNCTION: THIS ROUTINE DISP L DATA AND STACKS 17 
i IN INPUT BUFFER. SAYS NUMERICA 
’ 
3™ LINKAGE: CALL 
3m 
a , z 

x INPUT: KANA-KAN COMMON TABLES 


KAN COMMON TABLES 


’ 

; 

3M OUTPUT: Kana 

He 

a RETURN Copes: (AX) 
; 


. H > SUCCESSFUL 


THVALID OPERATION 
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88 
cs 


0001 


: EXTERNAL REFERENCES: 


J ROUTINES: KKGRP - GRAPHIC KEYS PROCESS 
" 

J TABLES: KANA-KAN COMMON TABLES 

" 


" 
n 
" 
" 
Li 
" 
x 
M REGISTERS: AX - RETURN CODE a 
" ALL OTHERS UNCHANGED " 
iy 
" 
" 
b 
" 


" 
M CHANGE ACTIVITY: VERSION 00.00 


} anooOGIOOOIHORKR KK BGRP 000000000000000000000000000808000000000006 
* " 
is ENTRY OF KKBGRP x 
3 


x 
7000000000000 0000000000080 IDV NNNDE 
KKBGRP PROC 





MOV AL,SCANI LOAD SCAN CODE 

CMP AL,SCANO2 

JB BGRO50 

CMP AL, SCANOA sNUMERICAL DATA (1<->9) 2 

JA BGROLG 3 NO. GOTO . 

MAKE DISPLAY DATA c 0 eRe 9) : 
gWineowe oC SS cece eoe tse e cece cdiceecencus 2oe------~ ~~ +=. a 

ADD AL, NUMLOML 7MAKE 1<-->9 

JMP SHORT BGRO4O 
BGROLO: 

CMP AL,SCANOB aah aggi td DATA (0) ? 

JNE BGRO20 +; NO. GO 

ADD AL, NUMOM1 sMAKE 0 

JMP SHORT BGRO4O 
BGRO20: 

CMP AL,SCAN72 

JB BGRO3O 

CMP AL,SCAN7A sNUMERICAL DATA OF TEN-KEY (21<->9) ? 

JA BGROSO 3 NO. GOTO 

SUB AL. NUMLOM2 sMAKE 1<-->9 

JMP SHORT BGRO40 
BGROSO: 

CMP AL,SCAN70 Petes DATA OF TEN-KEY (@) 

JNE BGRO50 + NO. GOT 

SuB AL. NUMOM2 sMAKE 0 ‘ 
§ Wenn rn rn ne a en ne ee en nn ee ee ee enn ee. oem 
ae STACK AND DISPLAY 7 
boroso: 

MoV CHARL.AL SET NUMERICAL DATA 

mov ATTRI,HANATTR «SET HANKAKU ATTRIBUTE 

MOV DSTAT, HANKAF sSET HANKAKU STATUS 

CALL KKGRP sGRAPHIC KEY PROCESS 
JMP SHORT BGRRTN i 
§ Newwww new eases cusecescsuecs Mev eSewesceecesonceseseseee wewwencnnne! 
3 ABNORMAL RETURN ; 
BM em mete en en oe oe ee eee wert e eee eeeen= eae ww eweenn= 
BGROSO 

mov AX,D01 sSET ABNORMAL RETURN CODE 
BGRRTN: 


RET sRETURN TO CALLER 
KKBGRP ENDP 
3200000000000 80820 NHI VE 
* 
. PROGRAM NAME: KKBFNC 
, DESCRIPTIVE NAME: BANGOU FUNCTION KEY 
FUNCTION: THIS ROUTINE TREATS ALL FUNCTION KEYS. 


THESE KEYS ARE THE KANJI, ESCAPE, BACK, DELETE. INSERT. 
" ERASE EOF. THE OTHERS ARE INVALID. 


MW OLINKAGE: CALL 
a 


. INPUTt KANA-KAN COMMON TABLES 
M OUTPUT: KANA-KAN COMMON TABLE 


: KANJI QUEUING 

3 

He RETURN CODES: (AX) 

3 

7m © - SUCCESSFUL 

is 1 = INVALID OPERATION 


Mm EXTERNAL REFERENCES: 


i” ROUTINES: Hera > ZENKOUHO INITIALIZATION 
zm KKBINT - BANGOU INITIALIZATION 
on KKBACK - BACK KEY PROCESS 

3M KKDELT - DELETE KEY PROCESS 

ih KKINST - INSERT KEY PROCESS 

iM KKEEOF - ERASE EQF KEY PROCESS 
ie KKWOIL - WRITE OIL 

3 


if TABLES: KANA-KAN COMMON TABLES 


uM REGISTERS: AX - RETURN CODE 
; ALL OTHERS UNCHANGED 


sM > CHANGE ACTIVITY: VERSION 00.00 
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8A 26 OOOS R 
AO 0003 R 

3D FFOO 

74 43 

3D FF8O0 


3sE 
3D 6B20 
39 
3D 6B40 
74 34 
80 re 68 
3D tii 
3D 6D20 
74 3¢ 
3D 6040 
37 
83 3E OOEA R 90 
4F 
3D 0E08 
30 
3D 5300 
74 30 
3D 5200 
33 
3D 7700 
33 


BS 0001 
EB 44 


EB O47A R 

BS 01 

EB 1139 R 

C6 06 OOF9 R 00 
EB 33 


ES OS7A R 
EB 2B 


ES 0480 R 
€B 28 


ES O£F04 R 
EB 21 


E8 O47A R 
E& OESA R 
EB 19 


EB OG7A R 
€B 16 


E8 O47A R® 
E& ODAF R 
EB oc 


3D 6C20 
76 

3D 6C40 
74 02 
cD 79 





1890000000000 ITT RI 
3u 
320000008 LLi ttt tity 





BNC 000000000000000000000¢ 
FJ Q8O0NNONONOLODOT RE MenOONN ARO DOOLNL 
u 
in ENTRY OF KKBFNC 
HOUrTT TTT TTT Ut taaettlaeeiaiaeiaeiaaiaeiaaieiaaiaelaiaiaiabalL LLL. TT eae 
KKBFNC PROC = sSAVE REGISTER 
Pus $I 
PUSH 
PUSH = 
PUSH AH, SCANL LOAD INPUT DATA 
MOV AL,CHARL 
CMP «AX, KEXITX 
JE SFNOL 
ae Bhi 
one AX, KYKANIX sEXIT KANJT MODE 2 
; 
on RXOKYKANJ2 SEXIT KANJI MODE ? 
rd SEWOL0 YES. GOTO 
cH AM. SCANGB KANJE BANGOU KEY 2 
, 
tne As “RYESCPX SESCAPE KEY ? 
° 
ue Eeatiewe anger 
B ’ . 
ce Seyeeueuce, Ga 
B 
the BaeORs Doo sBANGOU EMPTY ? 
JE BFNOSO 3; YES. GOTO 
cup = AX, KYBACKX iBACK SPACE KEY t 
JE BFNO4O %. YE Got . 
cup 4s AX, KYDELTX SDELETE REY 
JE BFNOSO + YES. GOTO 
CHP 4s AX, KYINSTX ;INSERT KEY ? 
JE BFNO6O ; YES. GOTO 
CHP «AX, KYEEOFX ZERASE EOF KEY ? 
JE BFNO70 ; YES. GOTO 
BM mene en er nr rrr nn rr nnn nn neem wn nnn wn nnn ™ 
3M INVALID KEY PROCESS : 
Pee OV. AX, DOL 3SET ABNOMAL RETURN CODE 


JMP SHORT BFNRTN 
KANJI KEY PROCESS 









CALL —-RINST 
cAL KRWOTL ;CLEAR OIL 
HOV KKMODE,NORMALM CHANG BANGOU MODE INTO NORMAL MODE 
JMP SHORT BFNO9O 
3 Mee wnn- ~~~ ee eee 
. ESCAPE KEY PROCESS 
Brnoz8: CALL INST 
CALL = KKZINT SZENKOUHO INITIALIZATION 
Jnp_____SHORT BFNO90 “ 
sewwsede ce cces teens 








KEY PROCESS 2c eed petkbiiectees x 





BHEHKAN sBANGOU HENKAN 
SHORT BFNRTH ei guecetse x 
eww ee ee meee eeee=: FSS Om a “ 
CE KEY PROCESS: eee ee eae -« 
KKBACK 
SHORT BFNO9G “i seein oese -n 
Bowe ne nnn woe een = === encom x 
- DELETE KEY PROCESS, ccocceeeuseen 
brNoso: 
CALL so RINST 
CALL KKDELT 
” JMP SHORT BFNO90 cpwecoseseneesees x 








CALL oRINST 

CALL OKKEEOF 
pipiens JP ____SHORT BFHO9O ee reamed 
im BUFFER QUEUING = pene aaron ciclo x 
brNoso: be 8 eG SSS RSSeesers= 

MP AX, KYMUHEX sMUHENKAN KEY ? 

on BFNO90 ; YES. GOTO 

JE Bek YMURE2 sMUHENKAN KEY ? 

mT 75H + YES. GOTO 
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33 c 


c3 


t] 
OCF2 R 


0506 R 
cs 

ED 

FB 90 
15 
0506 R 


F9 01 
Fo 78 


ci 0: 
+e 


OSOE R 
C2 9E 


NORMAL RETURN u 





brNOg0: 
XOR AX, AX 3SET NOMAL RETURN CODE 
BFNRTH: 
POP BX sRESTORE REGISTER 
POP cx 
PoP 0x 
PoP Ss! 
RET sRETURN TO CALLER 
KKBFNC END 
Mn RUINS T 000000000000000000000000000000000000000000U0NR0NNVVNR UNITE 
" 
ik RESET INSERT MODE m 


7 S009 190000 13000 ,00050¢IOOURNOONANOCEBOGONNSOON BON aoOnOK ABO 
RINST PROC 


XOR AX, AX 
CALL KKINST 
RET 


E 
RINST —_ENDP 
sent BHENKAN ERS AE RIESE SAI R IN EASA RD NR BON 
3m 
hal BANGOU HENKAN x 
7m 


3 19000000000000000000000000000000000000000000000000000000000000000000008 
BHENKAN peor 













BX,KKWEOP 

CMP BL,BNUMMIN 4 

JB BHEC30 

cmP BL, BNUMMAX 39 <= id HUM. => FP? 

JA BHEO30 3 WO. GOT 

MOV SI,OFFSET KKINBUF LOAD THPUT BUFFER OFFSET + 
3 Wwene nnn n------------~-------- ++ ae eernnecewoncenon= ecesterSSea=- 
3m CHECK TEN : 
3 Newer en ne - ~~ --------------- ia bahelahtatatatateiatatatetetetetatatetetceeetetate wenanwnnnn 

CALL CHRLD 3;LOAD TEN CHARACTER 1 

MOV DLLAL 

CALL CHRLD sLOAD TEN CHARACTER 2 

MOV DH,10 

MUL DH 

aDD DL,AL sCHANGE DECIMAL TEN INTO BINARY 

CMP DL, TENMIN 

JB BHEOS0 

CMP DL, TENMAX 31 <= TEN => 94 2 
: JA BHEO30 3 NO. GoTo je 
SNesseeee soos o os ooo soon eneke cob teca soos eS eiptiecros 
zu CHECK ahd " 
pNo-n 22-2 ----------- ~~. we eenn--------------- --- eatin | 

CALL CHRLD sLOAD KU CHARACTER 1 

MOV CLLAL 

XOR CH.CH 

cmp Bx, DOO 3KU FINISHED ? 

JE BHEOOO 3; YES. GOTO 

CALL CKRLD 3LOAD" KU CHARACTER 2 

MUL DH 

ADD CX, AX 

CMP 8X,D06 3KU FINISHED 2? 

JE BREOOS + YES. GOTO 

CALL CHRLD sLOAD KU CHARACTER 3 

MOV DH,100 

MUL DH 

ADD CX, AX sCHANGE DECIMAL KU INTO BINARY 
BHEOOG: 

CMP CX, KUMIN 3 

JB BHEO30 

CMP CX, KUMAX 301 <= KU => 120 2 
is JA BHEOSO Be NO. GOTO 
‘s CHANGE | KU/TEN INTO INTERNAL CODE 

SRR S Sa Saw menu nonccanccusecoscue nee menos ws Se ee 
TEST Cl,d01 KU. EVEN t 
Jz BHEO10 





ct 
CALL CHGKU 








ADD DL. SFH 
CMP OL,7FH 
JB BHEO20 
Inc DL 
x uP SHORT BHEO20 
is EVEN KU 
BHEOLO: 
CALL CHGKU 
ADD DL,9EH 
, nn Settee tte eee ee 
i. BUFFER QUEUING el 
p Were ee nnn ele wm awweweeeneunn ween ee nnn nono eee eo 
BHEO20: 
MOV AH, KANJAH 
MoV AL, CL 3SET INTERNAL CODE 
INT 79H sBUFFER QUEUING 
MOV AL, DL sSEY INTERNAL CODE 
7 Int 79H sBUFFER QUEUING 
3 weno ee n= dee tet eee tee tt thd eee ewes ere vee==: 
ih) INITIALIZE BANGOU MODE 


J Newwwnwe- een eeee eee 





CALL RINST 
CALL KKBINT 
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EB @3 


BS 0001 
cs 


83 EB 03 


80 pe 1E 
80 Cl 88 


80 ci ce 


3 
C6 06 COFO R 08 


BF 0000 
C7 06 OOEE R 0015 


BS 00A0 
A3S QOFS R 


C7 06 OOES R OOOF 
E& 12FC R 


ES 1538 R 
BE 0570 R 
BY QO0F 90 
BG 00 
32 DB 


2E: 8A 06 
E8 1139 R 
46 


E2 F7 
AO 0106 R 


eee Siri 
pease Ey Aiet NANOOY EOE cmaemwauicemeweniacins. 7 tien 
s es an TE rt oe ae ee na 
1 pope Tastee " 
BHEO SO? nov AX, DOL sSET ABNORMAL RETURN CODE 
BHERTN! Oey sRETURN TO CALLER 
HENICAN. FD 900000000000000000X 200000090008 100000000000500 GGG ata 
; PEEL 
im LOAD KU/TEN CHARACTER AND CHANGE INTO DECIMAL x“ 
3 


| 
3)220019000000000000000 000 0 RO OOO RCO OOOO ODO IDOE, s 
1 0 ODE Oe 


CHRLD PROC ay, po 


3 
AL, CBXICSTI 
mos CALY SOH 


sLOAD CHARACTER 
sCHANGE INTO DECIMAL 


RET 
CHRLD eWEKU, 2oONHBAGHH|EHABHHGHHHOOHONANEBBOOOOOOOOUOOODABOHAApEsneK 
He CHANGE KU INTO INTERNAL CODECHIGH BYTE) x 
#900900000000000000000200000 0000000000000 0000000000 OD ODIO EE 
CHGKU PROC 

ROR CL,1 7 . 

cMP CL, 1EH 301 <= KU => 62 7 

JA CHGO010 3 NO. GOTO 

abd CL,80H sSET 81H <-> 9FH 

JMP SHORT CHGRTN 
anil ADD CL,OCOH 3SET OEOH <-> OFCH 
CHGRIN: 
' ENDP 
SE tha dddON000000000000000000000000000000000000000000000000O REE IIE 
: # 
ix PROGRAM NAME: KKBINT 


3™ DESCRIPTIVE NAME: BANGOU INITIALIZATION 

A FUNCTION: THIS ROUTINE DISPLAYS BANGOU OIL AND SETS BANGOU MODE. 
ix LINKAGE: CALL 

3 INPUT: KANA-KAN COMMON TABLES 

; OUTPUT: KANA-KAN COMMON TABLES 

ix RETURN CODES: (AX) 


3" 0 - SUCCESSFUL 
3m 1 - INVALID OPERATION 


u 
su EXTERNAL REFERENCES: 


3m ROUTINES: KKWOIL - WRITE OIL 
3K KKDISP - DISPLAY DATA 


n 

3m TABLES: KANA-KAN COMMON TABLES 
x 

3™ REGISTERS: AX - RETURN CODE 


3 ALL OTHERS UNCHANGED 
3m 

7M CHANGE ACTIVITY: VERSION 00.00 
3m 


7a 
3 9890000000000000000000000000000000000000000000000000000000000800000000008 
3100000000000000000000008 KKBINT 1090009000009 200 0020000200000 O0OOL 
3m 
A ENTRY OF KKBINT 


vs 
7m 
33101000000000000000008000000000000000000000000000800008000000000000 ROOK 
KKBINT iste 


SI sSAVE REGISTER 
PUSH = DI 
PUSH DX 
PUSH CX 
ae 
KKMODE, COD ANGOU MODE 
vais c »CODEM sSET B a 
DI,D00 AD COLUMN IN 
BINOOS “ BASE, BBASE11 Ser BANGOU BASE POSITION OF 80¥11740"11 
3 
HOV AX, SP 
MOV KKCHRSP Ax :SET DEFAULT DATA OF INPUT BUFFER 
MOV KKEOPMAX, BEOPMAX 3SET MAXIMUM EO 
saiblaars CALL _KINBFCLR CLEAR INPUT BUFFER |ww ts ood * 
3M MEO on stan : 
CERES 22sec... Se ere ee 
CALL CLOIL sCLEAR OIL 
ay SILOFFSET BMARK ;LOAD BANGOU DATA OFFSET ata 
v X, BNUMS ;LOAD NUMBERS OF BANG 4 
me AM HANATTR $LOAD HANKAKU ATTRIBUT 
BINOL0: BL 
MOV = ALLCS 
rg KKWorL 
1 
oop no ? 
hoy, BINOLO ;FINISH BANGOU DATA SETI 


AL, BASTERP 
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sLOAD ASTERISK POSITION 


NOVKVOUUNOAAAANS 
TNUMAYMENKOOCO TNS 
NOCCCCCCOK SNENAU 
nNecoocMocotdoocoC Oem 

° 

o 

°o 

i=] 


BO C4é DE 3D 3D 
3E 20 
AQ AQ AO AO 2A 


o 
o 
o 
i=} 

WWD BDBUODBDBDBBRBRBRARAD 





XOR AH, AH 
Mov DI,AX 
MoV AL, ASTER 
CALL KKWOIL sSET ASTERISK DATA 
p Mew wen nnn enon - - ee eee mewn wn nnn ee ne - ee, a 
3 SET CURSOR 
j Wow re nnn ene n nn nnn nnn ----- wee e nee nn ane ween nnnn. Salatetatatatatetete tet es ~-=8 
MOV AX, OFFFFH 
MOV OX, BASE sLOAD BAGOU BASE POSITION 
MoV OCRSRP, DX 
MOV OSTRTP,AX 
Mov DENDP,AX 
CALL KKDISP DISPLAY CURSOR 
PoP BX SRESTORE REGISTER 
PoP cx 
PoP DX 
PoP DI 
POP SI 
RET sRETURN TO CALLER 
BMARK DB OBAH, OBOH, 0C4H, @DEH, SDH, SDH, 30H, SEH,20H 
oB QACH, OAOH, OAQH, OAQH, OAOH, 2AH 
BNUMS EQU 15 sNUMBER OF BMARK 


KKBINT ENDP 
7000000000000 0000000000000 000200 UVR RUDINDE 


3m x 
3™ PROGRAM NAME: KKZCTL . 
3a 

3™ DESCRIPTIVE NAME: KEY CONTROL FOR KANA-KAM ZENKOUHO MODE x 
H ij 
3" FUNCTION: . 
3” 

ix THIS MODULE AMALYZE INPUT KEY FOR KANA-KAMJI CONVERSION, 
ix AND CALLS EACH FUNCTION ROUTINES. x 
3m 

3M LINKAGE: CALLED BY KKKFOM a 
rz i x 
im INPUT: ¥ 
3x KANA-KAN COMMON TABLES x 
He : 
3% OUTPUT: x 
in LINK EACH FUNCTION MODULE x 
: " 
im BP : FUNCTION KEY NUMBER x 
ri i] 
im x 
3M RETURN CODES: (AX) x 
rH ‘6 

zm © - SUCCESSFUL P 
im 1 = INVALID OPERATION : 
3h 

3M EXTERNAL REFERENCES: 
im * 
3 ROUTINES: " 
3m i 
im KKZGRP ... GRAPHIC KEY DISPLAY " 
im KKCSR ... CURSOR KEY PROCESS x 
im KKZFNC ... FUNCTION KEY CONTROL " 
$e g 
3§ TABLES: * 
3x " 
3m KANA-KAN COMMON TABLES P 
ra) a 
iM REGISTERS: AX - RETURN CODE ¥ 
3m BX,CX,DX,DI,S1,BP - WORK 1 
3M ALL OTHERS UNCHANGED i 
‘e t 
iM CHANGE ACTIVITY: VERSION 00.00 x 
3m x 
7m " 
0000000000000 ORION DOVOONNERODNNDE 


BRTREOHHEDE SEE EETEEESESEEESE EEE EEE EDEEEOSEDEEEEEEEDEEEDEDEDEEOEDOEEDED 
° 


a+ INPUT FUNCTION KEY CODE & PROC.ENTRY ADDRESS TABLE 
TOEHPEEEEE THEE EE EE EE EO EES EEEEEOEEEO REED EEEEEEEEEEEESEEEEOEDEEEEEEOEDED 
KKCCDTB: 

OW KYCSRLX.KZCCSR CURSOR LEFTE 

DW KYCSRRX,KZCCSR 5 CURSOR RIGHT 

DW KYKANJX,KZCFNC 3 KANJI 

Ow KYKANJ2,KZCFNC 3 KANJI 

OW KEXITX,KZCFNC » KANJI EXIT ( = KANJI ) 

DW KYCODEX,KZCFNC 3 KANJI BANGOU 

Dw KCHNGX, KZCFNC + KANJI MODE CHANGE ( = KANJI BANGOU ) 

OW KYHENKX,KZCFNC 5 HENKAN 

DW KYHENK2,KZCFNC 3 HENKAN (ZENKAKU) 

OW KYMUHEX,KZ2CFNC 3 MUHENKA 

Dw KYMUHE2,KZ2CFNC 3 MUHENKAN (ZENKAKU) 

Ow KYESCPX,KZCFNC 3 ESCAPE 

OW KYINSTX,KZCFNC 3 INSERT 

OW KYDELTX,KZ2CFNC 3 DELETE 

Ow KYBACKX,KZ2CFNC 5 BACKSPACE 

DW KYEEOFX,KZCFNC 5 ERASE EOF 

Ow KYCRRIX,KZ2CFNC 3 CARRIER RETURN 

OW KYCRRTY,KZCFNC 3 CARRIER RETURN 

OW KYENTRX,K2CFNC 5 ENTER 
KKCCOTBE DW OFFFFH,KZCGRP 
KKCCOTBL EQU KKCCDTBE-KKCCOTB 3 LENGTH OF KKCCDTS 
FLGNL EQU 00H ¢ NULL 
FLGVK EQu 01H a NOT QUEING KEY CODE: IF THERE AER NO YOMI CHAR. 
FLGRI EQU 2H + RESET INSERT MODE: WHEN THIS FUNC. KEY INPUT 
FLGNQ EQuU O4n } NOT FUNCTION, NOT QUEUING 
KPRCSTS: 

DB FLGNL 3 CURSOR LEFTE 

OB FLGNL a CURSOR RIGHT 
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063D 
0640 


0641 
064) 
0646 
06468 
0648 
064C 
064c 
0652 
0653 
0653 
0655 
0657 
0658 
0658 
065B 
065¢ 


28 ED 
AO COOS R 
8A 26 0005 R 


2E: SB 86 O58C R 


74 08 
83 C5 04 
83 FD 4¢ 
75 Fl 


2E: FF 96 OS8E R 
cs 


Dl ED 

Dl ED 

2E: 8A 9E OSDC R 

83 SE GOEA R 00 
S OF 

Fé C3 O1 

75 OA 


F6 C3 04 
75 02 
cp 79 


33 Co 


F6 C3 02 
75 05 


co 
E& OCF2 R 


83 ED 02 
Ee O72B R 


E8 OC2E R 
cs 


F6 06 0000 R 83 
74 04 

E8 0650 R 

cs 


83 3E OOEA R 00 
75 05 


cD 79 
33 CO 
cs 


BB 0001 
cs 


KKZCTL 


K2C010: 


KZC020: 


GNL+FLGVK 
EL ENL+FLGVK 
FLGNL+FLGVK 
FLGNL*FLGVK 
FLGNL+FLGVK 
FLGNL¢FLGNQ 
FLGNL¢FLGN@ 
FLGRL4FLGNQ@ 
FLGNL*FLGNQ 


LGNL 
EL GNL¢FLGRI 
LGHL 
PI GML +FLGRI 
LGHL 
PL ONL+FLGRI 
FLGNL#FLGRI 
FLGNL#+FLGVK+FLGRI 
NEAR 
BP,BP 
AL, KKINKEY 
AH, KKINKEY#2 H 
AX, WORD PTR KKCCDT 
KZC020 


BP,4 
BP, KKCCDTBL 
KZC010 ; 


3 
; 
3 
5 
3 
; 
; 
; 
; 
3 
3 
3 
; 
3 
. 
3 
; 


KANJI 
KANJI 


KANJI EXIT ¢ 
KANJI BANGOU 
KANJI MODE CHANGE ¢ = 


HENKAN 

HENKAN (ZENKAKU) 
MUHENKAN 
MUHENKAN (ZENKAKU) 
ESCAPE 

INSERT 

DELETE 

BACKSPACE 

ERASE EOF 
CARRIER RETURN 
CARRIER RETURN 
ENTER 


+ CLEAR FUNC.KEY TABLE p 
3 GET INPUT KEY (CHR. co 


REREAT SCAN 


WORD PTR KKCCDTB(BP)(2) 


; 


BRANCH TO EACH FUNCTION 


= KANJI y 


KANJI BANGOU ) 


OINTER 
GET INPUT KEY (SCAN CODED 


BCBPJ 


+ COMPARE INPUT KEY WITH FUNC .KEY 


3 RETURN THE POINTER 
s ian TERMINATE CHECK 


R 
#9019000000000000000000000000000000000000000000000000000000000000ONDOnOEEEUK 
el FUNCTON KEY CONTROL * 
320000000000000000000000000000088000000 00002 RR II IO IIE 


KZCFNC: 


JNZ 
KZCFNC_QUEING: 

TEST 

JNZ 


INT 
QUEURTN: 
xOR 


RET 
KZCFNC_CHK: 
TEST 


JNZ 
XOR 


CALL 
KZCFNC_GO: 

suB 

CALL 


RET 
LLL Litt Li lit i tri iter rere ri riers irerii rer yes | 


BP.1 


3 BP <-- BP 7 4 


BP,1 
BL,BYTE PTR KPRCSTS(BP) 


KKWEOP,0 
KZCFNC_CHK 
BL, FLGVK 
KZCFNC_CHK 


BL, FLGNQ 
QUEURTN 
79H 

AX, AX 


BL, FLGRI 
KZCFNC_GO 
AX, AX 
KKINST 


BP.2 
KKZFNC 


hal CURSOR KEY MOTION 
3000000000000 0000000000 ORT OE 


KZCCSR: 
CALL 
RET 


KKCSR 


3 RESET INSERT MODE 
3 BP 


<-- BP - 2 


3 QUEING INPUT FUNCTION KEY CODE 


3 LINK CURSOR PROC. ROUTINE 


3000000000000 000000 TOO OOOE 
thal GRAPHIC KEY x 
3000000000000 0000000000000 OOOO 


KZCGRP: 
JZ 
CALL 
RET 

KZCGRP_CHK : 
cmp 
JNE 

KZCGRP_QUEING: 
INT 
XOR 


RET 
KZCGRP_RET: 
mov 


RET 


KKZCTL  ENDP 


PLULLLE ELLE LL! 
3300000000000000000000000000008000 RIOR 


ie PROGRAM NAME: KKZGRP 

ix DESCRIPTIVE HAME: KEY CONTROL FOR KANA-KAN ZENKOUHO MODE 

ie FUNCTION: 

4a THIS MODULE ANALYZE INPUT KEY FOR KANA-KANJI CONVERSION, 
ix AND CALLS EACH FUNCTION ROUTINES. 


3m 
3 LINKAGEs 


DSTAT, HANKAF*ZEN2F+¢ DAKUF 


KZCGRP_CHK 
KKZGRP 


KKWEOP, 0 
KZCGRP_RET 


79H + QUEING CURSOR KEY CODE 


AX, AX 


AX,1 


CALLED BY KKZCTL 


3M 
3% INPUT: KAHA-KAN COMMON TABLES 


3K 

7 OUTPUT: KANA-KAN COMMON TABLES 
34 

3h RETURN CODES: (ax) 
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3 GRAPHIC KEY INPUT OPERATION 


eoooceco 
OCCT 

-o ro Nooo 
oo Ue 


aATTMMMMmM 
WNP oOoroeru 


al 0 - SUCCESSF 


UL u 
ix 1 - INVALID OPERATION x 
3M " 
7M EXTERNAL REFERENCES: 1 
H n 
; ROUTINES: a 
3m " 
iM KKGRP ... GRAPHIC KEY DISPLAY " 
3K KKCSR ... CURSOR KEY PROCESS x 
3K KKZFNC ... FUXCTION KEY CONTROL x 
ou " 
; TABLES: KANA-KAN COMMON TABLES P 
3m ry 
5M REGISTERS: AX - RETURN CODE " 
7m BX, CX, SI - WORK x 
im ALU OTHERS UNCHANGED x 
3M " 
i CHANGE ACTIVITY: VERSION 00.00 x 
3m " 
3" " 
DDD 000 OUD D UID GGG OE OIG O OOOO 000 00 0000 U 0 35 00006 D6 ae 


3 

a a 
3+ INTERNAL CONSTANT DATA 

Reverereeersvrrresyst voter yyy ve rrrrrerverererrrrTereverererr Terr Tre res 
MULOS DB 3 

uM Tete th hie eee 
3m GRAPHIC KEY INPUT OPERATION 

# 1008000000000000000000000009010015 903035 00)0AOUOOHNBOEHEnOLAUaELsOCO ACT 
KKZGRP PROC NEAR 


MOV AL, KKMODE 3 GET CURRENT MODE 
CMP AL, KANJIM 
JINZ KZ2G300 
CALL KKGRP 3 KAHJI MODE 
K2G300: 3 SELECT MODE 
Nov BL, KKINKEY#2 3 GET KEY SCAN CODE 
AL 
CALL CDCHCK2 3 NUMERIC KEY CODE ?(TEN KEY) 
TEST ALS AL 3 TEST RESULT 
JZ K2G320 
MoV AL,2 
CALL CDCHCK1 3 NUMERIC KEY CODE ?(SHIFT EISUU) 
TEST ALLAL 3 TEST RETRUN 
JZ KZG320 
KZG6310: 
mov AX, 1 + ERROR RETURN 
KZG320: 
AND BL, OFH 3 
JZ K2G310 + RETURN ZERO 
SUB BL, GET VALUE ... 1 --- 9 
cmp BL, BYTE PTR KKOHOCNT =; 
JBE K2G325 
JMP SHORT KZG310 3 RETURN IF ABOVE 
KZG325: 
MoV KKMODE,KANJIM = 5 CHANGE TO JANJI MODE 
MoV ALS BL 
CBW 3 BYTE TO WORD CONVERSION 
MOV BX, AX 
ADD 8X, KKOHODSP 3 CALCULATE CODE SELECT POINTER 
cMP BX. KKOHOSUU 3 IS POINTER LAST ? 
JAE KZG330 3 YES... 
DEC Bx 
SHL 8X,1 3 BXH2 
PUSH DS 
PUSH SI 
LoS SI,DWORD PTR KKDICADR 3 GET OFFSET & SEGMENT 
MOV AH, OFFH 
MOV AL, DSc CST IEBXI 3 GET FIRST BYTE KANJI CODE 
OR AL,100000008 
AND AL, LOLILILIB 
INT 79H 3 BUFFER QUEING 
mov AL, DS: ESEI(BXIC12 =; GET SECOND BYTE KANJI CODE 
INT 79H + BUFFER QUEING 
POP St 
RPS 
SHORT KZ2G350 
K2G330: 
MoV CX, KKHQLEN 3 GET QUEING COUNT 
Sua BX, BX 
K2G6340: 
MOV AL .KKHANQUECBX) 3 GET CHARACTER CODE TO AL REG 
MOV AH, KKHANQUEL1L CBX) 3 GET SCAN CODE TO AH REG 
INT 79H 3 BUFFER QUEIN 
THC ax + RENEW QUEING. SUB BUFFER POINTER 
INC ax 
DEC cx 
JNZ K26340 
K2G350: 
TEST KKYMSTS,KKYMSTM 1 TEST MOVE FORWARD FLAG 
JNZ K2G360 
CALL KKZINT + INITIALIZE OPERATOR INFORM. LINE 
JMP SHORT KZG370 
K263601 
MOV AL KKINBUF#L } GET FIRST CHARACTER ATTRIBUTE 
CALL KCALELM 3 CALCULATE ELEMENT LENGTH 
PUSH AX 
MoV AX, 0 
CALL DISHFT § MOVE FORWARD KEY INPUT BUFFER 
SUB KKWEOP, AX 
SuB KKFORPIT,AX 
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0735 
0735 
OTSA 
973¢ 
O73F 
0741 
0742 


07462 
0742 
0747 
074A 
076C 
0746D 


77 €8& 


C6 06 6192 R 01 
28 co 
¢c3 


OBCF 
OBFS 


BS 0001 


e 
o 
u 
“ 
RRR AWDHODV ARRAN AAR 


o 


1 €5 
2E: FF AG 0709 R 


C6 06 OOFS R O89 
BS 01 

E8 1139 R 

28 CO 


C6 06 OOF9 R 08 
£8 OS1E R 

28 CO 

cs 


JA 
CALL 
CALL 
MOV 
t 
KZO370 5 
RET 
KKzGRP ENDP 
300080006 


ix PROGRAM NAME: KKZFNC 
x DESCRIPTIVE NAME: KANA-KAN MAIN FUNCTION 


KZG360 
KOUTINIT 
KCSRDSP 
KHENFST, 0H 


AX, AX 


s INITIALIZE 0.7.1 
+ DISPLAY CURSOR TO Eop Posrry 
ON 


3m 
3m 
3™ FUNCTION: 
DULE HAS THE FOLLOWING FUNCTION 
4 THIS INA. = KANJI CONVERSION ; 
1 RRNA Reed te ean 
; * eit I ETE,B 
H - ERGISTERD YOMI & BANGOU  BACKSPACE, ERase- 
3m 
3M LINKAGE: 
an a 
zy THPUTS apy FUNCTION KEY HUMBER 
7m KANA-KAN COMMON TABLES 
3M 
" TPUT: 
7” KANA-KAN COMMON TABLES 
zu 
a RETURN CODES: (AX) 
zu 
3x 0 - SUCCESSFUL 
3x 1 - INVALID OPERATION 
3m 
3™ EXTERNAL REFERENCES: 
gn 
re ROUT TES KKNDR KKBINT 
ide KKZIN 
* KKDELT KKINST KKEEOE pebice 
ix COCHCK eDcHeK KOUTINIT sal 
3m HCK2 KKOH 
m KCALELM KCSRDSP KOHOEDT 
3m 
; 


3 TABLES: KANA-KAN COMMON TABLES 


3M REGISTERS: AX - RETURN CODE 


EOF » 


2100010000000000000000000000000000000000, 
}O00000OOT 
mm 


3m BX,CX,DX,DI,SI,BP - WORK 
sx ALL OTHERS UNCHANGED 
im CHANGE ACTIVITY: VERSION 00.00 
3 
rd 
’ 
(BBC DE PO D4 DE DO DO DG BO BE BC DE DE BC B05 DE DC D6 DO DE 96 D0 BE D0 DG DE DG DO DE DE DG DE DO DE DG D6 DG DE BE BG DO DC BG BG 36 BE BG DC 26 DG 96 DO DG D6 96 D8 26 
FRCBR: ou FNCKANS 3 KANJI Penn re eee 
3 KANJI 
Dw FNCKANJ + KANJI EXIT 
Du FNCCODE 3 KANJI BANGO 
Be atte} glug OBE cwence 
3 A 
Du FHCHENK 3 HENKAN 
ou ENCHUHE 3 MUHENKAN 
eres, =} cen 
Du FNCINST 3 INSERT 
Dw FNCDELT s DELETE 
DW FNCBACK BACKSPACE 
Du $ 
pM FNCEEOF 3 ERASE-EOF 
FNCCRRT + CARRIER RETURN 
He PAECRET 3 CARRIER RETURN 
KKZFNC PROC HEAR aan 
MOV AX, 1 
SHL BP,1 3 BPN 2 
— a WORD PTR FNCBRIBP) } BRANCH TO EACH FUNCTION 
7009000000000 0 000000R00T 
m . 
3M KANJI a 
n 
FRCKAHJ PROC 3 1900009000000 000000000000000004 
td KKMODE,NORMALM } CHANGE TO NORMAL MODE 
’ 
ste hws ; CLEAR OPERATOR INFORMATION LIME 
RET : 
FHCKANJ ENDP 
J 9990000000000 022022200000 OOE 
rz! 
7 KANJI - BANGOU 
" 
FNCCODE PROC 1000800000000 DDD ECO TOL 
MoV KKMODE,C 
CALL »CODEM = 5 CHANGE TO CODE MODE 
SUB al + LINK KKBINT MODULE 
RET . 
FNCCODE ENDP 
APPT TT TLL Laltalalanneneeneianalanalal 
ae HENKAN : 
pe AO OO DOO Ot ae be ot 
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" 
12200001000 800000004 


074D 
074D A? 
O7SF Bl 
0751 A8& 
0753 B2 
0755 A? 
0757 BS 
0759 AA 
O75B BS 
075D AB 
O75F BS 
0761 B6 
0763 Bé 
0765 B? 
0767 B? 
0769 B8& 
O76B BS 
076D Bg 
O76F Bg 
0771 BA 
0773 BA 
0775 BB 
0777 «BB 
0779 «BC 
O77B BC 
077D BD 
O77F BD 
0781 BE 
0783 BE 
0785S BF 
0787 «BF 
0789 CO 
078B co 
0780 C1 
O78F C1 
0791 AF 
0793 C2 
0795 C2 
0797 C3 
0799 CS 
O79B C4 
079D C4 
O79F CS 
O7Al Cé 
O7A3S C7 
O7A5 C8 
O7A7 C9 
O7A9 CA 
O7AB CA 
O7AD CA 
O7VAF CB 
O7B1 CB 
O7B3 «CB 
07B5S CC 
o7B7 «CC 
0789 CC 
078B CD 
07BD cD 
07BF CD 
o7C1 CE 
O7C3. CE 
07C5) «CE 
o7C7 «CF 
07C9 DO 
o7CB D1 
o7CD D2 
O7CF ODS 
O7Di ac 
0703 D4 
0705 aD 
0707 OS 
0709 AE 
07DB D6 
0700 »D? 
QO70F D8 
O7E1 D9 
OVES DA 
O7ES DB 
O7E7 FF 
O7E9 DC 
O7EB FF 
O7ED FF 
O7EF Ab 
O7F2 DD 
O7FS 

= 0053 
Q7F3 DE 
O7FS ODF 
O7F7 BO 
O7F9 

= 0056 
O7F9 30 
Q7FB 31 
Q7FD 32 
O?FF 33 
O801 34 
0803 35 


FEHHEEHEESEFOEEESEFESESFEF SFE OE EEEESEEEEEEESEEEEESEHEDESESEESEEEOOOOOS 
3+ PRIVATE CONSTANT < FNCHENK > + 
FEFHEFEFEFESE EEE EFHFEESEFEE SEES SEEFOESEOEDEEESESEEEEEEEDESSEDEEOEESOEOOD 


} 090800890000000000000000000000008NONRHEUANOGOOOONABOAOERAOEOUOC AOE sO 
7M ZENKAKU CODE CONVERSION TABLE LJ 
32000 0000000000000 0000000000 I III TIE 
KZENCONV: 


DB 0A7H, 00H 3 A ( SHOUJI > 
DB OB1H, 00H 3A 
DB OA8H, 00H + I ( SHoUsT > 
DB OB2H,00H 31 
DB OA9H, OCH 3 UC SHOUJI ) 
DB OB3H,00H + U 
DB OAAH, 00H 3 E ( SHOUJT ) 
DB 0B4H,00H 3 E 
DB OABH, 00H 3 0 € SHOUJI > 
DB OBSH, 00H 30 
DB 0B6H, 00H 3 KA 
DB OBGH, ODEH 3 GA ( KA * DAKUTEN ) 
DB 0B7H,00H 3 KI 
DB 0B7H, ODEH 3 GI ( KI # DAKUTEN ) 
DB OB8H, 00H 3 KU 
DB 0B8H, ODEH + GU ( KU ¢ DAKUTEM ) 
DB OB9H, 00H 3 KE 
DB OB9H, ODEH + GE ( KE ¢ DAKUTEN ) 
DB OBAH, 00H + KO 
DB OBAH, ODEH 3 GO ( KO + DAKUTEN ) 
DB OBBH, 00H 3 SA 
DB OBBH, ODEH 3 ZA (© SA % DAKUTEN ) 
DB OBCH, 00H + SI 
DB OBCH, ODEH 3 JI ( SI + DAKUTEN ) 
DB OBDH, 00H + SU 
DB —s«OBDH, ODEH 3 2U ( SU * DAKUTEN ) 
DB OBEH, 00H 3 SE 
DB OBEH, ODEH + ZE ( SE + DAKUTEN ) 
DB OBFH, 00H 3 $0 
DB OBFH, ODEH 3 20 ( SO + DAKUTEN ) 
DB OCOH, OOH 3 TA 
DB OCOH, ODEH 3 DA ¢ TA @ DAKUTEN ) 
DB OC1H,00H 3 TI 
DB 0C1H, ODEH 3 ZI € TI + DAKUTEN ) 
DB OAFH, 00H 3 TU ( HATUON ) 
DB 0C2H, 00H 3 TU 
DB 0C2H, ODEH 3 ZU € TU + DAKUTER ) 
DB OC3H, 00H 3 TE 
DB OC3H, ODEH 3 DE ( TE ¢ DAKUTEN ) 
DB OC4H, 00H 3 0 
DB OC4H, ODEN 3 DO ( TO + DAKUTEN ) 
DB OCSH, 00H 3 NA 
DB OC6H, 00H 3 MI 
DB OC7H, OH 3 NU 
DB OC8H, 00H 3 HE 
DB OC9H,O0H 3 NO 
DB OCAH, 00H 3 HA 
DB OCAH, ODEH 3 VA (HA ¢ DAKUTEN ) 
DB OCAH, ODFH 3 PA ( HA ¢ HANDAKUTEN ) 
DB OCBH, 00H 3 HI 
OB OCBH, ODEK 3 VI CHI # DAKUTEN ) 
DB OCBH, ODFH 3 PI CHI # HANDAKUTEN ) 
DB OCCH, 00H + HU 
DB OCCH, ODEH 3 VU ( HU # DAKUTEN ) 
DB OCCH, ODFH 3 PU (HU *# HANDAKUTEN ) 
DB OCDH, OOH 3 HE 
DB OCDH, ODEH 3 VE ( HE * DAKUTEN ) 
DB OCDH, ODFH 3 PE ( HE ¢ HANDAKUTEN ) 
DB OCEH, 00H + HO 
DB OCEH, ODEN 3 VO ( HO + DAKUTEN ) 
DB OCEH, ODFH 3 PO ( HO + HANDAKUTEN ) 
DB OCFH, 00H 3 MA 
DB ODOH, OOH 3 MI 
DB 0D1H, 00H 3 MU 
DB OD2H, 00H 3 ME 
DB 003H,00H 3 NO 
DB OACH, OOH 3 YA € SHOJI ) 
DB OD4H, 00H 3 YA 
DB OADH, OOH 3 YU € SHOUT ) 
DB ODSH, OOH 3 YU 
DB OAEH, 00H 3 YO € SHOJI ) 
DB OD6H,00K + YO 
DB OD7H. 00H aA 
DB OD3H, 00H Ul 
DB OD9H, OOH ao) 
DB ODAH, 00H + LE 
DB ODBH, OOH +00 
D8 OFFH, 00H 3 WA ( SHOJI ) 
DB ODCH, 00H 1 WA 
DB OFFH, OOH 31 
DB OFFK, OOH 3 
D8 OA6H, 00H 0 
D8 ODDH, 00H > UN 
DAKTENDATA: 
KZENDAKU EQU = (DAK TENDATA-KZENCONV) 72 
DS ODEH, OOH 3 DAKUTEN 
DB ODFH, 00H 3 HANDAKUTEN 
DB OBOH, 00H 3 CHOUON 
RUMEDATA: 
KZENNUMR EQU = CNUMEDATA-KZENCONV) 72 
DB 30H, 00H 30 
08 31H, 00H 1 
OB 32H, 00H +2 
DB 33H, 00H +3 
DB 34H, 00H 34 
DB 35H, 00H +5 
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C6 06 COFO R O4 
Fé 06 0192 R O1 
75 03 


E9 OAF& R 


BS 0000 
8B FO 

8B FS 

8B ES 

8B DB 

AS OLBE R 


C6 06 0190 R FF 


BA 84 DOOA R 
84 06 OOEL R 
75 03 

E9 O9D9 R 


BA AS OOOO R 


220 OOGO000E 
3m 


320000000000000006 


KHANCONV: 


DATAO7 DB 
HUMYOMFG 
NUMSKIP 
FNCHENK 
MOV 
TEST 
JNZ 


JMP 
HENOOIO: 
nov 


mov 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


mov 
HEN0020: 
MO 






MOV 


,0000000C 


6H, 00H 
39H, 00H 


39H,00H 


~ ZENKAKU cope CONV 


AH KKINBUF(S1) 
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3 
3 
> 


cane 


; 
MmrrrTTTETLLUULELULUiLert ttt Tit 





FFER) INDEX 
BUFFER) POINTER 
— BUFFER) POINTER 
CONVERSION TABLE) 
KAKU CONV. TABLE ) 


ATTRIBUTE 


ELL LETT Ti 
VERSION TABLE Monde 
HANKAKU Si HOH IO RIOOOOONORODOO OOOO, “ 
+30 0 ¢ NUMERIC 
Harley 331 1 C NUMERTC 3 
OI, OOH +32 2 (NUMERIC 3 
tFaH, OOH +33 3  ¢ NUMERIC 5 
OFSH.OOH +34 4 © NUMERIC } 
OFAH, OOH +35 5 ¢ NUMERIC } 
OFBH, OOH 336 6 ¢ NUMERIC 3 
OFCH, 00H +37 7 C( NUMERTE 3 
OFDH, 00H +38 8 ¢ NUMERIC 5 
OFEH, 00H +39 9 ¢ NUMERIC 5 
O9FH, 00H +A?) A © SHOUGN’) 
DA1H, OOH 348 I ¢€ SHOUON > 
OA3H, OOH 3 A9 U- C¢ SHOUON 5 
ASH, OOH 3 AA EC SHOUON 9 
OA7H, 00H 3 ABO ¢ SHOUON ) 
ELH, 00H 3 AC YA (© YOUON > 
DE3H, 00H 3 AD YU © YOUON > 
OE4H, 00H 3 AE YO ¢ YOUON 5 
OC1H, OOH 3 AF TU C HATUON ) 
OF4H, 00H 3; BO - ¢ CHOUON > 
AON, OOH BLA 
AZH, OOH 3 B2 
AGH, OOH ;BS OU 
DAGH, OOH 3 3B4 OE 
OA8H, 00H ; BS oO 
DASH.KKYMSTD = 3 BOCK 
OABH,KKYMSTD 3 B?_—sOKI 
QADH-KKYMSTD = 5: BB_sWKU 
OAFH,KKYMSTD 3 BO. KE 
OB1H,KKYMSTD ©; BA KO 
OBSH.KKYMSTD 3 BB SA 
OBSH,KKYMSTD 3 BC SI 
OB7H.KKYMSTD 3 BD SU 
OBSH.KKYMSTD 3 BE SE 
OBBH.KKYMSTD 3 BF SO 
OBDH-KKYMSTD 3 CO TA 
OBFH.KKYMSTD 3 CL TY 
OC2H.KKYMSTD 3; 62 TU 
OCSH,KKYMSTD 363 TE 
OC6H.KKYMSTD ; C4 TO 
OC6H, 00H ; 5 NA 
0C8H,00H 3 C6 NI 
OCAH, 00H ; C7 NU 
OCBH, 00H ; 638 NE 
OCCH, 00H ; 69 NO 
OCDH,KKYMSTD 3 CA HA 
ODOH,KKYMSTD 3; CB. HI 
ODSH,KKYMSTD 3 CC HU 
ODSH,KKYMSTD 3; CD HE 
OD9H,KKYMSTD 3 CE HO 
ODCH, 00H ; CF OMA 
ODDH, 00H ; DO MI 
ODEH, 0OH >; D1 oMU 
ODFH, 00H ; D2 ME 
OE0H, 00H ; DS MO 
OEZH, 00H 3; DS YA 
OE3H, 00H + D5 YU 
OESH, 00H + D6 YO 
OE7H, 00H 3D? LA 
OE8H,00H ; DB OI 
OE9H, 00H 3; D9 «LU 
EAH, 00H ; DA LE 
OEBH, 00H + DB LO 
ODCH, OOH s DC WA 
tE2H. On + DE DAKUTEN 
OF3H,00H + DF HANDAKUTEN 
EQU 000000018 
pete bon000108 
tee ER ODE 
KKMODE,SELECTM ; CHANGE MODE TO SELECT M 
KHENFST, 01H 
HENOOL0 
HEN3900 
AX,0 KKINBUF (KEY INPU 
S1,AX ; KKHANQUE (QUEING 
DI, AX 3 KKYOMI (YOMI COD 
BP LAX + KZENCONV (ZENKAKU 
BX, AX ; OR KHANCONV ( HAN 
KKHQLEN, AX 
KKYMSTS, AL 
KKYOMIL, AL 
DX, AX 
KKCHRMD, OFFH 
AL KKINBUF(SI)(2) ; GET INPUT KEY 
AL, ZENATIRI 
HEN1000 
HEN2000 


O8&CF 
08D3 
08D6 
0808 
08DD 
O8DF 
O8E2 
O8ES 
O8E7 
O8E9 
O8EB 
O8EE 
O8FO 
O8F2 
O8F5 
O8F7 
O8F9 
O8F9 
O8FF 
0901 
0905 
0908 
090D 
0910 
0910 
0912 
0916 
0919 
0918 
0910 
0910 
0921 
0924 
0926 
0926 
0929 
0929 
O92E 
0930 
0935 
0935 
O93SA 
093D 
093D 
O93F 
09461 
0944 
0946 
0948 
094A 
0940 
O94F 
o951 
0953 
0956 
0958 
O95A 
095C 
095C 
O9SE 
0962 
0965 


O96A 
096C 
096C 
VIOE 
0972 
0974 
0974 
0976 
O97A 
097C 
0970 
097D 
0981 
0981 
0986 
0988 
098C 
O98E 
O98E 
0992 
0994 
0997 
099Cc 
O99E 
O9AS 
O9AS 
O9A8 
O9AB 
O9AC 
O9AE 
O9B0 
0981 
0982 
09B4 
0987 
0989 
09BB 
O9BB 
0980 
093Cco 
09co 


BA 
3D 
74 
F6 
75 
3D 
74 
3D 
74% 
BS 
3D 
74 
BS 
3D 
74 
EB 


3E 
8A 
BA 
E8& 
80 
E9 


8B 
8A 
80 
74% 
B6 


81 
83 
EB 


83 


75 
BO 


86 
E& 


FE 


84 000C R mov 
8140 cmp 
SE JZ 
06 0191 R 08 TEST 
56 JKZ 
814A cMP 
2c JZ 
8148 CMP 
27 JZ 
2D Mov 
817C cme 
09 JZ 
BO MOV 
815B cmp 
02 JZ 
44 JMP 
HEN1010: 

: C6 86 0119 R F4 MOV 
cs MoV 
AG OOOB R mov 
OB2A R CALL 
26 0191 R FB AND 
09CO R JMP 

HEN1020: 
D8 MOV 
36 C190 R mov 
FE FF CMP 
02 JE 
o2 MOV 
HEN1021: 
EB 814A SuB 
cs 53 ADD 
68 JMP 
HEN1090: 
C6 06 ADD 
HEN1100: 
SE 0118 R 00 cMP 
0s INZ 
OE 0191 R 80 OR 
HEN1110: 

OE 0191 R OS 

O9Ce R JMP 
HEN1200: 

Ds MoV 

01 MOV 
1707 ® CALL 
co TEST 
14 JZ 
02 MOV 
1707 ® CALL 
co TEST 
1B JZ 
os MOV 
1707 ® CALL 
co TEST 
‘A JZ 
cD JMP 

HEN1210: 
01 MoV 
EB 824F sus 

C3 56 ADD 
CE 0191 R OA oR 
15 JMP 

HEN1220: 

02 mov 
E38 829F SUB 
oD JMP 

HENL230; 
oS MOV 
FB 837F cmp 
01 JB 
DEC 
HENL231: 
EB 8340 SUB 
HEN1240: 
SE 0190 R FF CMP 
06 JZ 
36 0190 R CMP 
a? INZ 
HEN1250: 
36 0190 R MOV 
cs MOV 
OO9F ADD 
> 88 86 O1lLO R MOV 
€3 SHL 
+ 8B 87 074D R MOV 
PUSH 
AY 000B R MOV 
OB2A R CALL 
PoP 
e&4 TEST 
10 IZ 
INC 
INC 
1A MoV 
FC DF CMP 
02 JNZ 
1B MOV 
HEN1L260: 
Eo XCHG 
OB2A R CALL 
HEN1270: 
06 O1lIB R INC 


AL KKINBUF(SIIC3) 
AX,8140H 
HEN1090 
KKYMSTS, KKYMSTN 
HEN1110 
AX,814AH 
HEN1020 
AX,814BH 
HEN1020 

BL,2DH 

AX,817CH 
HEN1010 

BL,OBOH 
AX,815BH 
HEN1010 

SHORT HEN1200 


KKYOMICBP),0F4H 
AL, BL 

AH, KKINBUF(SIJ(2) 
QUEBUF 


KKYMSTS, OFFH-KKYMSTD 


HEN1270 


BX, AX 

DH, KKCHRMD 
DH, OFFH 
HEN1021 

DH, MDZENHIR 


BX,314AH 
BX,KZENDAKU 
SHORT HEN1250 


SI,6 
KKYOMIL,0 


HEN1110 
KKYMSTS, KKYMSTER 


we we we we we 


: 
3 


KKYMSTS,,KKYMSTE*KKYMSTM 


HEW1280 


BX, AX 3 
AL,1 
COCHCK2 
ALLAL 
HEN1210 5 
AL,2 

COCHCK2 3 
ALLJAL 

HEN1L220 3 
AL,S 

CDCHCK2 3 
AL. AL 

HEN1230 

SHORT HEN1100 

3 ee 
DH, MDZENNUM 
BX,824FH 
BX, KZENNUMR 


3 
BX <--- 
ZENKAKU 
JUMP IF 
ZENKAKU 
JUMP IF 
ZENKAKU 
JUMP IF 


GET ZENKAKU CODE 
SPACE * ™ KEY 


DAKUTEN KEY 
HANDAKUTEN KEY 


MINUS "-" KEY 


CHOUON KEY 

THE OTHER KEY 

SET CHOUON YOMI CODE 

GET CHARACTER CODE & SCAN CODE 


SET CODES 
DAKUTEH,HANDAKUTEN BIT OFF 


3 GET PEVIOUS CHARACTER MODE 
3 SET ZENKAKU HIRAGANA MODE 


3 CALCULATE OFFSET OF CONVERSION TABLE 


TURN ON ERROR BIT 


SET END & MOVE FORWORD FLAGS 

2 BYTE KANJI CODE 

NUMERIC CODE ? 

YES 

HIRAGANA CODE ? 

YES 

KATAKANA CODE 

YES is 


i THE OTHER CODE ( CAN'T CONV. YOMI ) 


ZENKAKU NUMERIC 


KKYMSTS. KKYMSTM#KKYMSTN 
3 SEY END FLAG & MOVE FORWORD FLAG 


SHORT HEN1240 
TL ir ty 
DH, MOZENHIR 
BX,829FH 
SHORT HEN1240 
itiit 
DH, MDZENKAT 
BX,837FH 
HENL231 

8x 


BX.8340H 


KKCHRMD, OFFH 
HEN1250 
KKCHRMD, DH 
HENLI10 


KKCHRMD, DH 
AX, BX 

AX, 9FH 
KKYOMICBP),AL 
Bx.1 


ZENKAKU HIRAGANA 


AT MORD PTR KZENCONV(BX) 


AH, KKINBUF(SIJ(2) 


QUEBUF 
Ax 

AH, AH 
HEN12786 


AL,18H 


AH, AL 
QUEBUF 


KKYOMIL 
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s CALCULATE OFFSET OF CONVERSION TABLE 


3 CALCULATE OFFSET OF CONVERSION TABLE 
ZENKAKU KATAKANA 000008 


3 
3 COMPARE CURRENT MODE WITH PREVIOUS 


b SET YOMI CONVERSION CODE 


s BX M2 
3 GET ZEN. KATAKANA & DAKUTEN 


3 GET KEY SCAN CODE 
+ SET ONE 


3 SET DAKUTEH SCAN CODE 
3 HANDAKUTEN CODE ? 


+ SET DAKUTEN,NANDAKUTEN CODE 
3 INCREMENT YOMI LENGTH 


Appendix A. 





™ 
STS, KKYMS 
HENIZ80" cy hENIZ90" si + SET MOVE FORWORD PoINTeR 
ce RPIT, 
sce F606 e191 x 02 Hoy KKFO + RENEW KKINBUF POINTER 
09C9 74 04 0: 1,6 3 RENEW KKHANQUE POINTER 
09CB 89 36 OOF? R HENIZ90: + + RENEW KKYOMI POINTER 
O9cr P 
O9CF BS C6 06 B ij Eo ated 
0902 83 C7? 02 HENS a ir alae Ea ION Fe A NN a as 
0905 45 HANKAKU CODE CONVERSION woe--- ee L ITT 
09D6 ES OAAD R ; HANKARY eee ara 
peneenoo77__ 
ey ,BX HANKAKU CHARACTER cope 
ee Heat sg ax EXINBUFLSII , ae mom KEY 9 
e909 2B DB Ao BL, 20H 
C9DB 8A 9C 0009 R " HERONS eerie 
C9OF 80 FB 20 Est | RKYNST Se ‘s 
O9E2 74 34 i Ke ae HEN211 3 MINUS KEY ? 
9E4 F6 06 BL, 
Ove9 75 Se eg HEN2010 3 CHOUON KEY 2 
O9EB 80 FB 2D J > BL.OBOH 
O9EE 74:17 HEN2010 
oro 80 FB Bo any ee > DAKUTEN KEY ? 
OoFS 741 mF BL, 
87 01 ¢' HEN2120 
O9F? 80 FB DE aE BH, 2 3 HAN-DAKUTEN KEY ? 
et iS 3 cet sory 
8 JE 
O9FE 80 FB DF HOV BH, 0 
HEN2200 
ahek an ae JMP ee + SET CHARACTER CODE ¢ SCAN CODE 
ee rte ve REE ora DaRUTER Sande Tee ery ee 
OA rH- YMST ; ° 
22.8 mov , OFFH-KK 
tAOA SE: Ce Be 0119 R FS ae RESTS 
OAl0 80 26 0191 R F _sMP 
Gals EB 7C 90 MEMEO DSSS 
OAL 
OA18 §=83 C6 OS HEN2100: KKYOMIL,0 17 
rT 00 Suz -HEN2110 STER + TURN ON ERROR B 
SAls 80 3E 0118 R z KKYMSTS, KKYM ; eo 
75 RD 
ree age 0191 R 80 REN2110: KKYMSTS, KKYMSTE+KKYMSTM 3 SET END FLAG & MOVE FORWO 
OA27 HEN2280 
0A27 80 OE 0191 R OS el _ 
OA2C EB 69 90 HEN21 “TEST pl - 
OA2F R 04 Jz HEN PREVIOUS YOMI co 
F F6 06 0191 P 3 ADJUST SCAN CODE 
pase 76 OB AOD KKYOMI(BP), BH 3 SET CHARACTER CODE & 
tA3y Se: 00 BE O19 R ye 
OA3C E83 OB22 R _JMP 
OASF EB 56 MENZ150: BH. BH 
OA4) BX 
Ast a 43 0090 aa SHORT HEN2260 
OAS . ? 
ed MEN Oe oy ALS , + HANKAKU NUMERIC CODE ? 
OAG9 CALL CDCHCK 
0AS9) BO OS AL,AL MP IF YES 
ASB ES 16CF R yes heNas20 Siti ANA CODE ? 
oase 34 0B Hoy Del eey + HANKAKU KATAK 
oA CALL CD a) 
OAS2 BO 06 7AL . Yes "T CONV. YOM 
OAS¢ EB 16CF R yO ven 4 Oe Face CODE ¢ CAN'T 
tags Se +4 UMP SHORT HENZ1O0 NUMERIC MxM F CONVERSION TABLE 
453 EB BE GRRE ce 3 CALCULATE OFFSET 0 cone exe 
OA BX, 3 FO 
mee Se ak on KRYMSTS, KKYMSTMSKKYNSTN FLAG & MOVE 
OA OA 
A62 80 OE 0191 R T HEN2240 PEEL 
: tal aunane HANKAKU KATAKANA 
easy EB 06 aioe DH/MDHANKAT 
x 
0A69 BE O05 sane “ae 8x, syvous 
oace 81 EB HEN2 oy KKCHRMD, OFFH RRENT MODE WITH PR 
bare 38 36 0190 R SHE HEN2110 
OA7 
CATA 75 AB HEH2250: DH 
"i KKCHRMD, 
OATC xu 2 
88 36 0190 R HEN2260: +B ON CODE 
eAze POV AX‘ WORD PTR RHANCONVESE? en vont CONN ANDARUT EN ah cODE 
Gass SEs a8) Seen x Roy Rerone espe i SET DAKUTEN RP CODE & SCAN 
el a 88 86 0119 R OR KKYMSTS, AH 3 SET CHA 
CASC 08 26 0191 R CALL = SETQUEBE 1 YOMI LENGTH 
OA90 E8 OB22 R = KKYOMIL s INCREMEN 
QA9S 
6 0118 R 3 
yt ania ieee KKYMSTS, KKYMSTH POINTER 
0A97) F6 06 0191 R 02 92 HEN2290 SET MOV FORWORD 
aaa a6 S seey ‘ eset KKFORPIT, $1 s KKINDUF_POINTER, 
Gas HEN2290: ; RENEW POIN 
AA2 ADD SI,3 ; KHANQUE R 
tans 83 Ce O03 ADD DI,2 ; eer Yoni POINTE 
QAAS 83 C7 02 INC BP i VERTED ? 
OAAB 45 HENS000: ACTER CON 
OAAS HOV AX, KKWEOP L INPUT CHAR 
OAAD AL euex R aus AX. SI ‘ : ee ‘ 
AC 28 Jt EN301 ae c 
DARE JE OA is’ KKYMSTS,KKYMSTE 5 ENDFLAG CHE 
OABO FG 06 0191 R OL JHZ HEN3010 
CABS 75 03 
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OAB7 


E9 O8BE R 


Fé 06 0191 R 80 
75 58 
BE 0118 R 
1E 
ES OE89 R 
1F 
06 
8F 06 01462 Rk 
89 SE 0140 R 
AS 08 
ae 43 

41 
cs OE OL3ER 

1 

ze: Fe 36 0893 R 
74 046 
32 E4¢ 
EB 02 
FE c8& 
86 C4 
AS OOFD R 
33 CO 
A2 0192 R 
EB 1B 


AO OOFD R 
3A 06 OOFE 
74 08 


FE 06 OOFD 
33 CO 

EB OA 

B83 SE 0144 R 01 
75 06 

BS 0001 

E8 1396 ® 

28 Co 

cs 


C6 06 OOFO R 02 
BS 0001 
cs 


SA 84 0009 
BA AS 0OOB 


89 85 O14A 
FF 06 O18E 
cs 


BO SE COFO R 02 
74:18 


Al 0148 R 

. 06 O1SE 
0B 

bo ay QOFD R 06 

74 

FE be OOFD 


33 co 
E8 1396 R 
EB ic 


28 €D 

38 2E OOEAR 

70 11 

SE: BA 86 0009 R 
SE: 8A AG 0OOBR 
co 79 

83 C5 03 

EB E9 

ES OCA2 R 


2B CO 
cs 


JMP HEHOO20 U WHEN HOT END, REPEAT PROC. 
20000008 LINK To DICTIONARY ACCESS ROUTINE, PELE ret | 
7 OOOUOOM AND EDIT CANDIDATE FORMAT. PLELLCELy | 
HEN3O10: 

TE a aati et 

INZ HENS 

MoV SI, OFFSET KKYOMIL 

PUSH DS 

CALL KKKNDR 3 LINK KAHA~KAN CONVERSION ROUTINE 

PoP DS 

PUSH ES 

POP KKDICSEG 5 SAVE SEGMENT OF DICTIONARY 

MoV KKDICOFF,DI 3 SAVE OFFSET OF DICTIONARY 

TEST AL,000010008 3 INVALID YOMI CODE ? 

JNZ HEN4020 3s YES... ERROR RETURN 

INC cx 

MOV KKOHOSUU, CX 3 SAVE TOTAL KOUHO COUNT 

MoV AX, CX 

DIV DATAO7 3 CALCURATE MAX KOUHO BLOCK MUMBER 

TEST AH, AH 

JZ KEN3020 

xOR AH, AH 

JMP SHORT HEN3S030 
HEN3S020: 

DE! AL 
HENSC30: 

xc AL, AH 

MoV WORD PTR KHBLK,AX 3; SET INITIAL KOUHO BLOCK NUMBER 

XOR AX, AX 

MoV KHENFST.AL 

JMP SHORT HENS000 
HEN3900: 

mov AL, KHBLK 3 CHECK END BLOCK HUMBER 

cmp AL, KHBLKMX 

JE HEN3910 3 JUMP ay on BLOCK 

INC KHBLK 3 NEXT 

XOR AX, AX 

JMP SHORT HEN4000 
HEN3910: 

cmP KKOHOZAN,1 3 

INE HEN$010 

MOV AX,1 
HEN4000: 

KKOHOEDT + EDIT OUTPUT BUFFER 
HENS$010: 

SUB AX, AX 

RET 
HEN4020: 

mov KKMODE, KANJIM 3 CHANGE TO KANJI MODE 

ner AX, 1 

RET 
3 ODO 2O 0000000000000 2020000000 
3™ INTERNAL SUB ROUTINE ; 
3m <SETQUEBF> , <QUEBUF> 


3 909000300000000000000000000000000000000000000000000000000000O0N00NO0NNHIONE 
SETQUEBF: 


MOV AL, KKINBUFCSI) 
weiie MOV AH, KKINBUF(SI}(2) 3 GET CHR. CODE & SCAN CODE 
"MOV WORD PTR KKHANQUE(DI),AX + SET ONE TO QUEING BUFFER 
INC KKHQLEN 


RET 
FNCHENK ENDP 
3(000000000000000000 NU NNNNDE 


3m 
3m MUHENKAN « 
3M L] 
3200000000000 000 BRN 
FNCMUHE PROC 
CMP KKMODE, KANJIM 3 CURRENT MODE CHECK 
JE MUHO20 
Mem SELECT MODE MMM 
MUHoLe: 
mov AX, KKOHODSP 
CMP AX, KKOHOSUU 3 DISPLAY LAST KOUHO NUMBER ? 
JE MUHO1L 
CMP KHBLK.@ + CHECK FIRST KOUHO BLOCK 
JE MUHOSO H 
DEC KHBLK 3 PREVIOUS BLOCK 
MUHOLI1: 
XOR AX, AX 
CALL KKOHOEDT 3 EDIT KOUHO 
sme SHORT MUNOSO 
MUHO20: 
SUB BP,BP 
MUHOSO: 
CMP BP, KKWEOP 
JGE MUHO40 
MOV AL, KKINBUF(BP) 3 GET CHARACTER CODE 
MOV AH, KKINBUF(BPJ(2) 3 GET KEY SCAN CODE 
INT 79H 3 QUEING 
aDD BP, 3 RENEW POINTER 
JMP SHORT MUHOSO 
MUHO40: 


CALL KKZINT 
MUHOSO: 


sus AX, AX 
RET 
FNCMUHE ENDP 


s INITIALIZE ZENKOHO MODE 


dU RERMAPS BERRA SEN ANARBRERES RES 
x 
i ESCAPE ” 
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OBAE 
OBAE 
OBBS 
OBBS 
OBBS 
OBBS 
OBB 


OBB 
OBB9 
OBBE 
@Bco 
OBC 
oBcs 
OBC4 


+4 
+ bd 
posses RIVA ATE co. 


eeeeeee?e 


3¢ 
sooeeeeeete 
DIVOS oB 
seeeseeesest 
FNCESCP PROC 
80 SE BOFO R 04 cmP 
74°05 


JE 
WOOO0N08 
Esco1e 
ES 0CA2 R * cate 
EB 10 JMP 
200000008 
$020 
C6 06 OOFS R 02 escez0: HOV 
ES 1291 R CALL 
E8 1355 R CALL 
C6 06 0192 R 02 MOV 
5 
ae ag Escoso: 
cs 


RET 
FNCESCP ENDP 


FNCINST phd 


= 3 OOF9 R 02 MP 
JNE 
re 04 OOFO R 01 TEST 
JZ 
33 es XOR 
EB 04 anP 
2 
8D 06 0COO3 R ae 
IN % 
E& OCF2 R SEE 
FRCINST_RET: 
cs RET 


FNCINST ENDP 


FNCDELT PROC 
80 SE COFO9 R 02 CMP 
75 03 JRE 


E& CESAR CALL 
FNCDELT_RET: 
cs RET 
FNCDELT ENDP 


FRCBACK PROC 
80 SE GOFO R 02 CMP 
75 03 ° JNE 


ESB OE04 R CALL 
FNCBACK_RET: 
cs RET 
FNCBACK ENDP 


FUCEEOF PROC 
CMP 


80 SE OOF9 R 02 
75 03 JRE 


NSTANT 


RENEE SEEECIP 
Esc 
FANS * Move 


KKZIN 
SHORT Tescos 0 


PEREDEEESEEESFFES ESTEE HEHE Eee ny 

< FNCESCP > 

PENELEEL ATTEN ESET ER TRATES EET CO yc 
+44 


3 


JO OOOO 00006 96 “ 


aL LET 
aba 


rere 


09d 4SSAIARRAT EET TRAP TERING 4 Ht eee e ga gg 
tH4eeeee 


3 CLEAR YOMI INPUT BUFFER 


SELECT MODE 9 MMMMMDH 


KKMODE, KANJIM 
KOUTINIT 
KCSRDSP 
KHENFST,O1H 


AX, AX 


KKMODE,KANJIM 
FNCINST_RET 
KKWINST, 01H 
INSO10 


AX, AX 

SHORT INSO20 
AX, KKINKEY 
KKINST 


KKMODE, KANJIM 
FNCDELT_RET 
KKDELT 


KKMODE, KANJIM 
FNCBACK_RET 
KKBACK 


KKMODE, KANJIM 
FNCEEOF_RET 


3 
3 DISPLAY CURSOR 


720 0000000000008 


3M lb LUULT TTT ttt] 
;u INSERT " 
3M “ 


20 0000000000000000000000 000006 
s CHECK CURRENT MODE 


32000 001000000000000000000000000K 
3 “ 
7M DELETE " 
3m " 
3000000000000 


3 CHECK CURRENT MODE 


300000000000 0000000000 ROOOOE 
3* r 
7M BACKSPACE . 
Fe 0009 aap DED 9 


3m 
3 CHECK CURRENT MODE 


9 eA 4 
3é 
ae ERASE EOF : 


Fy 20K90099000000900000000000000000008 


3 CHECK CURRENT MODE 


E3 ODAF R ar: | pugeea 
FHCEEOF_RET: 
cs R 
FNCEEOF EHDP 
i § 9000909818800 200000000 OOOOOS 
nu 
He CARRIER RETURN : 
om PELeLi eee EE 
2000000000008 
FNCCRRT PROC NEAR 5 MMH 
80 3E OFS R 02 CHP KKMODE, KANJIM 
33 0001 ney CRROLO 
C3 MOY AKA + ERROR RETURN 
CRROLO: 
ob co Oe «AX KKWEOP } INPUT BUFFER END POINTER CHECK 
AS bec R ae CRRO20 ; 
iia MoV KKWEOPSV, AX } SAVE END OF POINTER 
a Pus Ser AX + GET COPY COUNT 
ne mov OS EGMENT 
BE 0009 R Hoy gS, GET DESTINATION SEGMENT source > 
eta OFFSET KKINBUF SI KK ( DESTINATION ) 
¢ MOV DI, OFFSET KKINBFSV i St Cll KKINBFSB 
pte: REP Movsp 
CRROZO: 
2B co ut yeas 
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OBFS 
OBFS 


cs 


88 
74 


SE OOF9 R 02 
04 
0001 


16 OOEC R 
b2 


22 
oo75 R 


06 00035 R 
1209 R 


D2 
El 


co 


SE OOF R 04 
69 
SE OOEA R 00 
0s 


79 
co 


co 

OCF2 R 
00O3 R 

26 0005 R 
4000 

1D 


2E OOE6 R 
ED 
41 


RET 
FNCCRRT ENDP 
PALIT tiiiiiiiiy 
3M " 
sm ENTER x 
3m 


" 
700000000000000000000000000800001E 


FNCENTR PROC NEAR 
CMP KKMODE, KANJIM 
JZ ENTOLO 
MoV AX,1 + ERROR RETURN 
RET 
ENTO10: 
PUSH os 
POP ES 
mov DX, KKWEOPSV 
TEST DX, DX 
JZ EXTOSO 
mov S1,OFFSET KKINBFSV 
ENTO20: 
MoV DI,OFFSET KKKYDCD 
MoV AL,DS:CSIIJC1) 
CALL KCALELM 
MoV CX, AX 
SUB DX,CX 
CLD 
REP MOVSB 3 COPY TO KKKYDCD FROM KKINBFSV 
PUSH SI 
PUSH ox 
LEA AX, KKKYDCD 
CALL KKGRP 3 INPUT BUFFER EDIT & DISPLAY 
POP DX 
PoP SI 
OR Dx, DX & CHARACTER CHANGE END ? 
JNZ ENTO20 
ENTOSO: 
SUB AX, AX 


RET 
FNCENTR ENDP 
3200000000000000000008000000000000000000000N8VN0000NN ONE VOY NSORODENNDE 


x 
™ PROGRAM NAME: KKCSR 
" 


™ DESCRIPTIVE NAME: CURSOR KEY SUPPORT ROUTINE 
Li] 

™ FUNCTION: 

oy 


x THIS MODULE HAS IN PRINCIPLE A FUNCTION OF CURSOR MOTION. 
x WHITH HAS ONLY TWO KINDS,LEFT AND RIGHT MOTION, 
® LINKAGE: — 


~ oa” 
" INPUT: KANA-KAN COMMON TABLES 


" OUTPUT: KANA-KAN COMMON TABLES 


MOVE CURSOR 
RETURN CODES: (AX) 


x 0 - SUCCESSFUL 

u 1 - INVALID OPERATION 
Lt 
" 


" 
EXTERNAL REFERENCES: ‘ 
" 
m ROUTINES: " 
Ls KKINST x 
] KKDISP x 
" TABLES: KANA-KAN COMMON TABLES " 
x " 
mW REGISTERS: AX - RETURN CODE " 
« BP - WORK x 
: ALL OTHERS UNCHANGED a 
Fy " 
3M CHANGE ACTIVITY: VERSION 00.00 a 
3 “ 
H x 
JOC 000 0080000000000 0000000000 R0000N08NRNNVONNNNIHNPNNNNN_ONNNHNNNAL 
3 
KKCSR PROC NEAR 
CMP KKMODE,SELECTM 3 TEST CURRENT MODE 
J KCS210 
KCSO10: 
CMP KKWEOP,0 3 THERE AER NO YOMI CHARACTER 
JNE K2CCSR_GO 3 IF THEN QUEING CODE 
KZCCSR_QUEING: 
INT 79H § QUEING CURSOR KEY CODE 
XOR AX, AX 
RET 
KZCCSR_GO: 
sus AX, AX 3 IF INSERT MODE 
CALL KKINST 3 THEN RESET INSERT MODE 
MOV AL, KKINKEY 3 GET INPUT KEY CODE 
MOV AH, KKINKEY#2 3 GET INPUT KEY CODE 
CMP AX, KYCSRRX 3 CHECK CURSOR MOTION 


JE KCS100 
2200000000000 UO0O0020UOD UU UE IDE 
3H a 
7H CURSOR LEFT . 
SIRO TLINEI ETRE TERENCE ITOK A RRNIORCiaNOMINENRANEN ne 
KCS000: 


MoV BP, KKWCCA 3 GET CONTECTUAL CURSOR ADDRESS 
TEST BP, BP b IF CONTECTUAL CURSOR 1S ZERO 
ar4 KCS200 3 THEN RETURN 
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28 Co 

SE: 8A 86 0007 R 
22 66 @OEL R 
74 04 


BO FE 
EB 1F 


Be FF 
EB 1B 


8B 2E OOEG R 
38 2E OOEA R 


73 22 
SE: BA 86 OOOA R 
22 06 GOEL R 

o4 


Be 02 
EB 02 


BO 01 


01 06 0105 R 
FFFF 


AS 0107 R 
AS 0109 8 
ES 10ED R 


33 co 


BS 8001 


C6 06 BOF R 62 
80 3E OOFA R 01 
74: «1E 
80 SE OOFA & 02 
76:17 


80 SE OOFA R OS 
74 10 
EB 31 


C7 06 OOES R 0066 
C7? 06 COEE R 002C 
EB OE 


C7 06 OOEB R 0042 
C7? 06 OOEE R 0011 
EB 00 


BS 00 
BO AO 
AS OOFS R 
EB 12FC R 
€8 1291 R 
E&8 1355 R® 


suB AKO A 


t RKINBUFCBPI(-2) 
ne 8 OTe cee CHARACTER ay 
AND AL, ZENATTRI ¥ BIT CHECK TRibute 
Jz RUSS + ZENKAKU 
pet SHORT KCSO40 
Kcse20: L.-1 3 HANKAKU 
apy SHORT KCSO4O 


jpipg0G 1200900000000 0080000000000 000000 ODL 
SOO Og be 8 Oe 


: CURSOR RIGHT * 

“ 

HOTT TT ULL LL lataelalaeiaiahaeleiaiaiaalalalalalalalaiaiaialaislelelel LLL LLL Tree ta 
u 

KC$100! Lite ety 


BP, KKWCCA 3 GET CONTECTUAL cy 
el BP, KKWEOP + IF CONTECTUAL CURSOR ADDRESS 
SAE KCS200 3 THEN RETURN ERO 
MoV AL/KKINBUFCLIEBP2 sabe 
; CHAR 
AND AL, ZENATTRI 3 ZENKAKU BIT CHECK CER ATTRIBUTE 
KCSO3 
Rov AL,2 3 ZENKAKU 
JMP SHORT KCS040 
RESORTS oy AL 5 HANKAKU 
Kesoeds 
ADD DCRSRP, AX + CALCULATE NEW X-PosrTron 
poy AeTRTP LAX SET PARAMET 
M DSTRTP, ’ ER FO 
HOY DENDP AX R DISPLAY (KKDIsp) 
CALL —-KKDISP 3 CURSOR MOTION 
ReS200: oe AX SAX 3 RETURN CODE = 0 
RET - 
210: 
ROS220° nov AX)1 5 RETURN CODE = ABNORMAL 
RET 
KkesR END 


ENDP 
32000000000000000000000080000800800008000000000000000800000000000000000000K 
zm 


7 PROGRAM NAME: KKZINT i. 
3m 
5K DESCRIPTIVE NAME: INITIALIZE ZEN KOUHO MODE - 
7m Li 
;® FUNCTION: x 
3m INITIALIZE TABLE FOR KANJI MODE * 
7a x 
3™ LINKAGE: CALLED BY KKKFDM = 
3m ( JUST INPUT KANJI KEY ) x 
zu " 
3™ INPUT: | KANA-KAN COMMON TABLES . 
om * 
3 OUTPUT: KANA-KAN COMMON TABLES m 
3m " 
3X RETURN CODES: (AX) " 
37M 
3m 0 - SUCCESSFUL x 
3K 1 - INVALID OPERATION . 
7m 
3M EXTERNAL REFERENCES: " 
3m 
3 ROUTINES: KKWOIL 
im KKDISP * 
i 
3M TABLES: KANA-KAN COMMON TABLES x 
iM REGISTERS: AX - RETURN CODE 4 
a ALL OTHERS UNCHANGED " 
3M CHANGE ACTIVITY: VERSION 00.00 " 
, 

“ 
3m 
3 990000000000000000000000000000000000000000800000000000000000 00000002000 OOE 


KKZIHT PROC NEAR 


MOV KKMODE,KANJIM 3 TURN TO KANJI MODE 
CMP TVMODE,TV8025 3 VIDEO MODE CHECK 
JE KZ1200 3 chenge 100 to 200 
CMP TVMODE,TV8011 5 
JE KZ1200 
CMP TVMODE,TV4011 5 
a K21200 
peeneoniiinoodi THITIALIZE 80 X 25 TYPE VIDEO MMAXHNMANMNMM 
: 
MOV KKEOPMAX, 34K3 
nOY BASE, 64 . 
HORT KZ1800 PCULEL LE Et] 
Pitt 8] 
prizode, «= ENETIALIZE 80X11 AND 60 X 21 TYPE VIDEO 
Hov KKEOPMAX, 22x 
po BASE, 17 nesta 
HORT KZI800 PTE CLLLLCL LL! 
Pittiitt uMM 
k218002 INITIALIZE COMMON AREA TTT LL LLL le 
Mov AH, HANAT 
, ™ 
Hoy AL SPECHAR or YOMI SP. 


F 

KKCHRSP, AX CIAL CHARACTER ) CLEAR 
CALL KINBECLR ’ Rev input BUFFER CKRINBO FT TTAL 
catty KOUTINIT ; OUTPUT BUFFER (KKOUTB 

KCSRDSP 3 DISPLAY CURSOR 
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C6 06 0192 R 01 


OCEF 
OCEF 2B 
OCcFl CS 
OCF2 

= 0005 
OCF2 
OCcF2 53 
OcFS 51 
OCFS 52 
OCFS 56 
OCF6 57 
OCF7 8A 
OCFB F6 
OCFE 75 
opoo Fé 
ODoS 74 
opos 
0D05 8B 
oD07 3D 
ODOA 74 
oooc E8 
ODOF EB 
0011 
0011 £8 
0014 EB 
OD16 
OD16 AO 
0D19 BA 
oD1Dd 3D 
0020 75 
od22 
op22 E8 
0025 
0025 88 
0028 
0028 SF 
0029 SE 
OD2A SA 
op28 59 
op2c 5B 
0020 
op20 CS 
ode 

OD2E 
OD2E 8D 
0032 BA 
OD35 «EB 
0038 8B 


co 


1E OOFO R 
C3 80 
os 

cs 01. 
11 

Ds 
0000 
05 
OD2E R 
1? 
oo7c R 
OF 


0003 R 
26 COOS Rk 
5200 

os 

ODS? Rk 
0000 


36 00O9 R 
47 01 


1341 R 
bo 


MoV KHENFST,01H 
KZI900: 

su AX, AX 
KKZINT ENDP 


3300000000000 UNI DE 
3m 


n 
3™ PROGRAM NAME: KKINST “ 
3 " 
3" DESCRIPTIVE NAME: KANAKAN INSERT PROCESS ROUTINE " 
3m " 
3 FUNCTION: WHEN AHY KEY IS PRESSED, THIS ROUTINE EXECUTS FOLLOWING ¥» 
3M FUNCTION BY CURRENT MODE « 
3m 1) INSERTS CHARACTERS FRONT OF THE CURSOR " 
3M 2) SETS INSERT_MODE IN CURRENT MODE « 
AL 3) RESETS INSERT_MODE CURRENT MODE « 
i " 
;™ LINKAGE: CALL KKINST 7 
7] x 
3M INPUT: AX-- OFFSET OF DATA TO BE INSERTED " 
3M KANA-KAH COMMON TABLES " 
7m * 
3M = OUTPUT: KANA-KAN COMMON TABLES " 
3M " 
3M RETURN CODES: (AX) x 
7K a 
im 0 - SUCCESSFUL x 
A 1 - INVALID OPERATION « 
3m " 
3M EXTERNAL REFERENCES: " 
7m " 
Al ROUTINES: KKDISP -~ DISPLAY DATA OF KANAKAN INPUT BUFFER " 
zm DTINST -- INSERT DATA TO INPUT BUFFER POINTED BY AX x 
raf " 
im TABLES: KANA-KAN COMMON TABLES " 
3M n 
3M REGISTERS: AX - RETURN CODE ” 
7m ALL OTHERS UNCHANGED " 
3m " 
;M CHANGE ACTIVITY: VERSION 00.00 “ 
3; Ld 
3 #0000000000000000000000000000000000000000NNOHONHNOHOHONOANNORADOOLOL 
INDEX  EQU 03H sCONSTANT VALUE 
3 0GO00CCKK TNS 7>0000000000000000000000 00 R022 RVR DRO VIIDOE 
3* x 
3m WHEN INSERT KEY HASPRESSED, THIS ROUTINE IS CALLED « 
se Ly 
im INPUT = AX: POINTS INSERT DATA POSITION “ 
H “ 
3 900000181 NS T> 19000000000000000000000000000000000000OOOORARANDHBDOOL 
KKINST PROC NEAR 

PUSH BX 3 SAVE REGISTERS 

PUSH cx 

PUSH 0x 

PUSH SI 

PUSH DI 

MOV BL, KKWINST 3 GET CURRENT MODE 

TEST BL, 80H s TEST DUMMY INSERT FLAG 

JNZ KKIS_D 

TEST BL,O1H 3 INSERT_MODE ? 

JZ KKIS_H 3 NO.NOT INSERT_MODE 
KKIS_D: + YES, INSERT_ MODE 

mov BX, AX 3 GET AX ( INSERT DATA ) 

CMP AX, 0H 3 FUNCTION KEY PRESSED? 

JZ KKIS_G + YES, THEN INSERT_MODE OFF 

CALL INSTPRC 3 NO.CALL INSERT _DATA PROC. 

JMP SHORT KKIS_K 3 GOTO RETURN 
KKIS_G: 3 INSERT_MODE OFF 

CALL OFINST 3 RESET ITNSERT_MODE 

JMP SHORT KKIS_L 
KKIS_H: 3 NOT INSERT_MODE 

MOV AL RRINKEY 

MOV AH, KKINKEY#2 

s GET FUNCTION KEY CODE 

CMP AX, KYINSTX 3 INSERT KEY PRESSED ? 

INZ KKIS_L + NO,RETTURN TO CALLER 
KKIS_J: 

CALL SETINST + SET INSERT_MODE 
KKIS_L: 


Mov Ax,0 3 SET RETURN CODE ¢ NORMAL > 
KKIS_K: 


POP Or 3 RESTORE REGISTERS 
PoP st 
PoP DX 
PoP cx 
Pop Bx 
KKIS_990: 


RET + RETURN TO CALLER 
KKINST ENDP 


2000061 N$ TP RC>000000000000000000000000 00020 DUNNO RRO NN DNL 
3m 


3M WHEN NOT INSERT KEY PRESSED ON INSERT MODE ‘ 
ih THIS SUBROUTINE IS CALLED " 
3x s 
3M BX: POINTS INSERT DATA POSITION “ 
am a 
3000006 TNS TPRC>0000000000000000000 U0 Q0000000000N 0 OIIRDNL 


INSTPRC PROC NEAR 


LEA SI, KKINBUF + GET OFFSET OF INPUT BUFFER 
MOV AL, BYTE PTR DS: (Bxe1) 

3 GET ATTR OF INSERT DATA 
CALL KCALELM 3 GET DATA LENGTH FOR INSERTION 
MOV DX, AX 3 SAVE DATA LENGTH FOR INSERTION 
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ep7c 
ep7c 


0081 
ODs5 


008? 


0D87 
0D87 


epsc 
ODsE 
OD91 
ops2 


op92 
0D92 
0D94 
0D98 
op9sc 
SDAO 
ODA2 
ODAS 
ODAS 
ODAB 
ODAE 
ODAF 


Al OOE6 R 
03 C2 

3B 06 GOES R 
77:3 


E4 
OS 06 OOFS R 
AS 0105 R 
E8 16A5 R 
ES 1630 R 
E8 10ED R 
Al OGOEA R 
38 06 OOE8 R 
72 06 
Al OOES R 
AS OOEA R 
01 16 OCOEG R 
BS 0000 
EB OS 
BS 0001 


cs 


80 26 OOFO R FE 


BO 2A 
ES OD92 R 
cs 


80 OF OOFO R 01 


BO SE 
E8 OD92 R 
cs 


INPRE_OS0:, ye xeuCCA + GET CURRENT CURSOR Posttroy 
aod = AX#DX 3 CHECK CURSOR Pos 
ce fiaerie | EOL HELE oe raat 
; FROM TAB 
CALL «s«DTINS te TO IN 
AX, DX + GET INSERT CHARACTERS PUT BUFFE 
re ELEMENT (3 OR 6) 
DIV eae 
ADD AX, KKCUSR ET 
app MC RRCURS SET CURSOR POSITION 


SET START POSITION 
SET END POSITION 


we we we 


SETSTRCL 
Catt. = SETENDCL 


CA 
INPRC_090: 
CALL 


KKDISP s CALL DISPLAY ROUT 
Cae EO KKWEOP ; GET END POSITION UN 
Rae COAX KKEOPMAX ; CHECK END POSITION 
JB Seer aa eeaie ; GET BUFFER E 
AX, KK ; ND Post 
Moy CKKWEOP, AX 3 RESET END POSITION. 2ON 
NP 
TNPRE_100) KKWCCA, DX + UPDATE CURRENT CURSOR PosiTro 
nov AX, OH + SET RETURN CODECNORMAL) . 
MPs SHORT =INPRC_990 
uP 0: 
TNPRE_120: ‘eich + SET RETURN CODE ¢ ERROR ) 


INP 0 
Reve: 3 RETURN TO CALLER 
INSTPRC ENDP 


33000006 OF INS T2 00000000 IRR BIRD 
3u 
37m RESET INSERT_MODE,WHEN INSERT KEY IS PRESSED ON INSERT_MODE x 


3m 
300008 < OF LNS 7220000000000 0000 OOO rs 
OFINST PROC NEAR SUOOOO O00 Ore 


AND KKWINST, OFEH + RESET INSERT MODE FLAG 
3 
3 cMP TVMODE, TV8025 
3 JNE OFINSO10 
3 TEST KKFLAG, CLRF25 3 TV MODE IS 80%25 COLOR »? 
3 JNZ OFINSO10 3 YES. GOTO 
3 mov DSTRTP, OFFFFH 
3 CALL KKDISP 3 DISPLAY CURSOR 
. RET 3 RETURN TO CALLER 
sOFINSO1O: 

MOV AL, ASTER 

aut SETMARK 3 DISPLAY INSERTION MARK 


OFINST OP 

5 M090 EHC SS ET INS 7 > 00 00 00 00 BE 00 00 DE DO DE 00 DO DO D0 DE BO DO DDE OO DO DO DO DG BO DG DE DDO BS DDO DE DG DL 0 DO OO Be Oe Oe Ot Be Be 
2M ™ 
3m SET INSERT_MODE,WHEN INSERT KEY IS PRESSED ON NOT INSERT_MODE x 


™ 
2 Je0000000¢<§ ET TNS T> 900000000000000900000000000090909090900000009090909000008HNNNRNNNDONOODOOE 
SETINST PROC NEAR 


OR KKWINST, 01H 3 SET INSERT MODE 
3 CMP TVMODE, TV8025 
; JNE STINSOLO 
3 TEST KKFLAG,CLRF25 3 TV MODE IS 80™25 COLOR ? 
3 JNZ STINSO10 3 YES. GOTO 
3 MoV DSTRIP, OFFFFH 
3 CALL KKDISP 3 DISPLAY CURSOR 
3 RET 3 RETURN TO CALLER 
3STINSO10: 
MoV AL, CAPS 
CALL SETMARK 3 DISPLAY INSERTION MARK 
RET 3 RETURN TO CALLER 


SETINST ENDP 

72000005 ETHARK? 10000000000000000000000000000000 00000 2200000022 GOON 
7 

3M DISPLAY INSERT MARK OR ASTER MARK el 


Ai “ 

7 00000< § ETHARK?30000000000000000000000000000UDRVDRRRVVURVVIVVIOVOVOK 

SETMARK nee” NEAR 
n 


AH, HANATTR 3 GET HANKAKU ATTRIBUTE 
MOV BX, KKEQPMAX 
MoV WORD PTR KKINBUF[BX),AX } SET CHARACTER CODE 
oe re 3 SET DISPLAY POINTER 
CALL GETCULM 3 CALCULATE COLUMN COUNT 
MOV DSTRIP,AX 3 SET COLUMN POSITION 


MOV DENDP,AX 
CALL KKDISP 


guviins Sale 3 RETURN TO CALLER 
3 90000000000000000000000000000000000000000000000000000000000008 0000000008 
3m 

3% PROGRAM NAME: KKEEOF 


5M 

iM DESCRIPTIVE NAME: KANA-KAN ERASE EOF PROCESS 

i 

3M FUNCTION: WHEN ERASE EOF KEY IS PRESSED, THIS ROUTINE ERASE THE 
zm CHARACTERS A AND SET SPECIAL 
- CHARACTERS AFTER THE CURSOR POSITION 

ray 

1M LINKAGE: CALL 

rh! 

3 INPUT: KAHA-KAN 

ix COMMON TABLES 

3X OUTPUT: KANA-K 

ie AN COMMON TABLES 

iM RETURN CODES: (Ax) 

$ 
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= 0006 

ODAF 

ODAF $3 

ODBO 51 

ODBL 52 

oDB2 56 

ODBS 57 

ODB¢ 

ODBS Al OOE6 R 
ODB7 3B 06 OOEA R 
ODBB 73 15 
ODBD ES ODF2 R 
ODCO E8& ODDB R 
oDcs 

ODCS ES 16A3 R 
ODC6 ES 16B0 R 
ODCd E8 1OED R 
ODCC Al OOEG R 
ODCF AS OOEA R 
oop2 

ODD2 B88 0000 
ODDS SF 

ODD6 5E 

ODD? SA 

opps 59 

ODD? 5B 

ODDA 

ODDA C3 

ODDB 

ODDB 

OODB 8D SE 0009 R 
ODDF O03 FA 
ODE 

ODEL 83 FS 00 
ODES 76 OB 
ODE6 FC 

QOE7 Al GOOFS R 
ODEA AB 

ODEB S2 C8 
ODED AA 

ODEE 49 

ODEF E83 FO 
ODF 

ODF1 CS 

ODF2 

ODF2 

OOF2 SB 16 OOEG R 
ODF6 Al OOEAR 
ODF9 2B C2 
OOFB Bl 03 
ODFD F6 Fl 
ODFF 32 E4 
OEOL 88 C8 
QEO3S CS 

OE04S 


7m @ ~ SUCCESSFUL 


He 1 - INVALID OPERATION : 
pe EXTERNAL REFERENCES: 
Au ROUTINES: KKDISP - DISPLAY YOMI AND BANGOU a 
sx EOPCHECK ~ CHECK END POSITION OF CHARACTER LJ 
He TABLES: KANA-KAN COMMON TABLES : 
qf Nh ae 
is CHANGE ACTIVITY: VERSION 00.00 : 
; S000080800EGOnHGHNONEGDUAGEHONOUABAHNOAuONOBEAAOAAAAOBEBaner 


ZENLEN EQU 06H sZEMKAKU DATA LENGTH 

20000000 00G Ott KKEEOF S000 0000000000000 00000 0OG DOU 
ih “ 
3m ENTRY OF KKEEOF u 
mt iy 
3 900000000000900000000000000000000000000800000000GN0OOb0OnNbAnAnOHDAEBOEL 
KKEEOF one MEAR 


BX sSAVE REGISTER 
PUSH cx 
PUSH ox 
PUSH SI 
PUSH oI 
KKEE_020: 
MoV AX, KKWCCA GET CURRENT CURSOR POSITION 
cmp AX, KKWEOP CHECK CURREHT CURSOR POSITION 
JAE KKEE_ 090 


CURSOR > DATA END , GOTO RETURN 
SET PARAMETERS FOR SETCHR ROUTINE 
SET CHARACTERS AFTER THE CURSOR 


SET START POSITION 
SET END POSITION 
CALL DISPLAY ROUTINE 


CALL POINTST 
ALL SETCHR 


c 

KKEE_060: 
CALL SETSTRCL 
CALL SETENDCL 
CALL KKDISP 


ws we we we we 


we ee os we te 


MOV AX, KKWCCA GET CURSOR POSITION 
KKWEOP, AX SET NEW END POSITION 
KKEE_890: 
mov AX, OH 5 SET RETURN CODE ( NORMAL ) 
POP DI + RESTORE REGISTERS 
POP St 
PoP ox 
POP cx 
P BX 


PO 
RRER_ S983 


eT 3 RETURM TO CALLER 
KKEEOF €NDP 


jMMRMNCS ET CHIR > 00 0000 00 0 8 0 a a {2000000000000 O0000BOOUOIOIOE 
a” 
3a SET SPECIAL CHARACTER AFTER THE CURSOR a 
3m INPUT: J 
an CX -- LOOP couNT “ 
Ue DX -- START POSITION TO SET CHR, . 
3 a 
3 AiHUN<SE7 CHR in uiGoGnaHOOANGONODOGGO EH AANnHoODoAlNCAHA AEA 
SETCHR PROC NEA 

LEA DI, KKINBUF + GET OFFSET OF INPUT BUFFER 
S00 ADD DI,Dx ¥ ST POINTS START POSITION TO Set 

3 
cup CX,0H 3 LOOP END ? 
aon ST_990 + YES,GOTO RETURN 


MOV AX, KKCHRSP + GET SPECIAL CHARACTER CODE 
SET CHRACTER CODE 


YI 
=“ 
o 
7 
z= 

~ 


XOR ALL AL 

STOSB } CLEAR SCAN CODE AREA 
OEC cx 

JMP SHORT ST_#10 + LOOP PROC. 


ST_990: 
RET 5 RETURN TO CALLER 

SETCHR ENDP 

3 WEEP ONS 72000000 0U00000100001QQU000 0000000 QOH ROOOUNOUAGIGAIAUE 

iT) 


a 

hl SET START & END POSITION AND LOOP_CNT TO BE SET SPECIAL CHR. x 
au OUTPUT: ] 
om CX -- LOOP COUNT " 
He DX -- START POSITION TO SET ChR. a 
3 " 
AUUUS SPO 00S > 000100000000000000000000000000000000NOQ00AG0QU00RGHODERDOE 
POINTST PROC NEAR 3 

MoV DX, KKWCCA 3 GET CURRENT CURSOR POSITION 

MOV AX, KKWEOP 3 GET END POSITION 

SuB AX, 0X 

mov CL, INDEX ; 

DIV cu 

XOR AH,AH 3 CLEAR AH 

MOV CX,AX 3 SET LOOP 


CNT. 
RET i RETURN TO CALLER 
POINTST ENDP 


PEL EL LLL y | {0000000000000 000 
3m 


“ 
3 PROGRAM NAME: KKBACK : 
4 
s4 DESCRIPTIVE NAME: KANAKAN BACK SPACE PROCESS ROUTINE : 
aM 
sM FUNCTION: WHEN BACK SPACE KEY IS PRESSED, THIS ROUTINE DELETES J 
7" “THE CHARACTER FRONT OF THE CURSOR AND SHIFTS CHARACTERS 
ya AFTER THE CURSOR POSITION LEFT : 
im 
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36 0009 R 
OOE6 R 
oooo 

os 


0000 
OE 


1E OOE6 R 
DE 

47 FE 
1341 8 

Ds 


OESE R 
16B0 ® 
1OED R 
16 OOEA R 


ix LINKAGE: CALL KKBACK 
3 


nu 

3M INPUT: KANA-KAN COMMON TABLES x 
3m 

$™ OUTPUT: KANA-KAN COMMON TABLES x 
3” 

be RETURN CODES: (AX) “ 
; u 
im © - SUCCESSFUL 

a! 1 - INVALID OPERATION " 
3m 

ix EXTERNAL REFERENCES! x 
; « 
3m ROUTINES: KKDISP -- DISPLAY DATA OF KANAKAN INPUT BUFFER 

« -- SHIFT DATA FO INPUT BUFFER AN ™ 
i DISHFT ~~ xD POSITION D CHECK x 
3m 
7m TABLES: KANA-KAN COMMON TABLES x 
3m 
3" REGISTE AX - RETURN CODE * 
Lael sl ALL OTHERS UNCHANGED x 
3m 
ix CHANGE ACTIVITY: VERSION 00.00 " 
3.310000000000000000000000000000000000000000000000D208O OND N OOOO OEE 
3 


3 

7U00C< KKB ACK >100000000000000002000800000000 0000022008 R IGRI 
3m 

zm WHEN BACK SPACE KEY IS PRESSED, THIS ROUTINE IS CALLED “7 
zm 


; " 
3000000<K KB ACK >00000000000000000000000000U OOOO 
KKBACK PROC N eialalalalalolel 


PUSH BX 3 SAVE REGISTERS 
PUSH = CX 
PUSH DX 
PUSH = SI 
PUSH DI 
KKBK_020: 3 
LEA SI, KKINBUF + GET OFFSET OF INPUT BUFFER 
MOV AX, KKWCCA 3 GET CURRENT CURSOR POSITION 
CMP AX, 0H 3 CURSOR = BUFFER HEAD ? 
JNZ KKBK_070 3 NO,GOTO... 
KKBK_040: 3 CURSOR IS BUFFER HEAD 
Mov BX, 0 
JMP SHORT KKBK_137 
KKBK_070: 3 CURSOR ISN'T BUFFER HEAD 
mov BX, KKWCCA 3 GET CURRENT CURSOR POSITION 
, . 
MOV AL, BYTE PTR DS: (BX-2) 
3 GET ATTR. OF PREVIOUS DATA 
CALL = KCALELM 3 GET DATA LENGTH 
MOV BX, 
KKBK_137: 
CALL —-BKSHFT 
CALL —- SETENDCL 3 SET END POSITION 
CALL —saKKDISP 3 CALL DISPLAY ROUTINE 
KKBK_150: 
SU KKWEOP , DX 3 UPDATE END POINT 
KKBK_160: 
MoV AX,0 3 SET RETURN CODE (NORMAL) 
POP DI 3 RESTORE REGISTERS 
POP $I 
PoP DX 
POP cx 
Pp BX 


PO 
KKBK_990: 

RET 3 RETURN TO CALLER 
KKBACK _ENDP 


32000006 BK SH FT 2 10000000000000000000 22000000000 GO VOODOO TE OE 
3m 
3™ SHIFT PROCESS OF BACK SPACE PROC. ROUTINE : 
zé 
7000006 BK SH F.7>21000000000000000000000000000000 0000080080000 00000000 


BKSHFT PROC HEAR 3 
Mov AX, KKWCCA 3 SET PARAMETER TO DTSHFT 
SUB AX, BX 3 AX CONTAIN DATA POSITION 
CALL DISHFT + SHIFT DATA & CHECK EOP 
SUB KKWCCA, BX *; UPDATE CURRENT CURSOR POSITION 
MoV AX, BX + GET DATA LENGTH 
MOV CL, INDEX ; 
DIV cL ; 
XOR AH, AH 3 CLEAR AH 
SUB DCRSRP,» AX 3 SET CURSOR POSITION 
oe SETSTRCL 3 SET START POSITION 


BKSHFT ENDP 
7 10101000000010000000000000000000100000000000000 BUG ROORO ROO OS 


iM OUTPUT: KANA-KAH COMMON TABLES 
3M RETURN CODES: (AX) 


" 
7” 
3® PROGRAM NAME: KKDELT “ 
rz | 
i% DESCRIPTIVE HAME: KANAKAN DELETE PROCESS ROUTINE . 
+ FUNCTION: WHEN DELETE KEY 15 PRESSED, THIS ROUTINE DELETS " 
zm THE CHARCTER ON TH ND SHFT CHARACTERS = 
Lt DETER THE COR oR ME CURSOR POSITION A : 
3” 
iM LINKAGE: CALL KKDELT “ 
7” 
3M INPUT: KANA-KAH COMMON TABLES ° 
i] 
" 
" 
a" 
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OESA 
OESA 
OESB 
oesc 
OESD 
OESE 
OESF 
OEb2 
CE66 
OE6S 
OEbC 
OEGE 
OE71 
GEIS 
OE77 
OE7A 
OE7a 
OE7E 
oE&sO 
O£80 
oO€80 
OE8S 
OE8S 
08S 
OE86 
9€87 
O£88 
OE8S8 
OE89 


BS 
SF 
SE 
SA 
59 
3B 


cs 


ol 0 - SUCCESSFUL 


" 
™ 1 - INVALID OPERATION cy 
on " 
3" EXTERNAL REFERENCES: " 
oH 7 
im ROUTINES: KKDISP -- DISPLAY DATA OF KAHAKAN INPUT BUFFER " 
Hl DTISHFT -- SHIFT DATA OF INPUT BUFFER AND CHECK a 
3m END POSITION " 
+ " 
im TABLES: KANA-KAN COMMON TABLES ” 
* a 
>® REGISTERS: AX - RETURN CODE a 
HL! ALL OTHERS UNCHANGED ry 
7 ' 
iM CHANGE ACTIVITY: VERSION 00.00 " 
7” a 
3000000000000 000000000 ODODE 





MMM KK DEL T > 6 06 O6 wo a0 Oe Be 0 Oe OO Oe DO OO 9 OO OO GE OO OO me 
x 


THIS ROUTINE DELETES A CHARACTER ON THE CURSOR ry 
3M " 
20000000 DEL T> 0000000000000 000000100000000100000000000 0000 0000UOG OBOE 
KKDELT PROC NEAR ; 

PUSH BX 3 SAVE REGISTERS 

PUSH cx 

PUSH Dx 

PUSK SI 

PUSH oI 

MoV AX, KKWCCA > GET CURRENT CURSOR POSITION 

cmP AX, KKEOPMAX > CHECK BUFFER END 

JAE KKDL_200 

cmp AX, KKWEOP CHECK CURSOR POINT 

JAE KKOL_110 noP 


CALL DISHFT 
CALL SETSTRCL 
CALL SETENDCL 


SHIFT DATA & CHECK EOP 
SET START POSITION 
SET END POSITION 


we we we we we we 


CALL KKDISP CALL DISPLAY ROUTINE 
KKOL_100: 
SUB KKWEOP , DX 3 UPDATE ENDPOSITION 
IMP SHORT KKDL_110_ ; 
KKDL_200: 
KKDL_110: 
Mov AX, 0H 3 SET RETURH CODE 
POP DI 3 RESTORE REGISTERS 
POP SI 
POP ox 
POP cx 
POP Bx 
KKDL_990: 
RET 3 RETURN TO CALLER 


KKDELT ENDP 
JUDO UO0IGDIRUHDIROOIOGOOOOOUCUIIOUOGO 00000000000 UD 00D O0DD0RDIBGGOTOHE 
3" PROGRAM NAME: KKKNOR 


" 
DISCRIPTIVE NAME: READ DICTIONARY x 
" 

FUNCTION: ACCESS TANKANJI DICTIONARY a 
" 

LINKAGE " 
INPUT: " 
1. CENGTH OF YOM! ( DS,SI >) + 6 " 

2. YONI (08.81) #2 a 

OUTPUT: a 
1. NUMBER OF CANDIDATES (¢ CX ) a 

2. CANDIDATOS € €S,01 >) " 

3. RETURN CODE « ax) a 

" 

RETURN CODES: (AX) “ 

“ 

0 - SUCCESSFUL a 

1 - YOMI NOT FOUND a 

4 - YOMI LENGTH EXCEPTION J 

8 - HIRAGANA CODE EXCEPTION " 

16 - DICTIONARY FORMAT EXCEPTION i] 

" 

EXTERNAL REFERENCES: “ 
ROUTINES: NON " 
TABLES: TANKANJI DICTIONARY a 

. 

REGISTERS: AX - RETURN CODE a 
CX - NUMBER OF CANDIDATES " 


€ €5,D1 ) - FIRST CANDIDATE TOP ADDRESS 
ALL OTHERS UNCHANGED 


. 
a 
a 
RESTRICTIONS: . 
YOMI LENGTH INDICATION: a 
DICTIONARY CONTAINS YOMI LENGTH INFORMATIONS a 

BY FOLLOWING CONVENTION , i] 

1. 81H INDICATES THAT YOME LENGTH IS 1 a 

2. 80H INDICATES THAT NOLENGTH } YOM IS CONTAINED IN 8 

THIS DICTIONARY. AFTER 80H, NEXT YOME IS CONTAINED. a 

3. IF YOME LENGTH 1S GRATER THAN 2 OR EQUAL 10 2 THEN 

LENGTH IS NOT CONTAINED, BUT YOMI DELIMITTER INDICATE & 
THAT LAST CHARACTER OF THAT YOMI. . 

. 

s 

a 

a 

a 


CHANGE ACTIVITY: VERSION 00.00 
KJ CODE COMPACTION REJECTED 


POT PPIVIVirririiiiivitilitiiliiretiliiiiiiiiiiiitiiiiiiiiiiiiy) 
sDIC LABEL BYTE 3 2 BYTE MEMORY ON DICTIONARY 
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Appendi 


@1les 
ooce 
OOBF 
OOFs 
OOFE 


enununnw 


m 
o 
<2 


OF11 


x A. 


OEBE R 
ce 
18 
GED? R 
co 


11 
06 O13SE R O008 
OF11 R® 

OE OISER 

co 


e2 
ce 


co 
O1lB R 
80 
OLOB R 


80 610B R se 
B co 


03 


eooa 
E 


; 2 BYTE MEMORY oN 
; WORD 3 DicTr9 
ipreD tABEL DWORD s Buna deren) ON DICTIONARY 
ToP EQU TAHH4 ; ERRUPT ( PARAMCSRY 
CoH EQU 110000008 ) 
BFH EQU 101111118 
F8H EQU 111110008 
FEH EQU 411111308 
} oeog 0 20000000000010000000000 000000000 0000000000000000000OIBOROEBEIER 
in Cc MAIN OF KKKWDR) * 
rai 
; PET iti PELE tL LLL LiL Ebi tir dt “ 
Lee a Ee ea a wba ttt 
PUSH DX wana ee ot, 4 
PUSH " 
HOV -AX,DS 
MOV ES, AX 
MOV CX,8 
LEA DI, KKYOMIL 
REP MOVSB 
pM-e-------- e---C END OF PRESET )------- 
CALL LENCK ; LIMIT CHECK OF vomI LenctH 
ne iit j AK “> REYURN ODE 
JH 
CALL HRGCK 3 HIRAGANA CODE LIMIT CHECK 
tne’ thatho pK "TRETDRN OBE 
JNZ 
MOV KKOHOSUU, 0000H 
CALL accDICT 3 ACCESS DICTIONARY 
MOV CX, KKOHOSUU 3 
TEST AX,AX AX --- RETURN CODE 
RE 3 exeex. CANDIDATE NUMBE 
ERREND: SUB ‘ ; R IS 2E 
ENDMAIN: RO IF ERROR 
PoP $I 
POP Bx 
POP Dx 


RET 
KKKNDR ENDP 


3000000000000 0000 
+™ PROCEDURE NAME: 


3% FUNCTION: 
3 


LENCK 


LIMIT CHECK OF YOMI LENGTH 


LENCK PROC NEAR 

SUB AX, AX 

MoV AL, KKYOMIL 

CMP AX,1 

Jt LENCKER 

CMP AX,7 

JG LENCKER 

MoV CX,AX 

SUB AX, AX 

JMP SHORT LENCKO9 
LENCKER: MOV AX, KKECYMLN 


LENCKO9: RET 
LENCK ENDP 


, 


3 
3 


€ AX ) =~ GIVEN LENGTH OF YOMI 
LOWER LIMIT CHECK 


UPPER LIMIT CHECK 


€ CX ) -- VALID GIVEN LENGTH OF YONI 


YOMI LENGTH IS VALID 
YOMI LENGTH EXCEPTION 


30 0000000000000 EOE 
>™ PROCEDURE NAME: HRGCK 


3" FUNCTION: HIRAGANA CODE CHECK 


AND GENERATE DICTIONARY-LIKE YOMI ID " 


3330000000000 000 OTE DOO 


3 
HRGCK PROC NEAR 
PUSH ol 
PUSH SI 
mov SI,0 
MoV 1, 
PEPE TEE EEE ELE SE 
HRGOS: INC DI 
SUB AX, AX 
Mov AL .KKYOMICDI) 
CMP AX, 009FH 
JB HRGEXCP 
cmp AX, OOFEH 
JA HRGEXCP 
AND AL,7FH 
MOV KKGVNYM(DIJ,AL 


LOOPNZ HRGOS 
3000000000000 


SUB AX, AX 

MOV AL, KKYOMIL 

OR L,80H 

MOV KKGVNYM, AL 

OR KKGVNYM( D1), 80H 

SUB AX, AX 

SMP SHORT HRGO9 
HRGEXCP: MOV AX, KKECYMHR 
HRGO9: POP sI 

PoP oI 


RET 
HRGCK —ENDP 


; 
3 
$ 
3 


: 
. 
3 
t 
$ 
$ 
3 
3 
3 


We we we we we we we we ee ee we 


NEXT HIRAGAHA CODE 


LOWER LIMIT CHECK 
UPPER LIMIT CHECK 


RESET DELIMITTER 
COPY A HIRAGANA CODE TO WORK AREA 


YO 1D TH DICTIONARY 
YOM! ID IN 
OF TRST HIRAGANA IS OVERIDED BY 
LENGTH OF YOMI 
DELIMITTER OF YOMI ON 


HIRAGANA CODE IS VALID 
EXCEPTION 


300 0000000000000 OE PTT 11111 lslelslelstaiebeetelolalatatale! 
;" PROCEDURE NAME: aCCOICT 0 0 DO a 


| 
ACCDICT PROC 


re! 
3M 


3M FUNCTION: DICTIONARY ACCESS 


NEAR 


" 
3 000200000000000000000000000000008 000000 QDR IBDUDO REDO REOOOOL 


3100000000000 0000008000 OE 


FETCH TOP ADDRESS OF DICTIONARY i 
AND LENGTH OF INDEX 
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OF11 


OF2A 
OF2A 
OF2C 
OF2F 


OF31 
OFSS 


OF3S 
OF36 
OF38 
OFSB 
OFSD 


EB 10D1 R 


E8 OFZAR 
85 CO 
75 OE 
E& OF60 R 
85 CO 


75 07 

E& OFC4E R 
8B 3E 0140 R 
cs 


2B CO 

AO 0119 R 
24 =7F 

2c 1€ 

DO EO 

57 

03 F8& 

26: 8B O05 
86 EO 

SF 


3D FFFF 
74:16 


$3 
56 


8B FA 

EB 1080 R 
8B OE 0116 8 
3A QE 0118 R 
7D 23 


O3 F9 
47 


83 F9 61 

75 01 

47 

26: 80 3D 81 
74 OF 

26: 80 3D 80 
74 «09 

ES 1080 R 
8B OE O1lG R 
EB oc 

BS 0001 

EB 0D 


SA CE 0118 R 
7F 04 


71(001001008000800800000000000000000000000000000000000000000000NO0D00NNNE 
CALL GETOICT 
FE OOO EID IIIT IIIT III 
SEARCH DICTIONARY 
}11100000000000000000000000000000000 EARLE eee ee anounionbanooneR! 
CALL CALAD9G / DICT 96-ON-SAKUIN 
TEST AX, AX AX -~- RETURH CODE 


JNZ ACCDO9 ; 
CALL NDXSRC 3 SEARCH YOMI IN INDEX 

3 IM 1: DX YOMI ID IN IHDEX 
3™ OUT + DI YOMI ID IM DATA 
; A 


TEST AX, AX X --- RETURN CODE 


JNZ ACCDO9 5 
CALL YMSRCH 3 SEARCH YOMI IN DATA 
DI,KKDICOFF 3 FIRST CANDIDATE 


MOV 
ACCDO9: RET 
ACCDICT ENDP 


PROCEDURE NAMES CAA aaa a MIMI CO 


3™ PROCEDURE NAME: CALAD96 


" 
: FUNCTION: CALICULATE Hi OWN INDEX ADDRESS 


CALADS6 sue NEAR 


UB AX, AX 3 
mov AL, KKYOMI : ate CHARACTER OF GIVEN YONI 
AND ’ SET DELIMITTER 
§lroswseres=a5 mame eee ¢ SAKUIN, ADDRESS CALCULATION )-------~----.y 
SUB AL.1EH : 
SHL AL,1 MULTIPRY 2 
lem eeen---- ¢ END o 96 ON SAKUIN’ ADDRESS” CALCULATION LOGIC )---~-----4 
PUSH 3 
ADD DI,Ax 3 TOP AND DISPLACEMENT ---> appress 
MOV AX, ES: CDI) 3 AX: INDEX ENTRY DISPLACEMENT @) 
XCHG AH, AL 3 
PoP DI 3 ES*DI-->TOP OF DICTIONARY 


3 aaiaaeciapaaiaamaatimapaiaing erg rg rig errr ll 


LIMIT CHECK OF 96 INDEX POINTER “ 


CMP AX,-1 


NO ENTRY OF POINTER 


JE CALAG2 ; 
CMP AX, 00C2H 3 LOWER LIMIT CHECK 
Jt CALAOS 3 
cmP AX, 7 FFFH 3 UPPER LIMIT CHECK 
JG CALAOS 3 
ADD AX, KKDICOFF 3 ADD DICTIONRY TOP OFFSET 
Mov DX, AX + DX : INDEX OFFSET SAVE REGISTER 
Sus AX, AX 3 NORMAL RETURN 
JMP SHORT CALAO? 3 
CALAO2: MOV AX, KKECHOTF } EXCEPTION * YOMI NOT FOUND * 
JMP SHORT CALAO9 ; 
CALAO3: MOV AX, KKECDICT 3 
3 


CALAO9: RET 
CALAD96 ENDP 


3™ PROCEDURE NAME: NDXSRC 


Efe FUNCTION: SEARCH YOMI IN INDEX 


3m nu 
3 20000 2001000900000000000000000000000000000000000N00NNNNANHENNNNNNDNDE 


NDXSRC PROC NEAR 
PUSH BX 
SI 


EXCEPTION * DICTIONARY FORMAT ERROR * 


3 
3 


PUSH 
3000000000800 00000000000000000000000000NNNNRONOONONENHGNNNNANNDL 


SEARCH YOMI INDEX 


# #21000010000000000000000000000000000000000000000000000000000000 000000001 


MOV DI,0x 


+ OFFSET OF YOMI ID IN INDEX 


CALL YMLENC 3 GET YOMI LENGTH IN DICTIONARY 
MOV CX, KKLENYN 3 (CX) YOMI LENGTH ON DICTINARY 
NDXIF: CMP CL. KKYOMIL 3 KKYOMI IS * GIVEN YOME LEXGTK ° 
IGE NDX2CAS 3 
aoD DI.Cx 3 
INC LD ¢ 3 DI -~ NEXT YOMI ON INDEX 
i COLI+L42-1 ==> CDI) 
CMP Cx.1 
JNE NOXSKP 
INC oI 
NDXSKP: CMP BYTE PTR ESt(DI),81H 3 NEW FIRST YONI 
JE NDX2ELSE 
CMP BYTE PTR ES:(DI),80H 3 NEW FIRST YONI 
JE NOX2ELSE 
CALL YMLENC 3 GET YONI LENGTH IN oe 
MOV CX, KKLENYM ; YOM! LENGTH --> 


JMP SHORT NOXIF 
elelbelella ti LELELEELELL ttt 


NOX2ELSE: MOV AX, KKECNOTF 


JMP SHORT NDXECAS 


3 YOMI NOT FOUND 


3000000000000 0000000000008 Q 008 UOR00NNNNON|||||N|NINANE 


NOX2CAS: CMP CL.KKYOMIL + COMPARE GIVEN YONI LENGTH WITH 
JG NOX3CAS 

‘? fe wert wares -( INDEX YOMI LEN. = GIVEN YOMI LEN, =" 
SUB AX, AX + YOMI FOUND IN DICTIONARY 
JMP SHORT NDXECAS 


edelebebebdebbl DEL OLLLLELULULiLLLLiLiireretirettrrerriti titi TTT TTT Tri ttit 


NDX3CAS: MOV AX, KKECNOTF 3 EXCEPTION * YOMI NOT FOUND ' 
NDXECAS: CMP AXx,0 H RETURN CODE -- ( AX ) 
JNE NOXNEXT 
MoV Bx, DI 
CMP CX,1 
JE NDX000 
DEC cx 
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52 


56 
80 SE 0118 R O1 
75 OB 


26: 88 3D 81 
75 52 

E8 1058 R 

EB 50 


26: 80 3D 86 
75 03 

83 C7 O1 

26: 80 3D 81 
75 05 

EB 103E R® 

EB FS 

26: 86 3D 80 
75 05 

BS 0001 

EB 31 

26: 80 3D 81 
74 28 

8B D7 


€8 102D R 
76 13 


FA 
EB 103E R 
26: 80 3D 81 
16 


26: 80 3D 80 
10 
EB £6 


FA 
E8 102D R 
75 07 


BFA 
EB 1058 R 
BOS 


B& 0001 
FA 


28 C9 

2B F6 

8D 36 OC10B R 
46 

8A OE 0118 ® 
49 

F37 AG 

cs 


EB 10C1 R 

3D 0000 

75 OL 

46 

OS F8 

26: F6 05 80 
75 05 


83 C7 02 
EB FS 


NDX000! 


re E 
MX OH 


3« PROCEDURE N 


yu FUNCTION: YOMI SEARCH 
701 900000000080008000000880000008 


H PROC 
Yesrc PUSH 


PUSH 
cMP 


E 
§9810000000 1000009000 0000008 


Fa! 
7 UBGOB0080000T 
CMP 


JMP 


$900000000000000080000000000008008080C00000000800000800¢ 
He GIVEN YOMI LENGTH NOT } 
720000000000000008080000000000008000000000000000006 

BYTE PTR ES:(DIJ,80H 


YesRoS: CMP 
JNE 


YMSRLOOP 
re: Dire PTR ESeCDID BIN.» Ch. CONTE 
fi t ° ; . 
YesRLOOP: CHP i a OMT LENGTH INDICATION ¢ L=1 ) 
CALL YMNEXT 3 SEARCH NEXT ENTRY 
IMP SHORT YMSRLOOP ; + YOns 3 
Yusro7: CMP ee Tie ES: CD13, 80H + CF. YOMI LENGTH INDICATION 
MOV AX, KKECNOTF 3 EXCEPTION ° YOMI NOT FOUND « 
JMP SHORT VUSRO? aay 
YMSRO8: CMP BYTE PTR ES: . 3_CF. YOMI LENGTH IND = 
JE YMSRER 3 EXCEPTION * YOMI NOT FOUND SON hone 
YMSRLOPZ’ TY YOHTC ; SOMPARE GIVE 
c 3 N YOMI AND ON 
er wees : DICTIONARY 
a lc ai aa woor--C( GIVEN YOMI > DICTIONARY YOMI )----- “ 
MoV DI,DX 3 RETRIEVE YOMI ID ADDRESS 
CALL YMNEXT 3 SEARCH NEXT YOMI EXTRY 
CMP BYTE PTR ES:(€DI),81H ; CF. YOMI LENGTH IN 
JE YMSRER 3 EXCEPTION ° YOMI NOT FOU 
cmp BYTE PTR ES:({DIJ,80H ; CF. YOMI LENGTH IN 
JE YMSRER 3 EXCEPTION * YOMI NOT FOU 
JMP SHORT YMSRLO 3 CONTINUE SEARCH YOMI AND COMPARE 
5 Ween nn -- een n nn ----- == ( END OF GIVEN YOMI > DICTIONARY YOMI )-~~--- " 
YMSRO9: MOV DI,DX 3 RETRIEVE YOMI ID 
CALL YOMIC 3; COMPARE GIVEN YOMI AND ON DICTIONARY 
JNE YMSRER 3 GIVEN YOMI < DICTIONARY YOMI 
MOV DI,DX 3 RETRIEVE YOMI ID 
CALL SETCAND 3 SET CANDIDATES TO OUTPUT BUFFER 
JMP SHORT YMSR99 
Skwowrecserere SOSA Oe te hee ee ee ee ee ee SS Se am em aan eae eee SAS nee Sess Sewanee = i 
YMSRER: MOV AX, KKECNOTF 3 EXCEPTION * YOMI NOT FOUND ' 
YMSR99: MOV 1,DX 3 RETRIEVE YOMI ID ADDRESS 
PoP SI 3 
POP DX 3 
RET 
YMSRCH EXDP 
3000000000000 000080 RTO OOOO 
3% PROCEDURE NAME: YOMIC “ 
3™ FUNCTION: YOMI COMPARISON ( GIVEN YOMI AND ON DICTIONARY ) x" 
rt 
30000001000008000000080000 80000000 OOOO OOOO 
YOMIC PROC HEAR 
ae S43 
s , Hi 
LEA SI,KKGVNYM 3 KKGVNYM CONTAINS DICTIONARY LIKE YOMI 
INC $I 3 COMPARE FROM SECOND CHARACTER OF YOMI 
MOV CL, KKYOMIL 3 GIVEN YOMI LENGTH 
DEC cx 5 MMM 
REPE CMPSB 
RET 
YoMIc ENDP 


Xx, CX 
oes: (BX) 
AH,AL 
DI. AX 
AX, 
DI.KKDICLN 
DI, KKDICOFF 
SI 
BX 


AME: YMSRC! 


NEAR 
x 


sI 
KKYOMIL,1 
YMSROS 


3 
3 
3 


3 


190090000000002000020000000000 0000000000004 
IN DATA 


LI 
3 


3 
3 
3 


Lill LLULULEELE ttt t 
GIVEN YOMI LENGTH = 


(_ES,BX ) -~> po 
FETCH POINTER FROM Fepit THDEX 
DI --~ POINTER DATA of Dic 


TIONARY 
DICTIONARY 
( ES,DI INDEX LENGT 


y ==> D 
YOMI In DICTIONARY DATA 


200000000000 G00E 


COO OOOBONOORONOODOOC OLE ™ 
Pere! 


YOMI LENGTH COMPARISON 


20000000 O0OOE 


PLE LLL Lillie iellelelititel LULL LELLi tt ttt] La 
BYTE PTR ES:(DIJ,81H > YOMI ID COMPARE MM IOC C00 


YMSRER 
SETCAND 
SHORT YMSR99 


a 


RE 


GET FIRST CANDIDATE OFFSET anp 


bbb ELLCL LITT Tt ere 


« 
2080000000000 


3 910000000000000000000000000000 0000000000000 202 VU OND IVOVOE IEEE IRIS 


3" PROCEDURE N 


AME: YMNEXT 


3M FUNCTION: SEARCH NEXT YOMI IN DATA : 


“ 
3m 
3 
31000000000, 00000000000 00 0900000000000 00000 0000000000000 0000008000820 OE 


YHNEXT PROC NEAR 
CALL LENGYM 
CHP AX, 
JHE = -YMSKP 
INC AX 
Yruoor, TEST BYTe™ é 
1 E PT 
NZ. YHNXog © CS *COII.80H 


+ GET YOMI LENGTH ON DICTIONARY 


ARACTER OF 
ES¢+DI--> NEXT OF LAST CH 
; CHECK DELIMITTER 


PEL TT EE LLL Li Leber tg 2000000000000 00 OOOO rT 
{000000000 OOOOT x 


ri! 
; 
HL billet LLL itt 1 ttt 


ado 
JMP 


SHORT YMNXLOOP 
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NON LAST CANDIDATE 
PEP ECLELT CULL ULL ilalelal TE 
3 POINT TO NEXT CANDIDA 


1088 


m eo0c00000 FDODNNN |A|ANANAN AAS 


83 C7 02 
cs 


89 SE 0140 R 
8C 06 0142 R 
28 


F6 
26: F6 05 80 
75 05 
E&8 10C9 R 
EB FS 


E8 10C9 R 
2B CO 
cs 


BS 0000 
26: 80 30 81 
74 «1€ 


26: 80 3D 80 

74 20 

BY 0002 

26: Fe 05 80 
5 09 

83 F9 07 


89 +f 0116 R 


Cc? ae O116 R 0001 
Cc? 4 01236 R 0000 


83 C7 02 


53 

50 

1E 

28 DB 

8E DB 

BB O1LES 
C4 SF 

26: 8B 05 
86 EO 

1F 

AS OL1I2 R 
89 SE O140 R 
58 

5B 

cs 


ut eel elder arts rer eee ee 


LAST CANDIDATE 
##9000000000000900090000000000000000003010000000000000000000 040000000008 


YMNX06 : ADD DI,2 
RET 


. 5 POINT TO SECOND CHARACTER OF YOMI 
YMNEXT ENDP 
Jon oore ooo ganene a acanxan ano SHANNON NAAN 
3™ PROCEDURE NAME: SETCAND 

A FUNCTION: SET CANDIDATES TO OUTPUT BUFFER : 


}1900000000001900039000001800000000oonQGnbOONsOBNNNHOOOOLOBBOEABEENOOONar 
SETCAND pROe HEAR 
UB 


AX, AX ; 
MoV Rue KKYOMIL 3 ( AX ) GIVEN YOMI LENOTH 
CMP X,2 
Jt SEtSe 
DEC 3 CF. YOMI LENGTH IUNDICATE 
SETSKP: ADD Or Ax 3 ( ES,DI_) POINT TOP OF CANDIDATES 
MOV KKDICOFF, DI 3 SAVE OFFSET OUTPUT OF THIS ROUTINE 
MoV eee ; aa SEGMENT OUTPUT OF THIS ROUTINE 
SUB SI,SI 3 P OF OUTPUT BUFFER 
SETCLOOP: TEST oe. EAR Es:(bI), 80H 3 IF LAST CANDIDATE FOR THAT YOMI 
JNZ SE 3 THEN JUMP 
}nononnbmon oo Donk ERAN An RNR EN 
7” HOM LAST CANDIDATE 


3 9010000000000000000000000000000000000000000000000000000000000000000000" 

CALL SET2BKJ 

SHORT SETCLOOP 

) saliciecianiaaiamadiiaualanmiiniaiias: "9 (5), Seca idles 
tial LAST CANDIDATE 
3 9100900000000000000000000000000000000000000000000000000000000000000000001 
SETCOG: 

CALL SET2BKJ 

SUB AX, AX 3 MORMAL RETURN 

REY 


SETCAND ENDP 

Bae CAROL CLORE GAEL CHEE a NNR AAR mE RHEE 
+" PROCEDURE NAME: YMLE 

+" FUNCTION: COUNT LENGTH OF YOMI ON DICTIONARY . 
“ 

3 109000000000000000000000000000000000000000000000UnonnHOnOOHNONOEBOEBHORE 

YMLENC PROC NEAR 


PUSH DI 
PUSH cx 
PUSH BX 
MoV AX,0 
ai we ES:(DIJ,81H 3 CF. YOMI LENGTH INDICATION 
J MLC 
CMP BYTE PTR ES:(DI},80H 5 CF. YOMI LENGTH INDICATION 
JE YMLC2 
MoV cx, 
VMLREP: TEST BYTE PTR ES:(DI),80H_ 3 IF LAST YOMI CHARACTER 
JINZ YMLREPE ; THEN JUMP 
CMP CX.,7 + YOMI LENGTH LIMIT CHECK 
JG YMLERR 3 YOMI LENGTH ERROR 
INC cx + COUNT YOMI LENGTH 
IWC DI ; 


POINT TO NEXT CHARACTER OF YOMI 


JMP SHORT YMLREP 

YMLREPE: MOV KKLENYM, CX 3 SET YOMI LENGTH >= 2 
JMP SHORT YMLEND 

YMLCL: MOV KKLENYM, 1 3 SET YOMI LENGTH IS 1 
JMP SHORT YMLEND 

YMLC2: MOV KKLENYM,0 3 SET YOMI LENGTH IS @ 
JMP SHORT YMLEND 

VERE. MoV AX, KKECDICT + EXCEPTION ' DICTIONARY FORMAT ERROR * 

Hy 

PoP BX 
POP cx 
POP or 


RET 
YMLENC ENDP 
3000000000000000000800000E 
LENGYM PROC 
CALL YMLENC s 
MOV AX, KKLENYM s 
DEC ax ‘ 


RET 
LENGYM ENOP 
3000000000000 00L 
SET2BKJ PROC 


ADD DI,2 ’ POINT TO NEXT CANDIDATE 
ane KKOHOSUU i INCREMENT CANDIDATE NUMBER 


SET2BKJ ERDP 
JOD O00000000000800D00DE 
GETDICT PROC 


AX = YOMI LENGTH ON DICTIONARY 


PUSH Bx 

PUSH AX 

PUSH os 

SuB BX, BX 

MOV DS.Bx 3 is pC ONTATAS ZERO 

MoV BX, TOP ' ~~ INT JA MG 

LES DI.0S: (BX) 3 cer PARAMETER FOR DICTIONARY (€ SEG & OFF ) 
MOV AX, ES: CDI) ¢ DICTIONARY INDEX LENGTH --- AX 
XCHG AK,AL 3 

PoP os 3 RETRIEVE DATA SEGMENT 

MOV KKDICLN, AX 3 DICTIONARY INDEX LENGTH 

MOV KKDICOFF,DI 3 DICTIONARY TOP OFFSET 

PoP AX 

POP Bx 

RET 
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10E€D 


co 


0107 
FF 


OOF1 
OOFC 


Raw 


GETDICT ENDP 
; Fy tebeialelaelaielaiaeleiallahlaioaiaeiaaiaaaaiaeieiiieebbebeea LLC Tt tT) 


im PROGRAM NAME: KKDISP 
i DESCRIPTIVE NAME: DISPLAY YOMI AND BAGOU 


iH FUNCTION: THIS ROUTINE DISPLAYS DATA: AND SETS CURSOR 
iX LINKAGE? CALL 

i¥ INPUT: KANA-KAN COMMON TABLES 

iM OUTPUT: KANA-KAN COMMON TABLES 

ix RETURN CODES: (AX) 

zm 0 - SUCCESSFUL 

de 1 - INVALID OPERATION 


ae EXTERNAL REFERENCES: 

He ROUTINES: NONE 

he TABLES: KANA-KAN COMMON TABLES 
s® REGISTERS: AX - RETURN CODE 


He ALL OTHERS UNCHANGED 
pe CHANGE ACTIVITY: VERSION 00.00 
3M 


ooo aodonEH HRA KKDISP eeennaaKOnneEHRNOMAMNRR RNR 
“ ENTRY OF KKDISP x 


a" 
; SAAS n Ci icici seam aces euaciacn oe naRiAirne einai 
RKDISP PROC JOU 00016 0000 





PUSH $I ;SAVE REGISTER 
PUSH DX 
PUSH aX 
ee oe ee ee Sere ss 
im DISPLAY DATA . 
DISO10: ii 
mov DX, DSTRTP ;LOAD START POSITION 
CMP DX, OFFFFH ;ONLY CURSOR DISPLAY 2 
JE DIS020 ; YES. GOTO 
Mov SI, KKINP ;LOAD INPUT BUFFER POINTER 
MOV DH,KKOILP 
pIso12: 
mov AL,KKINBUF(SI] ;LOAD DISPLAY DATA 
CALL WISP ;DISPLAY DATA 
MOV AX, DENDP ;LOAD END POSITION 
CMP AL, DL ;FINISH DISPLAY 
JE DI$020 YES .GOTO 
INC DL ;CURSOR POSITION 1 UP 
ADD $I, D03 ;RENEW INPUT BUFFER POINTER( #3) 
MP SHORT DISO12 
3 Mmmm wwe nn ee eee e ers en== Saws Tena Sa = mms: SSeS e— SSS S=S== ewe eee———N 
3M SET CURSOR : 
SEER 9D crreonci EEOC SSSA Sati ea ee eet a watesecosy 
DIS020: 
mov DX, DCRSRP 
MOV KKCUSR, DX ;SAVE NEW KANA-KAN CURSOR POSITION 
MOV DH, KKOILP ;LOAD OIL POSITION 
MOV AH, VSETACP 
INT VIDEO SET CURSOR POSITION 
PUSH DX + PUSH DX 
MOV AH, VRDACP ; 
INT VIDEO ; READ CURSOR TYPE 
AND CH, NOT CURSOR_DISABLEs CURSOR DISABLE BIT OFF 
MOV AH, VSETACT 
INT VIDEO SET CURSOR TYPE 
POP DX ; RESTORE DX 
tate 
He RETURN 
LR alle oo 
: XOR AX, AX SET NOMAL RETURN CODE 
POP BX ;RESTORE REGISTER 
POP DX 
POP SI 


sRETURN TO CALLER 
70000000000000000000000000000000000008000800 0000000000000 00 000000 


KKDISP ERDP 


u n 
i PROGRAM NAME: KKWOIL x 
3m nu 
5 DESCRIPTIVE NAME: DISPLAY OPERATER INFORMATION ILNE x 
; u 
ta FUNCTION: 1. WRITE OPERATOR INFORMATION LINE x 
; 2. CLEAR OPERATOR INFORMATION LINE " 
3m 3. INITIALIZE INDICATOR x 
a ” 
3 LINKAGE: CALL x 
; u 
ie INPUT: BL = Q - WRITE OTL " 
3m 1  ~ CLEAR O a 
a SOK - INITIALIZE INDICATOR x 
ix AH = CHARACTER ( ONLY BL=0 ) m 
3K AL = ATTRIBUTE ( ONLY BL=0 ) x 
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Clolededaledlelotolote 
02 Pe Pe Oe Dee be tee pee pee pe 
PRPS PUUUW 
BorseenHhwrowo 


hed aed eek) 
ede odode 
evrvuvuMu 
NNBOYUNA 


Oe eb ee ee he ee 
ee ee ee 
NVVOooaeoe 
NUCODBMaOneD 


oe ee oe me hee oe pe ee ee oe ee we he ee ee ee 
oe me me oe be oe oe ee be oe we be Oe 
SITU r rr yr Fr ODDOCORO OOOO ONc 
SeuUKMoesnomoarvuommvszr-oo 


1180 R 
28 


1538 R 
c 


1EBR 
16 


co 


06 0101 
06 0102 
1538 R 
16 0001 
LIEB R 


06 0101 


1 
16 OOFF R 
1 


ROS 


R04 
R 04 


R 00 
ROC 


+m DI = POIKTER IH OIL ¢ OHLY BL=@ ) " 
H OUTPUT: DI = DI + 2 ¢ ONLY WRITE OIL ) M4 
He RETURN CODES: (AX) : 
im 0 - SUCCESSFUL 
7m 1 ~ INVALID OPERATION x 
He EXTERNAL REFERENCES: 
i ROUTINES: NONE " 
ix TABLES: KANA-KAN COMMON TABLES " 
bE aE eT Se aon 
im CHANGE ACTIVITY: VERSION 00.06 ; 
3 

Anon NAINA NDNA ON NAR NRNN 
300000000000000000000006 KKWOIL EERE ELSES SRR 
ix ENTRY OF KKWOIL ; 


3 9090000000000000000000000000000000000000000000000000000000000000000n00NNOEE 
KKWOIL PROC 





PUSH ox SAVE REGISTER 
PUSH cx 
PUSH BX 
CMP BL,DOO ee ee IS TO WRITE OIL ? 
JE WOI010 + YES. GOTO 
cmMP BL,DOL iREQUIREMENT IS TO CLEAR OIL ? 
JE WOI020 3 YES. GOTO 
CMP BL,D80 sREQUIREMENT IS TO INITIALIZE INDICATOR ? 
JE WOI040 3 YES. GOTO 
JMP SHORT MOIRTH 
5 New n nnn nnn nnn nnn nn no n= oo n+ lalate atari 
3m WRITE OIL " 
were ern eo oon =e Se ten tm n new nnn mewn nnn ewww nnn nnn enn ey 
WOIO10: 
CALL WROIL sWRITE OIL 
JMP SHORT WOIRTN 
3 Nowe nnn n----- 22 ----- +--+ 3 +++ tetas aalatatatatattatetataatetee tt | 
3 CLEAR OIL " 
3 Were nnn nee ooo +--+ woere---- = weceen Staats Sattar | 
WOI020: 
CALL CLOIL sCLEAR OIL 
XOR AL,AL 
MOV AH,DO7 
INT 16H sINDICATOR ON 
MoV DX,APKBDST sLOAD KBD STATUS FOR APPLICATION 
CALL WKBDST sRESET KBD STATUS FOR APPLICATION 
JMP SHORT WOIRTN 
§ Wewnenn------------ == were r nena seen nn --------- ee tenet | 
+” INITIALIZE INDICATOR " 
3 Wem nnn nnn =~ ee. weennn---- weccet----------- wocce nena n ann 
Worose: | 
MoV AH, DO2 
INT 16H sREAD KBD STATUS 
MOV APKBDST,AX sSAVE KBD STATUS FOR APPLICATION 
MOV DX, AX LOAD KBD STATUS 
AND DH, OF9H 
OR OH, HSHIFT sCHANGE INDCATOR INTO HIRAGANA 
MOV KBDSTAT,DX sSET KBD STATUS FOR APPLICATION 
P CALL WKBDST sWRITE KBD STATUS 
; RETURN 
pM eee enn nee wewwecce 
WOIRTN: 
XOR AX, AX 3SET NOMAL RETURN CODE 
PoP Bx BRESTORE REGISTER 
PoP cx 
PoP DX 
T sRETURN YO CALLER 


RE 
KKWOIL ENDP 
3M WROTL {0000000000000 0000000000000 2V NORV RURROR RONDE 
3M 


u 
im WRITE OPERATOR INFOMATION LINE " 


" 
jw een KN inc cron 
WROIL = =PROC 


PUSH = aX 
CALL ERASE_CURSOR 3 ERASE CURSOR 
CMP ryeane TV4011 = 3TV MODE IS 40m11 
JNE WROO 3 NO. GOTO 
cMP DI DOO sFIRST CALL t 
JNE WROO1O 3 NO. GOTO 
CMP KKMODE, SELECTH SKANA-KAN MODE IS SELECT 2 
JE WROO 3 YES. GOTO 
cMP BL DHODE, SELECT 30LD KANA-KAN MODE IS SELECT ? 
JNE WRO 3 NO. GOTO 
XOR ALO AL 
MOV AH, DO? 
INT 16H sINDICATOR ON 
MOV DOILP,CLINDIIP SET DATA POSITION OF INDICATOR 
MOV DOILN,CLINDLIN ;SET NUMBER OF INDICATOR DATA 
CALL CLOIL sCLEAR OIL 
MOV DX, KBDSTAT 3LOAD KANA-KAN KBD STATUS 
CALL WKBDST sDISPLAY INDICATOR 
WROOOOL: 
MOV DOILP,DOILP1IK sSET DATA POSITION OF OIL 
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Appendix A. 


118D 
11c2 


C6 06 0102 R 1C 
EB 17 


80 SE 0194 R O04 
74 06 


C6 06 6101 R 08 
Cé 66 8102 R 28 


8A 16 0101 R 
8A 36 GOFC R 
03 D7 


38 
E8 1557 R 
47 
cs 


AG 0000 R 
24 82 
3c 82 
74 33 
AG COFO R 
as 61 
74 09 


8D 06 0003 R 
E&8 8CF2 R 
EB 52 


8B IE O0E6 R 
3B 1E OOEA R 
74 03 


EB CESAR 


8D 06 COOS R 

BA 16 GCOFO R 

80 OE OOFO R 80 
E&8 OCF2 R 

88 16 OOFO R 

EB 2F 


8B LE OOEG R 
83 EB 06 
89 1E OOFL R 
B9 0006 
8D 36 0003 Rk 


BA 046 
88 87 COOO R 
43 


46 
49 


DOILN, DOILNA1K 

Hoy = SHORT WROO10 
WROOOO? A, OLDMODE, SELECT 

JE WRO002 

wov AL, DO2 

roy. CAH, DOT 

TXT 16H 
wroooz? |, = port, DOILP11S 

Moy _—«ODOTLN, DOILNAS 
WROOLO! DL, DOILP 

MoV _—«ODH- KKOILP 

ADD «DX, DI 

pop. AX 

CALL. WDISP 

Inc DT 

RET 


sSET NUMBER OF OIL 


s0LD KANA- 


KA 
; YES. Goro.” "OPE XS setecy » 


sINDICATOR OFF 
sSET DATA POSITION 


sSET NUMBERS OF OIL 
sLOAD DATA POSITION 


sLOAD OIL PoSsTT 
;ADD OIL POINTER” 


sDISPLAY DATA 
301 POINTER 1 UP 
sRETURN TO CALLER 


DATA 


OF oy 
DATAS 


OF OIL 


WROIL ENDP , 
320008 WKBDST 101000900000000000000000000000000000000000000000000004 
PErertt ty 


ia WRITE KEYBOARD STATUS 
3m 


3” 
3 90000000000000008000000000000 0000 DIINO NE 
900030 36 De be oe 


WKBDST PROC 
XOR 


AL, AL 

TEST DH, ZMODE 

JZ WKBO1O 

OR AL,ZMODE 
WKBO10: 

AND DH, KBDMSK 

ROL DH,1 

OR AL,DH 

TEST DL,CAPSST 

JZ WKBO20 

OR AL,CAPSON 
WKBO20: 

OR AL, KKNOCHG 

MOV AH,DOS 

INT 16H 


RET 
WKBDST ENDP 


3 DX : KBD STATUS 


sZENKAKU MODE ? 
sZENKAKU MODE ON 


sSET SHIFT 
3sCAPS LOCK ? 


sCAPS LOCK ON 


sKANA-KAN REQUIREMENT NOT CHANGED 


sWRITE KBD STATUS 
sRETURN TO CALLER 


3x SUBROUTINE 


ri] 

3x NAME + KKGRP 

ra 

3m 

3m 

7m 

3" 

KKGRP = PROC NE 
MOV AL,DSTAT 
AND AL, DAKUF+ZEN2F 
CMP AL, DAKUF+ZEN2F 
JE KGR300 
mov AL, KKWINST 
TEST AL, 000O0001B 
JZ KGR100 

sumone INSERT MODE MMMM 
LEA AX, KKKYDCD 


CALL KKINST 
JMP SHORT KGR9O00 
WOT INSERT MODE 


3 
3 


5 
3 


3 CHARACTER INSERT 


70000000000000000000000000000000000000000B0QQ000000000000 RDI II IE 
AR 

GET INPUT CHARACTER STATUS 

DAKU/HANDAKU TEN & ZENKAKU CHARACTER 


GET INSERT MODE FLAG 
INSERT MODE CHECK 


ADJUST END OF POINTER 


3 
i PTR KKINBUFCBX),AL 3 SET CHARACTER COD 


RESTORE INSERT MODE FLAG 


000008 Pett | 
KGR100: 
MoV BX, KKWCCA 
CMP BX, KKWEOP 
JE KGR110 
3 MoV AL, KKINBUFCBXI(29 
3 AKD AL,O1H 
3 INC AL 
; MUL MULOS 
; mov BX,AX 
3 
3 MOV AX, KKWCCA 
; SUB KKWEOP , BX 
CALL KKDELT 
KGR110: 
LEA AX, KKINKEY 
MOV DL, KKWINST 3 SAVE 
OR KKWINST, 80H 3s SET 
CALL KKINST 
mov KKWINST,DL 5 
JMP SHORT KGR900 
;k000008° DAKUZHANDAKU TEN MODE 9 MM MMH 
KGRS00: 
MOV BX, KKWCCA 
SUB BX.6 
MoV KKINP, BX 
Mov CX,6 
LEA ST, KKINKEY 
KGR310: 
MOV AL,DS:(SIJ 
MOV 
IKC 
INC $I 
DEC cx 
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INSERT MODE FLAG 
DUMMY INSERT FLAG 


+ SET DISPLAY POINTER 


GET aeererenne” TEN CODE 


 ehalesherlenledeked dol 


| th aud auth ah aed eh el oe ed ed ed ed eh ed dd 
NANNNANNNNANNNNN NNNAN 
WNKHOMHKOMHmOOwyNN YNNNNS 
SMOBONNO DSN= TOGO BoyUU 


eeahahehed deta tat ed ol 
NANNNNUN NNN 
SNAAANDANAANGesS 
SOTMMNBGAN~ONK—TNAN 


FS 
Al 0105 R 
02 
AS 0107 R 
AS 0109 R 


E8 lLOEDR 
2B CO 


80 £1 7F 
74 (CE 


56 
8D $6 0009 R 
FC 


aD 
C8 1139 R 
%6 


80 El 7F 
74 «DS 

6 

2E: 8A 02 
84 00 

C8 1159 R 
E2 Fé 

46 

EB CA 

50 


KGR9OO0. 
RET 
KKGRP ENOP 


KGR310 
AX, CCRSRP 
AL, 
DSTRTP,AX 
AL.1 
DENDP, AX 


KKDISP 
AX, AX 


§ SET DISPLAY START POSITION 
+ SET DISPLAY END POSITION 


BEFHHTEFEFFESISESESESSE ESOL ESOS ISOS SESEESFESSOSOEOESOEESEDESEEEEEEEESE 
3+ PRIVATE CONSTANT DATA ( FOR KOUTINIT ) + 
SPEETEIESSSESESESETES ESE DSSESES TFET SESE SOFELOSEEEESEOOEOESEDEDES ESS EES 


BASE_FOMAT: 
OW 


se 28 
77> 8 
37 s 
3 SPECIAL CODE 
77 


il s 


se ce 
78>” 
:" * 


3 SPECIAL CODE 
Fil. Wile 


B OFF 
330)000000009000000000000000000000000000008000000008D000000D00N0000H N04 
NE 


TV8025_FMT 
DH TV8011_FMT 
DH TV4011_FMT 
TV8025_FMTs 
TV8O11_FMT: 
OB 03,3DH 
DB 01,3EH 
DB 01,20H 
DB 11%2+80H 
DB 01,2AH 
DB 40,20H 
OB OFFH 
TVSO1LI_FMT: 
DB 03,3DH 
OB 01,3EH 
DB 01,20H 
DB 11*2480H 
DB 01,2AK 
D H 
3m SUBROUTI 
zu 
3m NAME : KOUTINIT 
3m 
zm 
3m 
3m 
3 
310000000 (000020020 
KOUTINIT PROC NEA 
PUSH ES 
PUSH oI 
PUSH SI 
PUSH Dx 
PUSH BX 
PUSH BP 
MOV AL, TVMODE 
CBW 
MoV BP.AX 
DEC BP 
SHL 
MoV 
PUSH 
PoP Es 
MoV BL,0 
SUB DI,OI 
SUB SI,SI 
xO0R CH,CH 
OINTOLO: 
MOV CL.CS:(BPICSI) 
cup CL,OFFH 
JE OINTO60 
TEST CL,100000008 
JZ OINTO4O 


20000000000000000000000000U0 NORD ORO NBD 
R 


x 
x 
x 
" 
x 
" 
x 
" 
x 
x 
+ SAVE REGISTERS 


3 GET VIDEO MODE 


BP.1 + BP xX 2 
ar MnaD PTR BASE_FOMAT(BP) 


3 USB © 10. ZENKAKU 
3 0 + HANKAKU 


: 
3 {0000000000000 00000000 NURGUOGG RO ANG ANRARInE 


3 COG 


37 CUODOUUUOUIUOON 


OrnrTo20: 
AND 
IZ 
PUSH 
LEA 
cio 
OINTOSO: 


DISPLAY INPUT BUFFER 
2001000000000 OU OQUDIIUE 


CL,7FH 
OINTOLO 
SI 


SI. KKINBUF 


KKNOIL 
SI 
OINTOSO 
SI 

SI 


SHORT OINTOLO 


+ GET OFFSET OF INPUT BUFFER 


¢ DISPLAY INPUT BUFFER 


i 2000 000000000000000000 0000000 QQ0D B88 Q0U RON K 


3 KN 

Oro4do, 
AND 
JZ 


INC 
REMTOAOY 


J 
OINTO6O: 
POP 


DISPLAY 0.1.0 FORMAT 
3 G0 000000 0000000 


CL.7FH 
OlNTolO 
Ss! 


ALCS: (BPJISI) 
AH, HANATIR 


KKNOIL 
aaa 


I 
SHORT OINTO1O 


BP 
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JOUR Re 


JU 0000020 220001 OE 


+ GET TO AX HANKAKU CODE 


Appendix A. 


12EC «51 
12ED 52 


12EE B4 83 
12FO CD 10 


12F2 5A 
12F3 80 “r§ 20 
12F8 CD 10 


12FA 59 
12FB CS 


12FF BS 0000 

1302 A2 OOFO R 
1305 A3 OOE6 R 
1308 AS OOEA R 


130E BF 0009 R 


1311 88 OE OOES R 


1315 Al OOFS R 

1319 32 CO 

SIC 83 £9 OS 
F 


4 
1321 B4 00 
1325) BO 2A 


1326 32 Co 


132D Al OOFS R 


1330 25 OOFF 


1333 23 06 OOcCE R 
2£1 F6 26 OSSC R 


133C  A3 00E6 
cs 


INPUT 


ERASE_CURSOR 


PUSH 
PUSH 


MoV 
INT 


POP 
OR 

MOV 
INT 


POP 
RET 


ERASE_CURSOR 


OUTPUT 
VOLATILE 


ERASE_CURSOR ERASE CURSOR 
THIS ROUTINE ERASES CURSOR 


NONE 
NONE 
AX 


cx 3 SAVE CX 

Dx 3 SAVE DX 

AH, VRDACP 3 READ ALTERNATE CURSOR POSITION 
VIDEO 3 

Dx 3 RESTORE DX 

CH,CURSOR DISABLE; SET CURSOR DISABL 

AH, VSETACT 5 Ageing 
VIDEO + SET ALTERNATE CURSOR TYPE 

cx 3 RESTORE CX 

ENDP 


7300000000 DUD RUDE 
A SUBROUTINE EE DO DE D0 3 BE DG 3 3 EE 


3m 
He NAME + KINBFCLR 
3 
3 
3 
3m 
3m 
3m 
3 3000000000000 RUUD UU OE 
KINBFCLR PROC NEAR 
PUSH ES 
PUSH DI 
PUSH cx 
MOV AX,0 
MOV KKWINST,AL 
MOV KKWCCA, AX 
MOV KKWEOP, AX 
CLD 
PUSH DS 
POP ES 
MOV DI,OFFSET KKINBUF 
MOV CX, KKEOPMAX 
IBCLO20: 3; INPUT BUFFER SPACE CLEAR 
MOV AX, KKCHRSP 
STOSH 3s SET SPECIAL SPACE CODE 
OR AL,AL 
STOSB 3s CLEAR SCAN CODE AREA 
SUB CX,3 
JNZ 1BCL020 
MOV AH, HANATTR 
MOV AL, ASTER 
STOSH s SET * ® * CHARACTER CODE 
OR AL,AL 
STOSB 
POP cx 
POP DI 
POP es 
RET 


KINBFCLR ENDP 


73000000000000000000000000000000000000000000000 00 IT TIT 
su SUBROUTINE 


KCALCCH PROC 
MoV 


"AND 
sub 
HUL 
MOV 
RET 


5 
fa NAME + KCALCCH 


700000000080 0000000000000000000000000000000000 0000000 G00 0B GOL 


NEAR 


AX, KKCUSR s GET CURSOR POSIYION 
AX, OOF FH 3 GET X-POSITION 

AX, BASE 

HULOS 

KKHICCA, AX 3 CALCULATE KKHCCA 
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a" 
x 
" 
u 
" 
x 
" 
* 
x 


1340 


eh eel el od ed odd ed odd 
UMUUWWWWWw 
VUUHDDODDA LDH 
USUMAPANRKK oO 


oOuw 


Anu 


NSARDDOUVUEU 
n n 


eed eel eed ek od ood ed od 
UMUUUUWUWU 


03 


51 

22 06 OOE1 R 

8A OE OOES R 

D2 co 

04 01 

2E: F6 26 1340 R 
59 

cs 


Al OOEA R 
2E€: F6 36 1340 R 
2A 


Eq 
03 06 OOEE R 
A3 0105 


R 
C7 06 0107 R FFFF 
E8 10ED R 


Oo1C oOIC 
0o01C oolCc 
0000 oO01C 
0000 0024 


FF OE 0144 R 
01 


AO OOFA R 

8B ES 

83 SE O18E RIA 
oS 


KCALCCW CIDP 
ialalar lateral hl iat hahah aaah aaa ale eel LLL 
Fa SUBROUTINE 


n 
x 
fn] NAME + KCALELI 
x 

a 

3m a 
x 

" 

n 

3 9000000000000000000000000000000000000000000000Q)000000DOUDUDONDOLOR. 
3 


ELMIMVAL DB 
KCALELM per NEAR 


USH cx 

AND AL,ZENATTRI § GET ZENKAKU/HANKAKU ATTRIBUTE 
Mov CL,ROATCHT 3 GET DATA ROTATE COUNT 

ROL AL.CL 

ADD AL,1 + CALCULATE ELEMENT OF INPUT BUFFER 
MUL ELMIMVAL , ZENKAKU ... 6 

tee cx , HANKAKY ... 3 


R 
KCALELM ENDP 
3()300000080000000000000000000000000000000000000000080000 800000 PI VUE 
3m SUBROUTINE 


% " 
rE! NAME » KCSRDSP x 
x 
x 
x 
x 
u 
" 
5 


3000000000000000000000000000000000000000000000000000000000000000000808 
KCSRDSP ieee NEAR 


AX, KKWEOP 
DIV ELMIMVAL 
SUB AH, AH 
ADD AX, BASE + CALUCULATE CURSOR POSITION ( COLUMN ) 
MOV DCRSRP,AX s SET CURSOR POSITION 
MOV pourra OFFFFH 
cee KKDISP 3 DISPLAY CURSOR 


KCSRDSP ENDP 
ERTTPHENIES TEI OSE EEE EEEESS TE EF TESS SEEDS EEE EEESEEEESESEEE EEE EEE EEE 


st PRIVATE CONSTANT < KKOHOEDT > 
SttttPFtttt OEE F ESET TF ESE EEE SEH FESEEE EES OSEbEEEEEE SE ObEeEbEbEEtEEbeooS 
KKBFCAA: 

DH 00238"1,0028 + TV8025 

OW 00281 ,0028 3 TV8011 

DW 0000*1,0028 3 TV4011 

DH 0000"), 0036 5 TV8025 
DECAJST: 

DB OFFH, OFFH 3 DUMMY 

DB 12H,05H 

DB 56H,02H 

OB 28H,01H 

DB 64H,00H 

DB 32H, 00H 

DB 16H, 00H 

DB 08H,00H 

DB O4H,00H 

DB 02H, 008 


DB 01H, 00H 
3 1900000000000000000000000000000000000000000000000N00DNOONODNOUNDONE I 
zm SUBROUTINE « KKOHOEDT 


3m " 
el EDIT DISPLAY BUFFER FOR KANJI SELECT x 
’ % 
3m PARAM ... AX © 0 » CALCULATE KKOHODSP " 
nS! 1 « SET KKOHODSP FROM KKOHOSUU x 
} ean coo oapaonea estan eee Mees OR, MROMOSUU 
KKOHOEDT PROC NEAR 

TEST AX, AX 3 

JZ KHEDO1O 

MOV AX, KKOHOSUU 

MoV KKOHODSP, AX s SET DISPLAY POINTER 

JMP SHORT KHEDO20 
KHEDO1O. 

MOV AL, KHBLK 

MUL DATAO? 

HOV KKOHODSP, AX 3 CALCULATE DISPLAY POINTER 

MoV BX, KKOHOSUU 

SUB BX, AX 3 CALCULATE KKOHOZAN 

MOV KKOHOZAN, BX 
3 30000000000U00DE EDIT DISPLAY BUFFER JO0000000000000D0r 
KHEDO20. 

XOR BX, BX 

HOV AL, KXCHRMD 

CMP AL, MDZENNUM 

JE KHEDO21 

CMP AL, MDKANNUM + NUMERIC YOMI f 

JNE KHEDO22 3 NO. COTO 
KHEDO2). 

DEC KKOHOZAN » KOUHO ZAN 1 DOWN 

MOV BH, NUMYOMFG 3 SET NUMERIC YOMI FLAG 
KHEDO22. 

MOV AL, TVMODE + TV MODE CHECK 

CBW 

MOV BP,AX 

DEC eP 

cue KKHQLEN, 26 

JLE KHEDOSO 
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BD 0003 


8A 26 OOEL R 
Bo 81 

€8 1159 R 

BA 26 OOE2 R 
Bo 79 


E8 1139 R 

C7 06 0146 R 0000 
B6 00 

B2 31 

8B 2E 0148 R 

Dl €S 

83 3E 0144 R 01 
74 4E 


Al OOES4 R 
E38 1139 R 


8A C2 

8A 26 OOE2 R 
€8 1139 R 

SA 

49 

is OE 0144 R 


2 
FF 06 0146 R 
4 


83 SE 0146 R 07 
FF OE 0146 R 


Fé C7 01 
F6 C7? 02 
FF 06 0144 R 


FF OE 0146 R 
80 CF 02 


FF OE 0144 R 


3B 06 O18E R 
7D 02 

EB 26 

FF OL 0144 R 
Al OOEG R 

£8 1139 R 

49 


8B C2 
E8 1139 R 
49 


51 


8B OE O18SE R 
BE OLGA R 


AD 

B4 00 

£8 1139 R 

€2 F8 

2B OE O18E R 
41 

41 

Al OOEG R 

E8 1139 R 

E2 FB 

FF 06 0146 R 


MOV 
BHERSSEs 


s 
KHEDOGO: 
CMP 


JE 
KHEDOGS: 


J 
KHEDOSO: 


KHEDOS1: 
DEC 


JMP 
AEE? 


KHEDO60: 


La 
KHEDO70. 


KHEDO8O: 
INC 
INC 
MOV 

KHEDO81: 
CALL 
Loop 
INC 

KHEDO9O, 


BP,S 
BP.1 


ar oRD PTR KKBFCAALBP) 


+; BP XG 
sGET EDIT 


I10N 
CE TORD PTR KKBFCAALBPJ(2) :GET LENG. OF ea eR, POINT 


Ds 

ES 

AH, ZENATTRI 
AL.81H 
KKHOIL 

AH, ZENATTR2 
AL,79H 
KKHOIL 
KKOHOCNT,0 
DH, HANATIR 
DL,31H 

BP, KXOHODSP 
B 


. 


KKOHOZAN,1 
KHEDOSO 


AX, SPACE 
KKHOIL 
cx 

AX, DX 
Bee 


; 


F CANDIDATA AREA 
DS <--- ES 


SET FIRST CODE 


+ SET FIRST CODE 


SET SECOND CODE 


+ SCT SECOND CODE 


~ 


~ 


~ 


SELECT NUMBER 
SELECT NUIBCR 


SET HANKAKU SPACE 


SET SELECT NUMBER 


SI,DWORD PTR KKDICADR ; GET OFFSET 8 SEGMENT ADDR. 


DX,DS:(SI](BPJ 


DL,DH 
DH, 10000000B 
tata 


DS 


AL, DH 

AH, ZENATTRI 
KKHOIL 

cx 


AL,DL 

AH, ZENATTR2 
KKHOIL 

Dx 

cx 
KKOHOZAN 
DX 
KKOHOCHT 

BP 


BP 

KKOHOCNT,7 
KHEDOGO 
KKOHOCNT 
SHORT KHEDO8O 


BH, NUMYOMFG 
KHEDO52 

BH, NUMSKIP 
KHEDO51 
KKOHOZAN 
KKOHOCNT 

BH, NUMSKIP 
SHORT KHEDO40 


KKOHOZAN 
SHORT KHEDO8O 


AX,CX 

AX,2 

AX, KKHQLEN 
KHEDOGO 
SHORT KHEDO80 


KKOHOZAN 


AX, SPACE 
peo 


x 
AX, DX 
ieee 


cx 
CX, KKHQLE! 


GET KOUHO KANJI CODE 


EDIT UPER CODE 


s SET UPER KANJI CODE & ATTRIBUTE 


~ 


~ 


- 


wee ee 


es 


~ 


3 


SET LOWER KANJI CODE & ATTRIBUTE 


NEXT SELECT NUMBER 
RENEW KOUHO POINTER 


IF_SELECT NUMBER >= 7 
THEN REPEAT 
ADJUST KOUHO COUNT 


FORCED ADJUST *ZAN"™ 
FORCED ADJUST KOUHO COUNT 


KOUHO ZAN 1 DOWN 


SET HANKAKU SPACE 


SET SELECT NUMBER 


4 
SI,OFFSET KKHANQUE 


AH, HANATTR 
KKWOIL 
KHEDO70 
cx 

CX, KKHQLEN 
cx 

cx 

AX, SPACE 
KKHOIL 


KHEDO81 
KKOHOCNT 


4 
3 


5 


5 
Uy 
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HANKAKU ATTRIBUTE SET 
COPY HANKAKU YOMI DATA 


CALCULATE COLUMN COUNT 


GET HANKAKU SPACE CODE 
SPACE CLEAR 


dededededel totoote) 
VUE MBBNUwo 
eooocoocec9n 


wun 
IND bm be pee pee oe oe 
NOMMO oNUN TO Py PNUUNe 


hed edad ade 
Nn 


ere) 
XN 
so 


1526 


8A 
BO 


26 OOE1 R 
81 


E8 1139 


BA 


BO 7 


€& 
8A 
Bo 
E38 
8A 


R 
26 GOEL R 
A 


1159 R 

26 OOEL R 
8E 

1139 R 

26 OOEZ R 


BO 63 


E8 
8B 
81 
BD 


2B Cc 


Dl 


73 OB 

O2 86 1380 R 
2 

2E: 12 A6 1381 R 


ces 
8B 
8A 
8A 


Q 
BA 
32 


Es 
E 


E2 
cs 


1139 R 

16 0144 R 
E2 O3FF 
ee 


EA 


12EC R 

16 OOFS R 
16 0101 R 
36 OOFC R 


20 
OE 0102 R 
ED 


1557 ® 
c2 
F9 


F 
0001 
8 
10 


MOV AH. ZENATTRI 
AL,81H 


CALL KKHOIL + SET *)" FIRST Cope 
MOV AH, ZENATTRI 
MOV AL,7AH 
CALL KKHOIL + SET "J" SECOND CODE 
MOV AH, ZENATTRI 3 SET "ZAN® KANJI CODE & ATTRIBUTE 
MOV AL,8EH § SET "ZAN™ KANJI CODE & ATTRIBUTE 
CALL KKHOIL 
MOV AH, ZENATTR2 
MoV AL,63H 
CALL KKWOIL 
MOV DX, KKOHOZAN 
AND DX, O3FFH 
MoV BP,10%2 
s AX,AX 
KHED100: 
DX,1 
INC KHED110 
ADD AL, BYTE PTR DECAJST(BP) 
DAA 
Apc AH, BYTE PTR DECAJST(1)(BPJ 
KHED110: 
DEC BP 
DEC BP 
JNZ KHED100 
MoV DX, AX 
“Oo CX,0404H 
KHED1201 5 MMM ZERO SUPPRESS mun 
TEST DH, OFOH 
INZ KHED130 
Mov AX, SPACE + SET SPACE CODE INSTEAD OF 2CRO 
CALL KKbIOTL 
SHL DX,CL 3 GET TO PH-REGISTER 
DEC CH 
CMP CH.) 
JNZ KHED120 
KHED1S50: ¢ WOON SET NUMBER DATACS) 
MoV AH, HANATIR 
MOV AL,DH 
AND AL, OFON 
SHR AL,CL 
OR AL.30H + ADJUST TO DISPLAY CODE 
CALL KKHOIL + SET NUMBER 
SHL DX.CL 
DEC CH 
SUZ KHED130 
SUB AX, AX 
RET 
KHED900; 
MoV AX,1 
RET 
KKOHOEDT ENDP 
seem CLOIL 490}00090000000000000000000000000080000000000000000000000001 
3m " 
3M CLEAR OPERATOR INFOMATION LINE x 
re 


x 
COTE RO 20 0000000000000000000000000000o BNO vODNOBALODDOADLOL. 
CLOIL PROC 


; MOV AH,81H 
; MOV CX,2000H 
3 INT 10H 
CALL ERASE_CURSOR + ERASE CURSOR 
MoV DX, KKCUSR sLOAD KANA-KAN CURSOR POSITION 
MOV DL,DOILP sLOAD TOP POSITION OF OIL 
MoV DH, KKOILP sLOAD OIL POSITION 
MOV AL, BLANK }LOAD BLANK DATA 
MOV CL.DOILN sLOAD NUMBER OF OIL 
xoR CH.CH 
CLOOlO. 
CALL WDISP sCLEAR OIL 
INC DL 
Loop CLoo0le 
RET sRETURN TO CALLER 
CLOIL ENDP 
sOOOE NDISP 00000000000000000000000000000000 00000000 2O000R0ORONONALL 
ix 
is WRITE CHARACTER i 
ry 


Li 
SS ee ad 20000000000000000000000000000000000000R00NNREDONE 
WDISP PROC _— 


PUSH SI sSAVE REGISTER 
PUSH DI 

PUSH BP. 

PUSH CX 

PUSH BX 

PUSH = aX 

PUSH AX 

MOV AH, 82H 

INT 10H ISET ALTERNATE CURSOR 
PoP AX 

MOV BL,OFH ISET COLOR CIN GRAPHIS MODE) 
MOV Cx, 01 

MOV AH, 8AH 

INT 10H sWRITE DISPLAY 
POP Ax RESTORE REGISTER 
POP BX 

POP cx 

PoP BP 

POP DI 

POP cS | 

RET SRETURN TO CALLER 
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1573 


ae ae ee ee tat Ot tt te et Pd Pd 
VU tA 
enya nyyNNN NS 
HOM MONA ou 


E8 1593 R 

8B FS 

8D 3E 0009 R 
O03 3E OOE6 R 
BB CA 

FC 

F37 AG 


Bs 0000 
5 


Al OOEA R 
3B 06 OOEE R 
76 24 
# 

06 OOES 
76 03 ™ 


€8 15C5 R 

83 OE OOEA R 
2B OE 00E6 R 
aris SRE 
4E es 


83 FE 
03 FA 
FD 
FSY AG 
FC 


01 16 OOEA R 


WDISP EN 


op 
ODDO DUNNE 


3x 


an PROGRAM NAME: DTINST 


Ae DESCRIPTIVE NAME: DATA INSERT PROCESS ROUTINE 


x 
x LINKAGE: 


UTIN INSERTS A CHARACTER FRO 
i FUNCTION: THIS ROUND MODIFIES END POS: ON 


Bel RETURN CODES: (AX) 
im 0 - SUCCESSFUL 


he 1 - INVALID OPERATION 
+s EXTERNAL REFERENCES: 


x CHECK-- CHECK AND MODIFY END 
3 ROUTINES: EOP HECK AND. POSITION OF 


Bal TABLES: KANA-KAN COMMON TABLES 
x 
Bel REGISTERS: AX - RETURN CODE 

AL 


3 


3m 
3m WHEN NOT INSERT KEY PRESSED ON INSERT MODE 
i. THIS SUBROUTINE IS CALLED 
‘¥ BX: OFFSET OF DATA POSITION TO INSERT 
3 
300000< DT INS 7000000000000 000 100002000 UUDOE 
DTINST PROC NEAR aici: 
PUSH BX 3s SAVE REGISTERS 
PUSH cx 
PUSH DX 
PUSH sl 
Pus DI 
DTI_010: en 
4 3 TRANSMIT DATA OF INPUT BUFF 
CTI_020: 8 
nov SI,BX 3 GET OFFSET VALUE OF DATA TO INSERT 
LEA DI, KKINDUF 3 GET OFFSET OF INPUT BUFFER 
ADD DI, KKIUCCA 3 DI POINTS CURSOR POSITION 
MOV Cx, DX 3 GET DATA LENGTH 
CLD ¢ SET DIRECTION FLAG 
REP MOVSB 3s INSERT DATA 
DTI_030: 
DTI_040: 
MOV AX, 0H 3s SET RETURN CODEC NORMAL ) 
POP DI s RESTORE REGISTERS 
POP SI 
PoP DX 
POP cx 
POP BX 
DT_990: 
RET 3s RETURN TO CALLER 


DTINST ENDP 


CHA 


NT OF THE cursor 


: = OFFSET OF DATA POSITION TO INSERT 
by CTNPUTs BXo~ OTA LENGTH TO INSERT 


Ae! OUTPUT: KANA-KAN COMMON TABLES 


L OTHERS UNCHANGED 


i 
is CHANGE ACTIVITY: VERSION 00.00 


é 
3 30000000000000000000 0000 INE 


1000000000002 DIE IIIT IORI III K 


pe PPS SESE SSE SSESES ESSE SSS ESE SSS SS SESS 


3 
3 JO000K< DT INST > 3300000080000 0000000 SURI RRND DIVO OE 


2 )90000<XHTDATA2200000000000000009000000000000000000000000000000 00000001 


3x 
3m TRANSMIT DATA FROM INPUT BUFFER TO ITSELF 
sm 
5m INPUT DX:DATA LENGTH TO INSERT 
x 
1 )00006€ XT DATA? 300000000000000000000000000000000000000000000000000000000t 
3 
XMTDATA PROC NEAR 
MOV AX, KKWEOP +s GET END POSITION OF one eee 
CMP AX, KKWCCA 3 eee POS. >= END POS. ? 
JBE XMT_030 5 ° 
ADD AX, DX $ ves; 
CMP AX, KKEOPMAX 5 CHECK BOUNDARY 
JNA XMT_020 3 IF END POINTER #< END OF BUFFER 
XMT_010: s ELSE 
MODEOP 3 MODIFY END POSITION 
XMT_020: 
MoV CX, KKWEOP 3 GET DATA LENGTH OF XMTION 
SUB CX,KKHCCA 
LEA SI,KKINBUF 3 SET POINTER OF MOVEMENT AT FIRST 
ADD S1,KKWEOP 
DEC SI 
MOV DI,SI 3 SET POINTER OF MOVEMENT THE POINT 
ADD DI,DX 
STD r] eat eon FLAG 
REP MOVSB 5 DATA 
CLD 5 RESED DIRECTION FLAG 
XMT_O30¢ 
KKHEOP, DX § UPDATE END POSITION OF DATA 
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Led aul aed cell eel aed) aael al al al adh 
AAAAKAARAAKAK 


L, 


rd 


APOAUNMPDOD 


ee te ee ee ee ee eet 
AR AKARAAARAKRH 
N NANNNNNNe wwe 


XN 
mam Oo 


cs 


8A 


22 
cs 


XMT_9901 
RET 


XMTDATA ENDP 


2 2000010. DE0P 9 200000000000000000000000000000000000000000000000000000 000 DDDOL 
3 


He MODIFY END POINTER x 
3 au 
3300000680 DE OP >300000000000000000000000000000000000 0000000 D DURE 
MODEOP PROC NEAR 
SI, KKINBUF + GET OFFSET OF INPUT BUFFER 
ADD SI,KKWEOP 


SUB SI POINTS ATTR OF LAST CHARACTER 
TN ae 


DX, ZENLEN + CHECK DATA LENOTH OF INSERTION 
HOD_070 3 IF HANKAKY | pa 2 
MOD_OSO. 5 ELSE (ZENKA, 
ALL GETATRI 3 GET ATTR oF LAST CHARACTER 
JZ MOD_040 ‘] CAST CHR. = HANKAKU 1 
MOV AL, ZENLEN 3 HO,LAST CHR. = ZENKAKU 
SHORT MOD_990 3 GOTO Rerun N 
MOD_040: 3 YES,LAST CHR. * HANKAKU 
AX, KKWEOP 3 GET END POSITION OF CHARACTERS 
CHP AX, KKEOPMAX + CHECK BOUNDARY. 
JZ MOD_050 
MOV AL, INDEX ) 
SHORT MOD_990 4 GOTO RETURN 
MOD_050: 
SI, INDEX + SI POINTS LAST 2ND CHARACTER ATTR. 
CALL GETATRI 3 GET ATTR. OF DATA THAT SI POINTS 
JNZ MOD_060 
MOV AL, ZENLEN 
SHORT MOD_990 5 GOTO RETURN 
MOD_060: 


CLEARS 3 CLEAR LAST 3 BYTE OF INPUT BUFFER 
MOV AL, ZENLEN+INDEX ; UPDATE END POINTER 
SHORT MOD_990 5 GOTO RETURN 


GETATRI GETATTR 
JINZ MOD_080 IF LAST CHARACTER IS HANKAKU 


ee 


Mov AL, INDEX 
JMP SHORT MOD_990 
MOD_080: 3 ELSE (ZENKAKU) 
CLEARS 3 CLEAR SPACE AREA 
AL, ZENLEN s UPDATE END POINTER 
MOD_990: 
SUB KKHEOP, AX 


RET 
MODEOP ENDP 
5 MME CGE TAT RI > 00000000 0000 000 0 OBE J SE DEE 0 SD 
rh x 
3m SI: OFFSET OF DATA ATTRIBUTE : 
rn! 
§ MMC GETATRI > 300000 0 Me 


GETATRI PROC NEAR 
MOV AL, BYTE PTR DS: {SI} 
+ GET ATTRIBTEOP OF CHARACTER 
ae AL,ZENATTRI 3 ZENKAKU OR HANKAKU 


GETATRI_ENDP 
300000008) EAR 520000000000000000000 000000000 0 2000000 UUU RUB DRIOL 
x 


3m THIS ROUTINE THE CLEAR SPACE AREA (SBYTE) Bi 
A 
3M SI: POINTS THE AREA FOR CLEAR CHAR * 
™ " 
300000¢6CU EAR 300000000000 DD 0 UU UDI OUU DE 
CLEARS PROC NEAR 

PUSH aX 

LEA DI. KKINBUF + GET OFFSCT VALUC OF INPUT BUFFER 

ADD DI. KREOPMAX ; 

SUD DI, INDEX s SI POINTS THE TOP OF CLEARING AREA 

ing! AX, KKCHRSP 

STOSN 3 SET SPACE CODE 

xOR ALL AL 

STOSB 

PoP AX 


3 

RET 3 RETURN T 
CLEARS ENDP chaoui 
3 903100010000000000000000000000000000000 2000220 IS 
, 
Hs PROGRAM NAME: DTSHFT 
’ 


Ae DESCRIPTIVE NAME: SHIFT DATA & MODIFY END POSITION 

iM FUNCTION: WHEN DELETE KEY OR BACK SPACE KEY IS PRESSED, 

« THIS ROUTINE SHIFT CHARACTERS AFTER THE POSITION 
am POINTED BY AX REGISTER 


a 

u® LINKAGE: 

x 

sH INPUTs AX -- POINTS DATA TO BE DELETE 


re 

Ne QUTPUT: DX -~ LENGTH OF DATA TO BE DELETED 
Hy 

He RETURN CODES: (AX) 

3 

im 0 - SUCCESSFUL 

am 1 - SUCCESSFUL 


x 
om EXTERNAL REFERENCES: 
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3B 06 OOEA R 
331 
8D 36 0009 R 
3 FO 
8A 44 01 
E8 1342 R 
DO 
8B FE 
F2 
8D OE C009 R 
O03 OE OOEA R 
28 CE 
83 F9 00 
7¢ 10 
74 03 
FC 
F37 AS 
29 16 OOEA R 
€8 1672 R 
01 16 OOEA R 


Bs 0000 
5 


56 
Al OOEA R 
“1H 06 OOES R 


1A 
8D 36 0009 R 
03 FO 


Lael ” 
om ROUTINES: EOPCHECK -- CHECK END POSITION AND SET HANKAKU x 
3m SPACE OR PSECIAL CHR. : 
3x 

3x TABLES: " 
3m bi 
sm REGISTERS: AX - RETURN CODE bed 
ae ALL OTHERS UNCHANGED . 
im CHANGE ACTIVITY: VERSION 00.00 ie 
rz 


3 {0000000000080 VDI OOE 


3 
3 30006 DT SHF T > }00000000000000000000000 000 TTI VIII VIO COLE 
ae " 


3m aur ROUTINE SHIFTS DATA OF INPUT BUFFER LEFT " 
Hs INPUT: AX -- DATA POSITION TO BE DELETED Lal 
: i] 
i 300000 DT SHF T > 00002000000000000000000 00000 VIVRE 
DTSHFT PROC NEAR 3 

PUSH BX + SAVE REGISTERS 

PUSH cx 

PUSH SI 

PUSH DI 

cmp AX, KKREOP 3 are POINTER 

JAE DTS_020 AX >= NED POSITION 

LEA SI,KKINBUF ; GET OFFSET OF INPUT BUFFER 


ADD SI,AX 3 SI POINTS DATA TO BE DELETED 
MoV AL, BYTE PTR DS: fSI+1) 

GET ATTR. OF DATA 
CALL KCALELM CHECK ZENKAKU OR HANKAKU 


, 

MOV DX, AX 3 SAVE DATA LENGTH 
MOV DI,SI + DI POINTS DESTINATION ae 
ADD S1,Dx 3 SI_ POINTS SOURCE POSITIO 
LEA CX; KKINBUF 3 GET OFFSET OF INPUT BUFFER 
aDD CX, KKWEOP 3 GET OFFSET OF DATA TO BE DELETED 
SUB Cx,SI 3 CX = REPEAT CNT. 
CMP CX, 0H + CHECK REPEAT CNT. 
JL DTS_020 3 REPEAT CNT. < 0 
JZ DTS_010 3 REPEAT CNT. = 0 
CLD 3 SET DIRECTION FLAG 

DTS 010 REP MOVSB + TRANSFER DATA OF INPUT BUFFER 
. 
SUB KKWEOP, DX 4’ SET PARAMETER FOR EOPCHECK 
CALL EOPCHECK 3s CHECK EOP 

pts. 20 ADD KKREOP, DX 3 RESET PARAMETER TO RETURN 
' 
MOV AX, OH 3 SET RETURN CODE ( NORMAL ) 
POP DI s RESTORE REGISTERS 
POP SI 
PoP cx 
PoP BX 
RET 3 RETURN TO CALLER 


DTSHFT ENDP 3 

33000000000000008 0000000 IE 
sn 

3% PROGRAM THAME: EOPCHECK 


3M 


3% DESCRIPTIVE NAME: CHECK END POSITION AND SET SPACE OR SPECIAL 


3 FUNCTION: CHECK END POSITION AND SET SPACE OR SPECIAL 
3 CHARACTER 


x 
3™ LINKAGE: 


x 
; INPUT: DX-- <>0: LENGTH OF DATA TO BE DELETED 
su =O: INSERT PROCESS 


3M OUTPUT: NONE 
s™ == RETURN CODES: (AX) 


3x 

3x Q - SUCCESSFUL 
3m 1 - SUCCESSFUL 
3 

3® EXTERNAL REFERENCES: 
3x 


3m ROUTINES: NONE 
3x TABLES: 


s® REGISTERS: AX - RETURN CODE 
zm ALL OTHERS UNCHANGED 


x 
s® CHANGE ACTIVITY: VERSION 00.00 
3 3901019000008 000000000000000000000000000 9000900000000 000000 200 IIE 
3 

}2000000< EOP CHECK > 9000000000000000000000000000000080000000000000000 00000000006 
a 


x HECK END POINTER AND CLEAR FICLD OF SPACE ARCA 
im INPUT: DX: <> 0 «LENGTH OF DELETE DATA 
G = 0 + INSERT PROCESS 


" 
x“ 
” 
u 
" 
n 


; S00 CEOPCHECK 1900190 0000090000008000000000 08 DIR 
EOPCHECK PROC NEAR 


PUSH SI 3 SAVE REGISTER 

MOV AX, KKWEOP 3s GET END POSITION 

cmp AX, oo 3 CHECK BUFFER END 

JAE EOP s GOTO RETURN 

LEA SI, KErIIBUF 3 GET OFFSET OF INPUT BUFFER 
ADD SI;A 3 SI POINTS INSERT AREA 
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8B C2 

Bl oS 

6 Fl 

84 CO 

75 0S 

Bs 0001 
8B C8 

E8 169A R 
E2 FB 

$3 Co 


5E 
cs 


Al OOFS R 
FC 

AB 

32 CO 

AA 

cs 


m 
o 
~ 
o 
o 
> 
Zz 


B1 0S 
Fo Fl 


E4 
03 06 OOEE R 


MOV AX, DX 
MOV CL, INDEX 5 
DIV cl 
TEST AL,AL » CHECK 
JNZ EOP_090 
MOV fo 
090 
ROR Peee CX,AX 
cea TT SETSPC 5 SET HANKAKU SPACE 
LOOP EOP_100 
RSIS AX, AX s RETURN CODE ( NORMAL ) 
PoP SI s RESTORE REGISTER 
RET + RETURN TO CALLER 
EOPCHECK ENDP 
3000006 S ETS P0211 0000000000000000000000000000000000000000000000000000K 
x 
im SET HANKAKU SPACE AFTER END DATA POSITION x 
im SIs POINTS HEAD POSITION TO BE INSERT x 
am x 
Pit Sit +t iia 1 allele ay V ara 
SETSPC PROC NEAR + SET SPACE CODE 
MOV AX, KKCHRSP + GET SPECIAL CHARACTER CODE 
CLD 
STOSH 
XOR AL, AL 
STOSB 
RET ' RETURN TO CALLER 
SETSPC ENDP 


3 } 09000300030 000000000000900000900000000000000 0000000000000 000000000004 


7m x 
3% PROGRAM NAME ( SUBROUTINE BLOCK ) x 
3m ‘ SETSTRCL x 
3m ’ SETENDCL * 
3m ) GETCULM x 
3% STATUS: * 
gn a 
3% FUNCTION: CALCULATE COLUMN POSITION 1 FROM POINTER OF INPUT BUFF. x 
3® LINKAGE: x 
3m x 
3 INPUT: a 
3m x 
3m a 
fz OUTPUT: x 
3m % 
3% - RETURN CODES: NON * 
re. a 
3m EXTERNAL REFERENCES x 
3 " 
3m ROUTINES: NONE * 
3m x 
3m TABLES: " 
3m Li 
sm REGISTERS: AX - RESULT x 
3m ALL OTHERS UNCHANGED x 
$n x 
i CHANGE ACTIVITY: VERSION 00.00 x 

x 


8 9900000000000000000000000000000 0000000000 OBO OODAEAAHDOHAEHADDEAER 


JOE 
BS JeUOk<SET ST RCL > 00000000000000000000000000000000000000 000 0000000000000 
x x 
i SET START POSITION FOR DISPLAY ROUTINE x 
3 x 
2O00UK<S ET ST RCL >00000000000000000000000000000000800000NN0UNNSNDDONBEDL 
SETSTRCL PROC NEAR Hy 
MOV AX, KKRCCA 3 GET START POSITION 
MOV KKINP,AX s SET START POINT FOR DISPLAY 
CALL GETCULM 3 
ney DSTRIP,AX 3 SET START COLUMN FOR DISPLAY 
3 


SETSTRCL ENDP 


J200000¢S ETENDCL >000000000000000000000000000000008DOUI DIDI REDDDEPDIUE 
3m 


a. SET END POSITION FOR DISPLAY ROUTINE x 
3 1 
J2O00006S ET EN DCL >00000000000000000000000800000000000U00000 RPI IRRRDNOUDE 
SETENDCL PROC NEAR s 
AX, KKREOP 3 GET END POSITION 
CALL GETCULM ’ 
oer DENDP,AX + SET END POINT CCOLUMI) FOR DISPLAY 
t] 

SETENDCL ENDP 
32000006 ET CUL A> 1000000 000000000000000000 00000000000 R URI IIIDODUE 
sm 
Bs CALCULATE COLUMN POSITION 
sm 
CETCULM PRO 2202000001000 000000 000000004 
GETCULM PROC NEAR 

PUSH cx 

MOV CL. INDEX 3 

DIV cL 

XOR AN, AH + CLEAR AW 

abd AX, BASE ) GET COLUMN POSITION 

PoP cx 


RET 3 
GETCULM ENDP 


30000¢C DCHCK ] > 0000000000001 U0000000 000000 O VUE RIVER 
An] 


ii 
im CODE REASONABLE CHECK 1 
3% 
im INPUT + BLICODE x 
im AUtRANGE TYPE x 
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2E: 8B 96 16FB R 
3B ODA 


72 OE 

2E: 8B 96 16FD R 
3B DS 

72 05 

38 0000 

EB 0S 

BS 0001 


3 " 
230000106 C DCHCK 7 2000000000200 DODO 
SHERETHEE EERE ESE SEE ESE EE EEE EEEFEEESEFESESESESESEEFE SEES ESSE ESE EEE Ett 


RNGTBL1: 
DB 72H + TEN KEY SCAN CODE 
DB 7AH 3 
DB 02H 3 GRAPHIC KEY SCAN CODE 
DB OAH 3 
DB 30H 3 NUMERIC CODE 
DB 39H 3 
DB OA7H 3 HANKAKU KATAKANA CODE 
DB ODFH 3 
RNGTBLLI: 
RNGMAX1 EQU aoe RNGTBL1)72 
RNGMIN] EQU 3 RANGE MINIMUM 


3 E008 000 0020100000000 IID 
CDCHCK1 hy NEAR 


USH BX 


; SAVE REGISTERS 
PUSH cx a 
PUSH BP 3 
cmP AL, RNGMIN1 3 CHECK RANGE TYPE 
Jc CD1_050 3 AL<RANGE MIN.,THEN ERROR RETURN 
CMP AL, RNGMAX1 , 
JA CD1_050 3 AL>RANGE MAX.,THEN ERROR RETURN 
XOR AieK 
DEC 
MOV BP, AX 
SHL BP,1 
MOV DX,WORD PTR ne 
3 RANGE (DH=MAX.,DL®MIN.) 
CMP DH, BL $ $ elope =< MAX. 
JC ci 050 3s NO,THEN.... 
CMP BL, Dt ,? CODE >= MIN. 
Jc epi 050 3 NO,T HEN 
MOV AX, 0H $ SET RETURN CODE (NORMAL) 
JMP SHORT CD1_990 3 oe RETURN 
CD1_050: 
MOV AX,01H 3 ’ ser RETURN CODE CERROR) 
CD1_990: 3 
PoP BP 3s RESTORE REGISTERS 
PoP cx 3 
PoP BX 3 
RET 3 RETURN TO CALLER 
CDCHCK1 ENDP 3 
3300008< C DCHCK 23300000000 0000000000000 000000 OUD IE IE 
3m x 
sm CODE REASONABLE CHECK 2 CWORD) u 
5m x 
sm INPUT « BX:CODE xu 
‘Zi AL:RANGE TYPE " 
x m 


3 
2ON00EK<CDCHCK 2 2300000000 
FREFEEEEEFEFH SESE FEF ESE SESE ESE EEES ES EFEEEF SESE OSES HSE EES E SESE +E Sete sey 


ela” 824FH 3s 2 BYTE NUMERIC CODE 
DH 8258H 3 
DH 829FH 3 2 BYTE HIRAGANA CODE 
DH 82F1H 3 
DH 8340H 3 2 BYTE KATAKANA CODE 


393H , 
JAEAbEAeeTEEGOEESESELEEEEEEEAS ERED ONONSEEEEOE EISEN EEOESESEOEEOED EEE EE 
NGTBLL2 
RNGHAX? EQU CRNGTBLL2-RNGTBL2)72 
RNGMIN2 EQU O1H 3 RANGE MINIMUM (WORD TYPE) 
FERe 1A AG LM AEMND 2 ESSN ARN ARE AAEM S EM ABNEANANE ADEE ASSN AREAL ARRAS RE SANRNN 


CDCHCK2 eee WEAR 


BX ; SAVE REGISTERS 
PusH BP ; 
NGMIN2 3 CHECK RANGE TYPE 
cc. cbe 080 3 AL<RANGE MIN.,THEN ERROR RETURN 
» RNGMAX2 , 
a tb 3 AL>RANGE MAX.,THEN ERROR RETURN 
xOR AH, AH 
DEC AL 
MOV BP,AX 
MOV CL, gen 
SHL BP 
MoV DX, "ORD PTR Reoraterst 
CMP aK Px ] SOE om 9 MIN. 
JC 
TR aworbtztirez 2) 
MOV Sx HORD P : Be cxemax. ss 
P DX, BX 3 t Stop z< , 
se CD2_050 3 NO,THE 
MOV AX, 0H 3 SET RETURN “CODE (NORMAL) 
JMP SHORT CD2_990 4 GOTO RETURN 
5 
CD2_0501 Ay AX, 01H s SET RETURN CODE (ERROR) 
5 
C0299 op BP 3 RESTORE REGISTERS 
PoP cx , 
RET . 3 RETURN TO CALLER 
CDCHCK2 ENDP 
ORG ¢ 
ORG BIGIN+1800H 
CODE ENDS 
END 
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Peri PPPs 3 
“ ” 3 THIS SUBROUTINE SETS DS TO POINT TO THE BIOS DATA AREA 
x MODULE 9 * 3 INPUT: NONE 
i‘ x i OUTPUT: DS IS SET 
20000 00000Ot {2e SSeS Sa beret ler ema as nme ewww ewer wrooeororr= cecrer-- 
ASSUME CS:CODE,DS: DATA 
0000 bps R 
oo00 se PUSH AX 
0001 B& 0040 MOV AX, 40H 
0004 8E DS MOV DS,AX 
0006 58 : PoP AX 
ooo7 C3 RET 
0008 DDS fay sre 
ber rr rn nme ew wn wwe ew eee ed 
3 TIME_OF_DAY/SOUND SOURCE SELECT 
3 THIS ROUTINE ALLOWS THE CLOCK TO BE SET/READ. 
3 AN INTERFACE FOR SETTING THE MULTIPLEXER FOR 
3 AUDIO SOURCE IS ALSO PROVIDED 
3 
3 INPUT 
3 ©6 CAH) = 0 READ THE Ee GURRENT CLOCK SETTING 
3 RETURNS = HIGH PORTION OF COUNT 
3 Dx = LOW PORTION OF COUNT 
3 = 0 IF TIMER HAS NOT PASSED 24 HOURS 
3 SINCE LAST READ. <> 0 IF ON ANOTHER DAY 
3)» «6<CAH) = 2 SET THE CURRENT CLOCK 
3 CX = HIGH PORTION OF COUNT 
3 DX = LOW PORTION OF COUNT 
+ CAH) = 80H SET UP SOUND MULTIPLEXER 
3 AL =(SOURCE OF SOUND) --> "AUDIO OUT™ OR RF MODULATOR 
3 00 = 8253 CHANNEL 2 
3 01 = CASSETTE INPUT 
3 02 = “AUDIO IN” LINE ON I/O CHANNEL 
3 03 = COMPLEX SOUND GENERATOR CHIP 
3 NOTE: COUNTS OCCUR AT THE RATE OF 1193180765536 COUNTS/SEC 
3 (OR ABOUT 18.2 PER SECOND -- SEE EQUATES BELOW) 
Bt rr rn er ww ww ne ee ee eee - 
ASSUME CS: CODE. Ds: DATA 
0008 TIME_OF_DAY PROC FAR 
0008 FB STI 3 INTERRUPTS BACK ON 
0009 1E PUSH DS 3 SAVE SEGMENT 
COCA E8 COCO R CALL DDS 
@00D 80 FC 80 CMP AH, 80H ; 
0010 74 2E JE T4A 3 mux SET- uP 
0012 0A E4 OR AH, AH 3 AH 
0014 74 07 JZ T2 3 READ. TIME 
0016 FE CC DEC AK 3 AH=1_ 
0018 74 16 JZ T3 3 SET_TIME 
OOlA FB Ti: STI 3 INTERRUPTS BACK ON 
0OlB 1F PoP Ds 3 RECOVER SEGMENT 
o01c «CF IRET 3 RETURN TO CALLER 
001D FA T2: CLI 3 NO TIMER INTERRUPTS WHILE READING 
OO1E AO 0070 R MOV AL, TIMER_OFL 
0021 C6 06 0070 R 00 MOV TIMER_OFL,0 3 GET OVERFLOW, AND RESET THE FLAG 
0026 8B OF 006E R MOV CX, TIMER_HIGH 
002A 8B 16 006C R MoV DX, TIMER_LOW 
@O2E EB EA JMP Tl 3 TOD_RETURN 
0030 FA T3: CLI 3 NO INTERRUPTS WHILE WRITING 
0031 89 16 D06C R MOV TIMER_LOW, DX 
0035 89 OE 0OGE R MoV TIMER_HIGH,CX 3 SET THE TIME 
0039 C6 06 0070 R 00 MOV TIMER_OFL,O 3 RESET OVERFLOW 
OOSE EB DA JMP Tl 3 TOD_RETURN 
He tr fo Gs 
Bl 05 ’ 3 
0043 D2 EO SAL AL,CL 3 SHIFT FARM BITS LEFT 5S POSITIONS 
0045 36 Ce G AL,AH 3 SAV 
0067 £4 61 TN AL, PORT_B 3 GET CURRENT poRT SETTINGS 
00469 26 OF AND AL, 100111118 3 ISOLATE MU 
0O4B 0A C4 OR AL, AH 3 COMBINE PORT BITS/PARM BITS 
006D £6 61 our PORT_B,AL 3 SET PORT TO NEW VALUE 
OOsF 59 pls cx 
0050 «EB C8 MP qT 3 TOD_RETURN 
0052 TIME_OF_ bay ENB ek are Pam opty tbh bonnie eed a ete 
3 THIS ROUTINE WILL _READ TIMER}. THE VALUE READ IS "RETURNED IW AX. | 
0052 READ_TIME PROC NEAR 
0052 Be 4e MoV AL, avon ‘ii 3 LATCH TIMER} 
0054 6 43 TIM_CT 
0056 «50 Susi Ee 3 WAIT FOR 8253 TO INIT ITSELF 
0057 58 POP Ax 
bose £4 41 1H AL, TIMER+1 3 READ LSB 
O0SA 8A EO Mov AH, AL 3 SAVE IT IN HIGH BYTE 
005C 50 PUSH AX 3 WAIT FOR 8253 TO INIT ITSELF 
tse ee PRP neeag READ Hi 
41 AL, TIMER+ 3 
0060 36 C4 XCHG ALLAH 3 PUT BYTES IN PROPER ORDER 
0062 C3 RET 
#063 READ_TIME ENDP 


FREAL_ VECTOR_SETUP 
THIS ROUTINE WILL INITIALIZE THE INTERRUPT 48 VECTOR TO 


3 POINT AT THE REAL INTERRUPT ROUTINE, ease 
0063 REAL_VEC TOR_SETU ‘Sa PROC NEAR 
0063 50 mA EE Ge aK ; SAVE THE SCAN CODE 
8064 53 PUSH = BX 
0065 06 PUSH ES 
0066 33 Co XOR AX, AX 3 INITIALIZE TO POINT AT VECTOR 

3 SECTOR(O) 

6068 8E CO MOV ES,AX 


A-214 


OO9E 
QOA0 
OOA2 
QOAS 
OOAB 
00B1 
OoBS 


BB 0120 
26: C7 07 0000 E 


43 
43 
oc 
58 
26: 89 07 
07 
58 


58 
cs 


E4 61 


24 FC 
E6 61 
E2 FE 
E6 61 


E2 FE 


75 ED 
E6 61 


2B Co 
Ds 

C7? 06 0120 R COFOR 
0060 R 

Cc? ts 0062 R E000 


E8 0000 R 

FF 06 006C R 
75 04 

FF 06 O06E R 


83 SE OOGE R 18 
75 15 
81 SE 006C R 00B0 


MOV BX, 48H POINT AT INTERRUPT 48 
MoV WORD PTR Messtexs ee KEY62_ INT 5 MOVE IN OFFSET OF 
INC Bx 3 ADD 2 TO BX 
INC BX 
PUSH cs + GET CODE SEGMENT OF BIOS (SEGNENT 
3 RELOCATEABLE) 
PoP Ax 
MOV WORD PTR ESt(BXJ,AX ; MOVE IN SEGMENT OF ROUTINE 
POP ES 
POP 8x 
POP AX 
ET 
REAL_VECTOR_SETUP ENDP 
KB NOISE 
THIS ROUTINE IS CALLED WHEN GENERAL BEEPS ARE REQUIRED FROM 
THE SYSTEM. 
}INPUT 
3 BX=LENGH OF THE TONE 
3 CX=CONTAINS THE FREQUENCY 
sOUTPUT 
; ALL REGISTERS ARE MAINTAINED. 
HINTS 
H AS CX GETS LARGER THE TONE PRODUCED GETS LOWER IM PITCH. 
; 
kB NOISE PROC NEAR 
StI 
PUSH AX 
PUSH BX 
PUSH CX 
IN AL, 061H 3 GET CONTROL INFO 
PUSH AX SAVE 
OPO1: 
ail AND AL, OFCH 5 TURN OFF TIMER GATE AND SPEAKER 
3 
out O61H,AL 3 OUTPUT TO CONTROL 
PUSH CX 3 HALF CYCLE TIME FOR TONE 
: LOOP LooPe2 3 A 
ee OR AL,2 3 TURN ON SPEAKER BIT 
3 OUTPUT TO CONTROL 


PoP x 
PUSH cx 3 RETRIEVE FREQUENCY 
LOOPO3: LOOP LOOPOS 3 ANOTHER HALF CYCLE 
DEC Bx 3 TOTAL TIME COUNT 
PoP cx 3 RETRIEVE FREQ. 
JNZ LooPol + DO ANOTHER CYCLE 
PoP Ax 3 RECOVER CONTROL 
out O61H,AL 3 OUTPUT THE CONTROL 
POP cx 
pop 8x 
POP AX 
ET 
Ke NOISE ENDP 


. 
EASE OF USE REVECTOR ROUTINE - CALLED THROUGH 
INT 18H WHEN CASSETTE BASIC IS INVOKED (NO DISKETTE 
NO CARTRIDGES) 
KEYBOARD VECTOR IS mean TO POINT TO "NEW_INT_48" 
PLAN TO TRANSFER KBDIO 
BASIC VECTOR IS SET TO POINT TO E008:8 


BAS_| ENT eek FAR 


we we we we we we we 


SUME DS:ABSO 
sus erte 
MoV DS,A sSET ia. 
MOV Keve? —PTR,OFFSET NEW_INT 
mov BASIC_PTR,AX 3 SET INT. ta: Eoe0:0 JX BASIC 
MOV BASIC_PTR*2, 0E0QOH 


INT 18H Go 10 
pot ENT ENDP : aia 


; “THIS” ROUTINE HANDLES THE TIMER INTERRUPT FROM 


$ CHANNEL 0 OF THE 8253 TIMER. INPUT FREQUENCY IS 1.19318 MHZ 
} AND THE DIVISOR IS 65536, RESULTING IN APPROX. 18.2 INTERRUPTS 
3 EVERY SECOND. 
5 
} THE INTERRUPT HANDLER MAINTAINS A COUNT OF AL gtk SINCE POWER 
} ON TIME, WHICH MAY BE USED TO ESTABLISH TIME OF DAY. 
$ INTERRUPTS MISSED WHILE INTS. WERE DISABLED ARE TAKEN CARE OF 
5 BY THE USE OF TIMER 1 AS A OVERFLOW COUNTER 
} THE INTERRUPY HANDLER ALSO DECREMENTS THE MOTOR CONTROL COUNT 
§ OF THE DISKETTE, AND WHEN IT EXPIRES, WILL TURN OFF THE DISKETTE 
} MOTOR, AND RESET THE MOTOR RUNNING FLAGS 
s THE INTERRUPT HANDLER WILL ALSO INVOKE A USER ROUTINE THROUGH 
} INTERRUPT 1CH AT EVERY TIME TICK. THE USER MUST CODE A ROUTINE 
Reels PLACE THE CORRECT ADDRESS IN THE VECTOR TABLE. 
ASSUME. DS:DATA 
TIMER_INT PROC FAR 
STI 3 INTERRUPTS BACK ON 
PUSH oS 
PUSH ax 
PUSH Dx s SAVE MACHINE STATE 
CALL DDS 
INC TIMER_LOW 3 INCREMENT TIME 
JNZ T4¢ 3 TEST DAY 
143 Inc TIMER_HIGH 3 ee HIGH WORD OF TIME 
i ST 
CMP TIMER_HIGH,O16H 3 TEST FOR COUNT EQUALLING 24 HOURS 
JNZ 15 + DISKETTE_CTL 
CMP TIMER_LOW, OBOH 
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eep1 75 0D JNZ TS 3 DISKETTE_CTL 
Boo---- TIMER HAS GONE 24 HOURS 
eons 2B CO SUB AX, AX 
0oDS AS OO6E R MOV TIMER_HIGH, AX 
oops =AS 006C R MOV TIMER_LOW, AX 
00DB Cé 06 0070 R OL MOV TIMER_OFL,1 
g-~---~ TEST FOR DISKETTE TIME OUT 
00EO TS: 3 bage jane ALL OVERFLOWS TAKEN 
ooce & oe 0040 R de MOTOR_COUNT 
60 3 RETURN IF COUNT NOT OUT 
00E6 80 26 COSF R FO AND MOTOR_STATUS,OFOH ; TURN OFF MOTOR RUNNING BITS 
OOEB BO 80 MOV AL, FDC_RESET 3 TURN OFF MOTOR, DO NOT RESET FDC 
00ED E6 F2 our NEC_CTL,AL 3 TURN OFF THE MOTOR 
OoEF CD 1C Té6: INT 1CH 3 TRANSFER CONTROL TO A USER 
ool 80 20 nov AL, EOI iconic 
OOF O20H, AL 
a Oe oy 3 END OF INTERRUPT TO 8259 
OOF re sed Ax 
OOF7 os 3 RESET MACHINE STATE 
cors CF IRET 
a TIMER_INT — 3 RETURN FROM INTERRUPT 
feaecncckascass ee Ee Re RE Steerer eee oe 
{NEMINTSS 
3 S_ ROUTINE IS THE INTERRUPT 48 HANDLER WHEN THE MACHINE IS 
3 FIRST POWERED ON AND CASSETTE BASIC IS GIVEN CONTROL. IT 
3 HANDLES THE FIRST KEYSTROKES ENTERED FROM THE KEYBOARD AND 
3 PERFORMS “SPECIAL” ACTIONS AS FOLLOWS: 
3 IF CTRL-ESC IS THE FIRST SEQUENCE "LOAD CAS1:,R™ IS 
3 EXECUTED GIVING THE USER THE ABILITY TO BOOT 
3 FROM CASSETTE 
3 AFTER THESE KEYSTROKES OR AFTER ANY OTHER KEYSTROKES THE 
: INTERRUPT 48 VECTOR IS CHANGED TO POINT AT THE REAL 
3 INTERRUPT 48 ROUTINE. 
Bt ren rn er ww ee ee eet weer own e eee ee ema 
ooF9 NEW_INT_$8 PROC FAR 
@oF9 3C 02 CMP AL, 3 IS THIS AN ESCAPE KEY? 
OOFB 74 10 JE ESC_KEY 3 JUMP IF AL=ESCAPE KEY 
OOFD SC 1D CMP AL,29 3 ELSE, IS THIS A CONTROL KEY? 
GOFF 74 06 JE CTRL_KEY 3 JUMP IF AL=CONTROL KEY 
0101 £8 0063 R CALL REAL_VECTOR_SETUP ; OTHERWISE, INITIALIZE REAL 
3 INT 48 VECTOR 
0104 CD 48 INT 48H 3 PASS THE SCAN CODE IN AL 
0106 ESC_ONLY: 
0106 CF I 3 RETURN TO INTERRUPT 48H 
0107 CTRL_KEY: 
0107 80 OE 0017 R 04 OR KB_FLAG, 04H 3 TURN ON CTRL SHIFT IN KB_FLAG 
@10c CF IRET 3 RETURN TO INTERRUPT 
010D ESC_KEY: 
010D F6 06 0017 R 04 TEST KB_FLAG, 04H 3 HAS CONTROL SHIFT OCCURED ? 
0112 74 F2 JE ESC_ONLY 3 NO, ESC ONLY 
sCONTROL ESCAPE HAS OCCURED, PUT MESSAGE IN BUFFER FOR CASSETTE 
3 LOAD 
0114 C6 06 0017 R OO MoV KB_FLAG,0 3 ZERO OUT CONTROL STATE 
0119 «#1E PUSH DS 
011A 07 POP ES 3 INITIALIZE ES FOR BIOS DATA 
o11B 1€ PUSH DS 3 SAVE OLD DS 
o1ic (OE PUSH cs 3 POINT DS AY CODE SEGMENT 
Sie BE HOV 3] OFFSET CAS_LOAD ; GET MESSAGE 
OLIE BE 0138 R , ea ; 
0121 B9 OO0E 90 MOV CX,CAS_LENGTH 3 LENGTH OF CASSETTE MESSAGE 
0125 33 CO XOR AX, AX 
0127 8A 04 T_LooP: MOV AL, (SII 3 GET ASCII CHARACTER FROM MESSAGE 
0129 cD 79 = INT 79H 3 PUT IN KEYBOARD BUFFER 
0128 46 INC SI 
o12c (E2 F9 LOOP T_LooP 
ster B&8 1COD ee Tea 
0133 iF ” Por Ds s RETRIEVE BIOS DATA SEGMENT 
bi Scud PoP bs Rt tro oR Ee raine sine swam eens! = 
3 MM MNOTEM Hi 
UMED THAT THE LENGTH OF THE CASSETTE MESSAGE IS 
' LESS THAR OR EQUAL TO THE LENGTH OF THE BUFFER. IF THIS IS 
; NOT THE CASE THE BUFFER WILL EVENTUALLY CONSUME MEMORY. 
ee Bs GASE IDE Re Bees kd oh ha dal hah paler 
0136 E8 0063 R CALL REAL_VECTOR_SETUP 
eIS7) CF rRey TERED AS FIRST 
jr----- MESSAGE FOR OUTPUT WHEN CONTROL-ESCAPE IS ENTE 
3 KEY SEQUENCE 
0138 CAS_LOAD LABEL BYTE 
O138 4C 4F 41 44 20 22 DB "LOAD "CAS1:",R° 
43 461 53 31 3a 22 
2c 52 
= 000E CAS_LENGTH EQU % - CAS_LOAD 
0146 NEW_LINT_48 ENDP 
0380 = ORG BEGIN+3500H 
0300 CODE ENDS 
END 
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" " 3" PROGRAM NAME = RAS.ASM 
“ MODULE 10 sm 
" " 


s™ DESCRIPTIVE MAME = POWER ON SELF TEST 
reterepepeperosiett , it" FUNCTION = POWER ON SELF TESTS (POSTS) 
i NOTES = NONE 
+™ DEPENDENCIES = NONE 
+" RESTRICTION = NONE 
3™ PROGRAM TYPE = PROCEDURE 
+ PROCESSOR = 8088 
3" MODULE SIZE = VALUE OF LABEL "POST_EHD® 
3" ATTRIBUTES = SERIALLY RE-USABLE 


3™ LINKAGE = RESET_FLAG + 0000 : POST - POWER ON ENTRY 


+6 1236 1 POST - PCTRLPFPALT™O"DEL™ ENTRY 
A 3412 1 POST - RCTRLMOPALT"O*INS™ ENTRY 
A 4321 1 DIAG. CARTRIDGE ENTRY 

3m 

3" INPUT = NONE 

3 

3" OUTPUT = NONE 

Hu 

3" EXIT-NORMAL = INT 19 TO BOOT LOADER, OR 

+H INT 80 TO DIAG. CARTRIDGE, OR 

fT) JMP CFAR INDIRECT) TO PCjr CARTRIDGE 

7” 

3M EXIT-ERROR = NORMAL MODE: 

3 JMP (HEAR) TO E_MSG OR SAME AS EXIT-NORMAL 
3M SERVICE MODE: 

pM JMP CHEAR) TO E_MSG 

; 

, 

3 EXTERNAL REFERENCES = VIDEO_PARMS : CRIC PARAMETER TABLE 
3m DISK_BASE =: DISKETTE ORIVE PARM. TABLE 
3H EXTAB : EXTENDED SCAN CODE TABLE 
38 

3" EXTERNAL ROUTINES = DDS t SET DS AS 40H SUBROUTINE 
iM READ_HALF_BIT + CASSETTE SUBROUTINE 
im SEEK : SEEK SUBROUTINE 

a] VIDEO_I0 : INT 10H 

a] DISKETTE_I0 =: INT 13H 

A KEYBOARD_I0 =: INT 16H 

3m BOOT_STRAP : INT 19H 

3m 

3 DATA AREA = ©0008 : 8088 INTERRUPT LOCATIONS 

i 00300 : TEMPORARY STACK AREA DURING POST 

A} 00400 : ROM BIOS DATA AREA 

7 00500 : EXTRA DATA AREA 

3 

3 CONTROL BLOCKS = €0400-7 1: RS-232C ADAPTER ADDRESSES 

3m O04038-F 1 PRINTER ADAPTER ADDRESSES 

7H 00410-1 : INSTALLED HARDWARE 

3 00413-4 : USABLE MEMORY SIZE IN K BYTES 
sm 00415-6 + REAL MEMORY SIZE IN K BYTES 
3M COSLA-B + KBD BUFFER HEAD POINTER 

zu GO41C-D : KBD BUFFER END POINTER 

3m OOSSE =: DISKETTE SEEK STATUS 

3M 80462 =: CURRENT PAGE BEING DISPLAYED 
3m C0468 =: CASSETE LAST INPUT VALUE 

a] 00472-3 : WARM START INDICATOR 

3m 00474-7 1 DISKETTE SCRACH PADS 

a] 00478-B : PRINTER TIMEQUT VALUE 

3M @O47C-F + RS-232 TIMEOUT VALUE 

Tv] 00480-3 1 KBD BUFFER POINTERS 

uu 00484 =: INTERRUPT HAPPEND FLAG 

a] 00505 +: MFG CHECK POINT VALUE 

3m 00518 =: POST ERROR VALUE 

iM 00702 =: DISKETTE DRIVES® CONFIGURATION 
8 

sm TABLES = 20 : SX-08 DATA 

34 e ’ ° 

3 2 s BRANCH DATA 

i] 22 t Lad 

am €x_9 : e 

3m SYSTRS + SX-08 DATA 

3m PPD t PRINTER DATA 

3m 
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CODE SEGMENT PusLtc 
goes ASSUME CS: CODE, DS: ABSO, ES : NOTHING, SS :STACK € 


PUBLIC POST.POST_END 
PUBLIC RESET,D11, DUMMY_RETURN, PRT_HEX, BEEP, VECTOR_TABLE 


EXTRN = DDS: NEAR 

EXTRN READ_HALF_BIT:NEAR 
EXTRN = SEEK? NEAR 

EXTRN = =PRINT_SCREEN: FAR 
EXTRN = TIMER INT FAR 


3 
t 
3 
5 
3 
EXTRN EQUIPRENT: FAR s 
EXTRN MEMORY. SIZE_DETERMINE: FAR 3 
EXTRN DISKETTE_IO:FAR 5 
FXTRN =—-RS232 1OTFAR ’ 
EXTRN = CASSETTE_IO1FAR 3 
EXTRN KEYBOARD_I0:FAR 3 16H 
EXTRN PRINTER_TO:FAR 3 
EXTRN  BAS_ENTTFAR 3 
EXTRN BOOT_STRAP:NEAR 3 
EXTRN TIME_OF_DAY: FAR 3 
EXTRN VIDEO_PARMS:BYTE 3 
EXTRN DISK_BASE: BYTE 3 
EXTRN KBONMI: FAR 3 
EXTRN KEVG2 SINT: FAR 3 
EXTRN = EXTA BYTE 3 
EXTRN KKKFDASE 3 
3 


EXTRN BUFFER, QUEING: FAR 79H 

POST LABEL FAR @ 
speee BEGIN EQU . 

J oaSeenicacuswoseeciceceesessaseacumsnesesuswats~ occu cna sedecenee 

; RETURN POINTERS FOR RTNS CALLED BEFORE STACK INITIALIZED + 

i DISABLE MEMORY REGISTER DECODERS AND ENABLE VRAMI DECODER 
eoee 01 ze ¢ START REG ADDR 
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ooocoooocooe 
oooooocoroa 


oaonnoc 
q@oooco 


o 
oc 
a 
m 
Pawns 8 


20 4B 42 
$2 52 4F 52 


DB 060H 3 MASK DATA 
DB 10 + PARAMETER LENGTH 
DB 000H s 01 ~ CARTRIDGE ROM 2 (DO000-) 
DB 000H $ 02 - CARTRIDGE ROM 3 (D8000-) 
DB 000H 3 03 - CARTRIDGE ROM 4 (E0000-) 
DB 000H 3 04 = CARTRIDGE ROM 5 (E8000-) 
DB 000H + 05 - CARTRIDGE ROM 6 (FO000-) 
DB 000H $ 06 - CARTRIDGE ROM 7 (F8800-) 
DB 000H 3 07 - KAKJI ROM 
DB 000H 3 08 - PROGRAMMABLE RAM 
DB 0B7H 3 09 - VRAM1 (B8000-BFFFF) 
DB 000H $ OA ~ VRAM2 
DW Lot 3 RETURN ADDR 
so---- ENABLE BASE ROM DECODER 
OB 000H 3 START REG ADDR 
DB 023H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OBCH 3 00 - BASE ROM (E0000-FFFFF) 
DW Lo_2 3 RETURN ADDR 
pooeee INITIALIZE I70 REGISTER DECODERS 
DB O80H 3 START REG ADDR 
DB 000H 3 MASK DATA 
DB 20 3 PARAMETER LENGTH 
DB O80H > 80 - 8259 PIC CS (20H-27H) 
DB 030H 3 81 - 8253 PIT CS C4OH-47H) 
DB 080H 3 82 - 8255 PPI cS (60H-67H) 
DB 080H 3 83 - WMI CTRL CS CAQH-A7H) 
DB 080K 3 84 - SOUND CHIP CS (COH-c7H9 
DB O9EH 3 85 - UPD765 FDC CS CFOR-F7H) 
DB 080H 3 86 - JOYSTICK READ (200H-207k) 
DB 080H 3 87 - JOYSTICK WRITE (200H-207H) 
DB 080H 3 88 - PARALLEL PRINTR(378H-37FH) 
DB 080H 3 89 - 8250 COMM PORT (2F8H-2FFH) 
DB 080H 3 8A - 46505 CRIC (3D0H-3D7H) 
DB 000H 3 8B - RESERVED 
DB 080H 3 8C - PCJR VGA C3DAK) 
DB 080H 3 8D - NATIVE VGA (3DAH) 
DB 080H 3 8E - EXT. VGA C3D0H) 
DB 080H 3 8F - LIGHT PEN GATE (3DAH,3DEH) 
DB 0380H 3 90 - CRIVCPU PAGE REG 2 (3D9H) 
DB 080H 3 91 - CRIZCPU PAGE REG — (30FH) 
DB 00H 3 92 - MODEM CTRL REG (3F8H-3FFH) 
DB 080K 3 93 - EXTERNAL BUS CONTROL REG 
DW Lo 3 RETURN ADDR 
i----~ DISABLE $X-03 DECODER 
20 DB O8EH 3 START REG ADDR 
DB 000H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB YT) 3 8E - SX-83 EXT. VIDEO (3DDH) 
Du ul 3 RETURN ADDR 
Pen eeceenn en netenecace sete ceserceusecueccceteseseu eweine Se ee 
zu Dw Lis 3 RETURN ADDR OF ROS CHECKSUN TEST 
jeseecsucnse ears cae eee woe oneee ceases, Sencancseceunscosses as 
bo---- ALLOCATE PROGRAMMABLE RAM 
DB 008H 3 START REG ADDR 
DB 063H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OAOK 3 (00000-1FFFF) 
Dw MCONFS 3 RETURN ADDR 
DB 008H 3 START REG ADDR 
DB 063H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OAGH 3 (20000-3FFFF) 
Du MCONFS 3 RETURN ADDR 
DB 003H 3 START REG ADDR 
DB 063H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OA8H s _(40000-SFFFF) 
DW MCONFS 3 RETURN ADDR 
DB 003H 3 START REG ADDR 
DB 063H 3 MASK DATA 
os i 3 PARAMETER LENGTH 
DB OACH 3 (60000-7FFFF) 
eyes Dw MCONFS 3 RETURN ADDR 
ae DW L16 3 RETURN ADDR OF 2K RAM TEST 
EX_0 DW OFFSET EBO 3 RETURN ADDR OF E_NSG 
OW OFFSET EBO 3 zs 
; Dw OFFSET TOTLTPO 3 * 
MESSAGE AREA FOR POST : 
F3B DB " KB* 5 MEMORY SIZE PROMPT 
ERROR_ERR DB ‘ERROR’ + GENERAL ERROR PROMPT 
MEM_ERR DB ‘At 3 MEMORY ERROR MESSAGE 
KEY_ERR DB "Be 3 KEYBOARD ERROR MESSAGE 
CASS_ERR DB "cr 3 CASSETTE ERROR MESSAGE 
COML_ERR DB *p? } SERIAL PORT ERROR MESSAGE (2FXH) 
COM2_ERR DB ‘Er 3 SERIAL PORT ERROR MESSAGE (3FXH) 
ROM_ErR D8 ‘Ff? 3 OPTIONAL GENERIC BIOS ROM ERROR 
CART_ERR OB "go? 3 CARTRIOGE ERROR MESSAGE 
DISK ERR DB 'H! 3 DISKETTE ERROR MESSAGE 
PRT_ERR DB oye 3 PARARELL PRINTER ERROR MESSAGE 
KFNY_ERR DB ‘Ke 3 KANJI-FONT ROM ERROR MESSAGE 
INVC_ERR DB "ue 3 INVALID COMBINATION OF CARTRIDGE 


i 
IMASKS LABEL BYTE 


3 INTERRUPT MASKS FOR 8259 

b INTERRUPT CONTROLLER 
OB GEFH 3 MODES 3 RS232C INTR MASK 
DB OFTH 3 RS232C INTR MASK 
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0068 
0068 


008c 
OO8E 
0090 


0992 


0095 
0098 
OO9A 
oesc 


OO9E 
00A0 
O0a2 
OOAS 
OOAG 
OAS 
O0A9 
GOAB 


E9 O4CA 
E9 G4CA 


BO 60 
E6 AO 
E4 AO 


B8 267F 


Bg 0004 
02 C4 
E6 CO 
E2 FA 


BO AO 
&6 F2 
BA OSDA 
ec 

BO 04 
EE 

BO 62 
cE 


B¢ DS 
3 4c 


m 


ey 
etal 
o> 


9 4% 


mo 
aw 


ew2cooen 


MONOF LYS YBOUYOEY COPwayvuV VC 
> 


CONNK NFO SFMNNRKPOCeW Neen 


AMNMe Uw ww MUM Puw 


Veen oN 





+ SETUP 
; DISABLE WMI & MASKABLE INTS, CLEAR MEMORY MAPP : 
+_______ENABLE BASE ROM, AND SET UP’ 1/0 MAPPIN iter : 
ew Meet ac Ks + DISABLE NMI acini 
3 
IN AL, HMI_PORT 5 RESET NMI F/E 
oo s DISABLES MASKABLE INTERRUPTS 
oey mre aPanr ag 3 SEND 'FF* TO MFG_TESTER 
° 3 
Mov AL, CLEAR MFG_PORT 
our MFG. PORT+1,AL ; a eee 
ouT MFG_PORT#¢2,aL 5 
MoV AX, 
my feeGs + SET UP STACK SEGMENT & POINTER 
MoV SP,OFFSET 20; 
te JMP S8SETJ + CLEAR MEMORY MAPPING 
i: JMP S8SETJ 3 ENABLE BASE ROM DECODER 
Loz: jmp S8SETJ + SET UP I7C REG DECODER 
3 SETUP AT NATL ee YP pee Sasa 
DISABLE NMI, MASKA , 
PERAPSE WT: MASKABLE INTS, SOUND CHIP, AND VIDEO. : 
Lor MOV ao "T DISA BCEMMR eo OE 2 heme ep 
ouT NMI_PORT,AL “baie DLE wnt 
IN AL. HMI_PORT 3 RESET NMI _F/E 
3 DISABLE ATTENUATION IN SOUND CHIP 
Mov AX, 207FH + REG ADDRESS IM AH, ATTENUATOR OFF 
Mov 6x, 4 i 4 ATTENABLE 
ti: ADD AL SAH aL 3 COMBINE REG ADDRESS AND DATA 
— 3 
Loop) i P 
MOV AL WD. FENABLE*FDC_RESET TURN DRIVE 0 MOTOR OFF, 
OUT NEC_CTL.AL 7 ENABLE TIMER 
MOV DX. VGALeTe 3 VIDEO GATE ARRAY CONTROL 
IN AL, DX 3 SYNC VGA TO ACCEPT REG 
MOV ALL4 3 SET VGA RESET REG 
HOV hse } Set'syne RESET 
; SYNC RES 
our DX, AL ; RESET VIDEO GATE ARRAY 
3 TEST 1 : 
3 8088 PROCESSOR TEST 1 
3 DESCRIPTION t 
3 VERIFY 8088 FLAGS, REGISTERS, AND CONDITIONAL JUMPS ' 
3 MFG ERROR CODE = 000 : 
MOV AH, ODSH ; SET SF, CF, ZF, AND AF FLAGS ON 
SAHF 
JHC L4 + GO TO ERR ROUTINE IF CF NOT SET 
JHZ 4 + GO TO ERR ROUTINE IF ZF NOT SET 
INP ts + GO TO ERR ROUTINE IF PF NOT SET 
INS 4 3 GO TO ERR ROUTINE IF SF NOT SET 
LAHF + LOAD FLAG IMAGE TO AH 
or Gicd iE AE Si tie BT a 
SHR AH, CL 3 SH 
Juc 4 F GO TO ERR ROUTINE IF AF NOT SET 
ov AL, 40H 3 
SAL AL. + SETUP FOR TESTING 
JNO L4 3 GO TO ERR ROUTINE IF OF MOT SET 
XOR AH, AH 3 SET AH = 0 
SAHF 3 CLEAR SF, CF, 2F, AND PF 
IBE 4 3 GO TO ERR ROUTINE IF CF ON 
ou Brunia eo 
Js us 3 GO TO U 
gp 4 + GO TO ERR ROUTINE IF PF ON 
; LOAD FLAG IMAGE TO AH 
hove CLS ; LOAD CNT REG WITH SHIFT CNT 
SHR AH, CL 3 SHIFT "AF! INTO CARRY BIT Pos 
Je L4 + GO TO ERR ROU 
SHL AH, 2 + CHECK THAT "OF! IS CLEAR 
GO TO ERR ROUTINE IF ON 
geoee- RERD/URITE. THE 8088 GENERAL AND SEGMENTATION REGISTERS 
3 WITH ALL ONE’ AND ZEROES'S. 
MOV X, OF FFFH ; SETUP ONE'S PATTERN IN AX 
L2: Aov DS, AX ; WRITE PATTERN TO ALL REGS 
MOV BX, DS 
mae EE 
MoV 
MOV $5,CX 
MOV DX, $5 
MOV SP, DX 
MOV BP. SP 
MOV S1,BP 
MOV DI,SI 
JNc 3 
XOR AX, DI s PATTERN MAKE IT THRU ALL REGS 
JNZ L4 s NO -GOTO ERR ROUTINE 
cic 
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eccooeo cececcoeo o 
-— ee me FO oe oe oe pe - 

NMVVOO Seeoeocoen 

NOK nNSe NFCeytUsSE 


a 


cooce 
emo 
vvv~w 
mawn 


ES JMP L2 


OB C7 U3: oR AX, DI + ZERO PATTERN MAKE 
09 J2 us’ + YES -GOTO NEXT TEs; RU? 
00 ey nov ALO erer at 2 MFO ERROR CODE = 0001 
_PORTS1, 3 
01 MOV ALT ; 
12 ouT MFG_PORT#2,AL 3 
v4 HLT 5 HALT 
: 
Pomeerrrncrnno= Salata tatatatatatate ere menwewowrnwnemwewennnwn nen nn ene 
1 TEST : 
“255 INITIALIZATION AND TEST t 
i DESCRIPTIO ; 
FIRST INITIALIZE 8255 PROG. PERIPHERAL INTERFACE, ; 
PORTS ARB ARE LATCHED OUTPUT BUFFERS. ¢ IS INPUT. : 
} MFO ERROR CODE = Sk... Bint Mi : 
fC Soy AbSTEEty af SEND FEY TO nro.tesren 
89 MOV AL, Rope 8255 
a ouT CHD_PORT,AL s CONFIGURES 170 PoRTS 
ca < sus Axa + TEST PATTERN SEED = e009 
2 7 
ie out PORT_A,AL } WRITE PATTERN TO PORT A 
$0 IN AL,PORT_A + READ PATTERN FROM PORT A 
‘1 our PORT_B,AL ; WRITE PATTERH TO PORT 3 
61 IN AL, PORT_B s READ OUTPUT PORT 
Cs CHP AL, AH 5 DATA AS EXPECTED? 
ts JHE 7 3 IF NOT, SOMETHING IS WRONG 
C4 INC AH 3 MAKE KEW DATA PATTERN 
Ha jhe SHORT LB S CONTINUE TF DONE kN DOME 
L7: Mov BL, 02H } SET ERROR FLAG CBH=09 How) 
OD3S2 R JMP E_MSG 3 GO ERROR ROUTINE 
O3DF U8: Mov DX, PAGREG ; 
1B MOV AL, 1BH 3 PAGE 3 
ouT DX, AL ; 
0p mov AL,Qogoii01B 5 INITIALIZE OUTPUT PoRTS 
a9 
3 PART 3 pein 
H SET UP 46505 AND VIDEO GATE ARRAY TO GET MEMORY MORKING § 
jreoococeee erewrwe eww e ee eeesoeeoeere: eee wee eee Se Kee Se eee wee ceseeea. ieee 
FD Rov. AL, OFDM ie + SEND 'FD' TO HFG_TESTER 
booe E mov ax, OrFset VIDEO_| PARR p,ROINT, TO s6s0s Panns 
cx, ; ARM L 
£4 XOR AH, AH ; AH IS REG 8 
cs Lo MOV AL, AH 3 GET 46505 REG 
O3D¢ mov Dx, CRT_CTL } SET ADDRESS OF 46505 
a Inc |x } POINT TO. DATACP 
; ORT 
2: 8A 07 MOV ALCS £BX) 3 GET TABLE VALUE 
E out DX, AL 3 OUT TO CHIP 
” Inc, Bx 3 NEXT IN TABLE 
, }----- START VGA WITHOUT VIDEO ENABLED 
SDA mov DX,VGA_CTL 3 SET ADDRESS OF VGA 
IN AL, DX 3 BE SURE ADDR/DATA FLAG IS 
‘ie 3; IN THE PROPER STATE 
8s MOV cL.5 3 @ OF REGISTERS 
cs ties Oy AtAL : cer Reo iain 
4 out DX, AL 3 SELE 
XOR AL SAL } SET ERO FOR DATA 
ce INC an’ 3 NEXT REG 
LOOP Lio 3 
osop MoV DX,VGA_CTL_LE 5 
rr InN AL,DX 3 
mov Ae 3 ENABLE EXT. VIDEO CLOCK 
3 
= OUT DX, AL ; 
ov ALL 3 DISABLE EXT. VIDEO PROCESSOR 
> 8 
out DX; AL i 
4 nov ax.cs 3 SET UP STACK SEGMENT & POINTER 
peer 4 MOV SPror OFFSET 2.0 ; 
ing S8SETJ 3 DISABLE SX-03 DECODER 
; TEST ‘, SO RR OO OBO eee eee Ses cee ee ES OSes SSeS Sse seeesses 


: 
U PLANAR BOARD ROS 2 
+ DESCRIPTION RD CHECKSUM TEST : 
U ‘ a rnekaunt jet aS * aia FOR EACH ROS MODULES 1 
3 HE PLANAR B 1 
3 MFG ERROR’ CODE = 2007” *MODULE AT ADDRESS EQQQGH ERROR ' 
5 0008 MODULE AT ADDRESS E8CO0H ERROR t 
‘ 9003 MODULE AT ADDRESS FOOQOH ERROR 2 
' 0004 MODULE AT ADDRESS F8OQOH ERROR ' 


FC TR OR Oe me mee wee ewe ewe we ee ee eee ee ene nnn nee wene= 


re MOV AL, OFCH 3 SEND ‘FC TO MFG_TESTER 
cote our MFG_PORT.AL 3 
MoV OX, 0E000H + SET DS TO EOOCH 
Li2: MoV DS, DX 3 
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OLAD BO 00 
O1AF 02 04 
0181 46 
o1B2) «E2 FB 
0184 OA CO 
0186 «6CS 


0187 «BO FB 
0189 E6 10 
O1BB «33 DB 
0180 8E DB 
O1BF «33 F6 
O1Cl =E4 62 
O1CS) 24 08 
lcs 75 02 
01C7) BS 08 
61C9 BS SASA 
01cC «89 04 
ICE EB 00 
0100 EB 00 
0102) 8B 14 
0106 «3B C2 
O1D6 «674 «OE 


C1DA 89 04 
O1DC EB 00 
O1DE EB 09 
O1EO 8B 14 
OLE2 3B C2 
O1ES 75 10 
O1ES 43 

O1E7 83 C4 06 
OLEA 8C D8 
C1EC 80 C4 20 
OLEF 8E DB 
O1FL 80 FC 60 
Q1F& 72 DS 
O1FS 8B C3 
O1F8 E6 60 


GIFA £9 O4CAR 
O1FD 


XOR SI,SI 3 SET OFFSET 
mov SP,OFFSET 21 + SET UP STACK POINTER 
MoV CX,8000H NUMBER OF BYTES TO BE TESTED, 32K 
oss jue SHORT ROS CHECKSUM, 32K ROM OK ? 
E - 
Mov BX,0003H 3 SET ERROR CODE (000 
CMP DH OF OH : - 
inc BR’ : 
3 (0004) 
CMP DH, OF8H 3 
JE t_E 3 
INC Bx 3 
INC Bx ; 
Bx 3 (00 
cmp DH, OEOH ; an 
inc X : 
Xx 3s (0008) 
Le JMP E_MSG 3 INDICATE ERROR 
LT4: ADD DH, 08H 3 END OF ROM SPACE ? 
JNZ L12 3 NO - 
oP SHORT L1S 3 YES- GOTO NEXT TEST 
3 SUAROUTINE 
’ HMETIC CHECKSUM 
d BitRy: SUBROUTINE 
3 DS = DATA SEGMENT OF ROM SPACE TO BE CHECKED 
3 SI = INDEX OFFSET INTO DS POINTING TO 1ST BYTE 
; CX = LENGTH OF SPACE TO BE CHECKED 
: EXIT: ZERO FLAG OFF=ERROR, ON= SPACE CHECKED OK 
Ros CHECKSUM PROC NEAR 
MOV ALLO 
RC_0: ADD AL,DS:($1) 
INC SI 
Loop RC_O 
OR ALVAL 
RET 
ROS_CHECKSUN ENDP 
Lis: 
3 PART 5 F 
3 RAM MAPPING (SAVED a PORT —A DURING POST) z 
3 BIT 7  : SET IM PA mr) : 
3 BIT 6 : SETI test 138 15 2 
5 BIT 5-4 =: RESERVED 2 
3 BIT 3 =: 64K RAM CARD INSTALLED t 
3 BIT 2 +: RESERVED 2 
5 BIT 1-0 : NUMBER OF EXP 128K RAM CARD 2 
3 00 NO CARD INSTALLED 2 
3 O01 1 CARD INSTALLED (128K - 20000) t 
3 10 2 CARDS INSTALLED (256K - 40000) 2 
3 11 3 CARDS INSTALLED (384K - 60000) : 
paccscuaeses Se i a SR ne ict Sh 2 
mov AL, OFBH 3 SEND 'FB* TO MFG_TESTER 
OUT MFG_PORT,AL 3 
XOR BX, BX 3 INIT 128K CARD COUNTER 
MOV DS, BX 3 SEY FIRST SEGMENT TO BE TESTED 
XOR SI,SI 5 
IN AL,PORT_C 3 GET CONFIG BITS 
AND AL, 00001000B 3 64K CARD IN ? 
JNZ MCONFO 3 
MOV BL,00001000B 3 SET 64K CARD FLAG BIT 
MCONFO: MOV AX, 5A5AH 3 SET WRITE DATA 
MOV DS:(SIJ,AX 3 WRITE DATA TO TOP OF 128K BOUNDRY 
JMP $42 3 DELAY 
JMP $+2 3 
“MOV DX, DS: ($1) 3 READ BACK 
CMP AX, DX 3 5A5A ? 
JE MCONF1 3 YES- 
NOT AX ; 
MOV DS:(S1),AX 3 WRITE DATA TO TOP OF 128K BOUNDRY 
JMP $+2 3 DELAY 
JMP $42 3 
mov DX, DS:({$1) 3 sets Back 
cMP AX, DX 3 
JNE MCONF2 3 NO -GOTO MAIN RAM MAPPING 
MCOHF1: INC BX 3 YES-INC 128K CARD COUNT 
ADD SP.6 3 INC TABLE POINTER 
MoV AX, DS 3 
ADD AH, 20H 3 SEY SEGMENT OF NEXT 128K 
MOV DS, AX 5 
CMP AH,60H 3 512K EXCEEDED ? 
JB MCONFO 3 NO -CHECK NEXT 128K 
MCONF2: MOV AX, BX 3 SAVE @ OF 128K CARD IN PORT_A 
our PORT_A,AL 3 
JMP S8SETJ 3 SET RAM MAPPING 
MCOHFS: Sih cio eeeeeweese 
3 TEST : 
AGE TEST ' 


*sAse 8K READ/WRITE STOR 


DESCRIPTION 
WRITE/READ/VERIFY DATA 
1ST 8K OF STORAGE AND T 
VERIFY STORAGE ADDRESSA 


MFG ERROR CODE = 03XX FOR 128 


PATTERNS AA, 55, FF AND 00 TO 
HE 2K OF VIDEO RAM (CRT BUFFER). 
BILITY. 


K RAM CARD 


04XX FOR BASE 64K RAM 
O5XX FOR 64K RAM CARD 
06XX FOR BOTH 64K RAM 


3 
* 
3 
; ON EXIT SET CRT PAGE TO 
3 
; 
3 
3 
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8 
’ 
t 
’ 
15. SET TEMPORARY STACK ALSO. : 
t 
a 
1 


TEDFT122 


(XX= ERROR BITS - OR'ED HIGH & LOW BYTES) : 
0005 FOR BASE 64K RAM (B8000 ADDR PATH) 
0006 FOR BASE 32K VIDEO RAM (BaC00 ADOR PATH): 


O1FD BO FA MoV AL, OFAH } SEND 'FA* TO MFG_TESTER 
O1FF £6 10 OUT MFG_PORT.AL 3 
0201 BC OOsE R MoV SP, OFFSET 22 + SET RETURN ADDR 
6204 B9 1000 MOV CX, 1000H 3 SET FOR 4K WORDS (8K BYTES) 
0207 33 co XOR AX, AX 
0209 8€ Co MOV ES, AX + LOAD E! 
020B €9 ODEAR JMP PODSTG 3 TEST ist 6K RAM 
O20E 74 28 Li6: Jz 123 3 TEST 0 
0210 B7 03 MoV BH, 03H 5 ERROR. Tess 
0212 E% 60 1K AL, PORT_A 3 LOAD CONFIG FLAG 
0214 A& 03 TEST AL, 000000118 3 128K CARD INSTALLED ? 
0216 75 08 JNZ L20 3 YES- 
0218 B7 04 Li7: MOV BH, 04H 3 ERROR 04.... 
O21A E4 60 InN AL,PORT_A 3 
O21C AB 08 TEST AL, 000010008 3 64K CARD INSTALLED ? 
O21E 75 06 JNZ 21 3 YES-WORRY ABOUT ODD/EVEN 
0220 8A D9 L20: MOV BL, CL 3 HO -COMBINE ERR BITS 
0222 OA DD OR BL.CH 
0224 «EB 12 JMP SHORT L22 3 
0226 80 FC 02 L2i: chp AH, 02 3 EVEN BYTE ERROR? ERR 04xX 
o229 8A D9 py age 
oaeD re eo INC BH + MAKE INTO O5XX ERR 
O22F OA DD OR BL, CH 3 MOVE AND POSSIBLY COMBINE 
3 ERROR BITS 
0231 80 FC OL CMP AH, 2 3 ODD BYTE ERROR 
| oase FE CF ine Bae ; MUST HAVE BEEN BOTH 
, 
0 L22: MP E_MSG 3 
ee eae i23: setup Tenerceson ae wer STACK VALUE 
3: Ov AX.0 3 
Os3e He He nov 3 SEY THE STACK UP 
0240 BC 0100 R MOV SPL OFFSET TOS 3 STACK IS READY TO GO 
0243 33 CO XOR AX, AX 3 SET UP DATA SEG 
0245 8E D8 MoV DS, AX 
poo--- TEST FIRST kOe & 64K VRAM 
0247 £6 60 IN f F 
0249 A& 03 TEST AU, o0o0uOLIB 3 128K RAM CARD 2? 
02468 74:19 JZ 4 3 NO -BYPASS TESTING 
024D Bg 4000 MOV CX,4000H ; 
0250 A& 01 TEST AL, 000000018 3 
0252 74 08 JZ L23_1 ; 
’ 0254 BS 20 MOV CH, 20H 3 
0256 A& 02 TEST AL, 00000010B ; 
0258 74 02 JZ L23_1 3 
025A BS 60 MOV CH, 60H 3 
o25C BE C1 L23_1: MOV ES,CX 3 
O25E Bg 0400 MOV CX,0400H 3 2K BYTES 
0261 E8 ODEAR CALL PODSTS 3 
0264 75 B2 JNZ ; 
3r---- Test BOTTOM. 2K OF PAGE 3 IN 64K VRAM USING B8060 ADOR PATH 
0266 BO FS L24: AL, OFOH 3 SEND 'F9* TO MFG_TESTER 
0268 E6 10 our MFG_PORT,AL ; 
026A B9 0400 mov CX,0400H 3 2K BYTES 
026D B& BB80 MOV AX, OBB8OH + POINT TO AREA JUST TESTED WITH 
0270 8E CO MOV ES,AX 3 DIRECT ADDRESSING 
0272 E8 ODEAR CALL PODSTG 3 
9277 BB 000s ae “eed : 
B MOV Bx. 8 4 3 
aoe, ote ose hoy oe 00s i ERROR 0005 
to---- DISABLE Vaan” oD R 
278 £8 Acs é ne SA saat DECODER & ENABLE VRAM2 DECODE! 
0280 «609 bs 009H 3 START REG ADDR 
0281 60 DB 060H 3 MASK DATA 
0282 02 DB 2 3 PARAMETER LENGTH 
pee ge DB 000H 3 DISABLE VRAML DECODER 
gees 8 DB OB7H 3 ENABLE VRAM2 DECODER 
0285 BA 03D9 4 
C288 BO 00 Say eee i SET PAGE REG 8 
028A EE OUT DX, AL 3 
sonon- TEST BOTTOM 2K OF PAGE 8 IN 32K VRAM USING B8008 ADDR PATH 
Roce be ane Mov CX,0400K 3 2K BYTES 
sect eee HOV AX, OBB8ON 3} POINT TO AREA JUST TESTED WITH 
1 MoV ES, AX 3 DIRECT ADDRESSING 
0293 E8 ODEAR CALL PODSTG : 
$235 38 Se cant 
B 0006 
0298 €9 ODS2 R ie |U keene + ERROR 9006 


3 PART 7 
ROM CARTRIDGE CONFIGURATION CHECK 
DESCRIPTION 
THIS. ROUTINE CHECKS ROM CARTRIDGE ADDRESS CONFIGURATIONS. 
IF ROM CARTRIOGE OVERLAPS SYSTEM ROM AREA, SYSTEM ROM IS 
DISABLED AND THEN CARTRIDGE ROM IS ENABLED. 


BASE ROM OVERLAPPED FLAG (SAVED IN PORT A) 
BIT 7 1 SYSTEM MODE FLAG 
0 NATIVE MODE 
1 PCJR MODE 


3 BIT 6 : SET IN TEST 13 2 15 
4 BIT 5-4 : RESERVED 

3 BIT 3 t SET IN PART 5 

U BIT 2 + RESERVED 
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O29E 
O2A0 


BO FS8 
6 10 


EB 04C2 R 
OA 


00 
01 
00 


E8 04C2 R 


BA OLFF 
A& 20 


8A 64 02 
0 

81 FA A000 
3 


€8 04C2 R 


EB 21 
EB 04C2 R 


EB 04C2 R 


Bebe BIT 1-0 + SET IN PART 5 
L2é6r Mov AL, fel + SEND 'F8* TO "HEG_ TES 
out MFG_PORT,AL 3 
tooe-- DISABLE VRAM2 DECODER 
site 
3 START REG ADDR 
DB 000H 3 MASK DATA 
ee a 3 PARAMETER LENGTH 
3 
ionae= ALOCATE caRT. ROMS TO ADDR 90000H-BFFFFH TEMPORARILY 
3 
8 th $ START REG ADDR 
DB 020H 3 MASK DATA 
Hh 6 3 PARAMETER LENGTH 
OB OB2H 3 CART. ROM 2 (90000-97FFF) 
OBSH 3 CART. ROM 3 (98000-9FFFF) 
Ms OBGH 3 CART. ROM 4 (A0000-A7FFF) 
OBSH 3 CART. ROM 5 (A8000-AFFFF) 
DB OBGH 3 CART. ROM 6 (B0000-B7FFF) 
OB7H 3 CART. ROM 7 (B8000-BFFFF) 
mov DX, SBSTATUS 3 
TEST ALE EROM7IN t cepnecteree 
the Rconre i Facog FFFFF OVERLAPPED BY CART.? 
BOOOH 3 
Ri cares ¢ GET SYSTEM ID FROM FFFFE 
MOV SI, 0FFFEH H 
Ena eee 3 
»PJSYSID + PCJR SYST . 
se. Reon + POUR EM CART.? 
SWP8 NOS 
caus toch es ; NO-GO TO SYSTEM SWAP (NATIVE MODE? 
IN AL, PORT_A 3 SET PCJR MODE F 
OR AL, 100000008 3 B PEAS 
ouT PORT_A,AL 3 
RCONF2: TEST AL i 
: AL, EROM6IN Fo000- 
r gLsExoR + Fogo F7FFF OVERLAPPED BY CART.? 
MOV DX, 9000H > SET TEMP , 
oa beret seeae EMPORARY CART. ROM TOP ADDR 
RCONFS: MOV DS,DX 3 
MOV AX, 0S: (SI) 3 READ ROM CARTRIDGE ID 
PUSH aX 3 BUS SETTLING 
POP AX 3 
CHP AX, OAASSH 3 ID FOUND (PCJR MODE) ? 
JE RCONF7 3 YES- 
CMP AX, SSAAH 3 (NATIVE MODE) 
JE RCONF7 3 YES- 
ADD DX, 0080H 3 POINT TO NEXT 2K ADDR 
CMP DX, 0B000H 3 ADDR F0000 ? 
JB RCONFS 3 NO -GO CHECK NEXT AREA 
JMP SHORT RCONF14 =; YES-AREA E0Q000-FFFFF IS NOT 
3 OVERLAPPED BY CARTRIDGE 
RCONF7: MOV AH, DS:(S142) 3 SET CART. ROM LENGTH 
XOR AL, AL 3 
MOV cL,3 3 
SHR AX, CL 3 
ADD DX, AX 3 CALCULATE CART. ROM END ADDR+1 
CMP DX, 0A000H 3 CART. ROM END ADDR+1 <= E0000 ? 
JBE RCONFS 3 YES- 
JMP SHORT RCONF1S 3 NO -AREA EOD00-EFFFF IS 
3 OVERLAPPED BY CARTRIDGE 
~---- BASE ROM ACTIVE (F8000-FFFFF) 
ReonFizscatl S8SET 3 
DB 000H 3 START REG ADDR 
DB 060H 3 MASK DATA 
DB 7 3} PARAMETER LENGTH 
DB OBFH 3 DISABLE BASE ROM (E0000-F7FFF) 
DB OBAH 3 ENABLE CART. ROM 2 (DO0000-D7FFF) 
DB OBBH 3 ENABLE CART. ROM 3 (D8000-DFFFF) 
DB OBCH 3 ENABLE CART. ROM 4 (E0000-E7FFF) 
DB OBDH 3 ENABLE CART. ROM 5 (E8000-EFFFF) 
DB OBEH 3 ENABLE CART. ROM 6 (FO0000-F7FFF) 
DB 000H DISABLE CART. ROM 7 (F8000-FFFFF) 
JP SHORT RCONF15 
pe---- BASE ROM ACTIVE (F0000- FFEFF) 
3: ital S8SET A 
Reon DB 000H } START REG ADDR 
DB 061H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OBEH ; BASE ROM CEO000-EFFFF) DISABLE 
CALL S8SET 3 
DB 001H 3 START REG ADDR 
DB 060H 3 MASK DAT 
DB 6 PARAMETER LENGTH 
DB OBAH ; ENABLE CART. ROM 2 (D0000-D7FFF) 
DB OBBH 3 ENABLE CART. ROM 3 (D8000-DFFFF) 
DB OBCH ; ENABLE CART. ROM 4 (E0000~E7FFF) 
DB OBDH ; ENABLE CART. ROM 5 (E8000-EFFFF) 
DS 000H 3 DISABLE CART. ROM 6 (FOOOO-F7FFF) 
DB 000H DISABLE CART. ROM 7 (F8000-FFFFF) 
JMP SHORT RCONF1S 
so---- BASE ROM ACTIVE (E0000- FFEFF) 
RCOHF14: CALL S8SET ; 
DB 001H 3 START REG ADDR 
DB 060K } MASK DATA 
DB 6 3 PARAMETER LENGTH 
DB OBAH 3 ENABLE CART. ROM 2 (D0000-D7FFF) 
DB OBBH 3 ENABLE CART. ROM 3 (D8000-DFFFF) 
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FFFFFFFFFFF 


0349 
O34A 


1E 
FA 


04C2 R 


O4F5 R 


o 
n 
2 
o 
2 


o 
i] 
“ 
Nn 
PR 


06 OO72 R 1234 


1E 0015 R® 
FB 0080 


EB 40 


EB 40 


OLFF 
08 
AQ 


DB 000H 3 DISABLE CART. ROM 4 (€0000-E7FFF) 
DB 000H 3 DISABLE CART. ROM 5 (€8000-EFFFF) 
DB 900H 3 DISABLE CART. ROM 6 (FO000-F7FFF) 

000 s DISABLE CART. ROM 7 (F8000-FFFFF) 


DB 
ton-w~-- ENABLE veane" a eeanee 
RCONF15: acre $385 


5 
th 3 START REG ADDR 
DB 060H + MASK DATA 
DB 1 + PARAMETER LENGTH 
ps 087H 3 VRAM2 (B8000-BFFFF) 
JMP 126_2 s CONTINUE NEXT TEST 
5 Sew eeew eee eee eee ORDO SS COHSASDOS2A2SOSSSS®S eR eR ewe wre ee mew eeneees 
5 _SYSTEM ROM SWAP TO CARTRIDGE ROM 
SYSSWAP: PUSH DS ; SAVE DS SEG 
clr > DISABLE EXTERNAL INTERRUPTS 
Jrroeeoor oem weesoococcce SeaenenasemeSsse== Pete e ewww mewn nnn wenn nnn 
3 TEST 22 : 
3 PCjr CARTRIDGE ROM CHECKSUM TEST H 
3 DESCRIPTION ' 
; CHECK PCjr CART. ROM (FOOOQO-F7FFF) WITH CHECKSUM. : 
+ MFG ERROR CODE = 2AFO CFOSMSB OF SEGMENT THAT HAS CHECKSUM) : 
prrowesereess= is a me a a a on mew ewww enween nee we eeeeeee 
CALL MFG_UP 3 “SEND "ES" TO MFG_TESTER 
MOV DX, S8STATUS 3 
IN AL, DX 3 
TEST AL, EROMGIN 3 CART. ROM IN FOOO0-F7FFF ? 
JZ JROM 3 NO -BYPASS 
MOV AX, OFOOOH 3 SET BASE ROM ADDR 
MoV DS, aX $ 
XOR SI,SI 3 
MOV AX, DS: (STI 3 
CMP AX, OAASSH 3 PCJR CART. ROM ID FOUND ? 
JE JROML 3 YES-BYPASS 
MOV CX,8000H 3 SET ROM LENGTH 32KB 
CALL ROS_CHECKSUM 3 ARITHMETIC CHECKSUM GOOD t 
JZ JROM1 3 YES- 
MOV AH,2 3 
MOV BH,O 3 
Mov DX, 081CH 3 POSITION CURSOR, ROW 8, COL 28 
INT INT_10 3 
MoV AL, OFOH 3 
CALL xPC BYTE 3 DISPLAY MSB OF DATA SEG 
mov BX, ZAFOH 3 SET ERROR CODE 
MOV SI,OFFSET CART_ERR ; 
CALL E_MSG 3 GO ERROR ROUTINE 
JROMI: 
ASSUME DS:XXDATA 3 
CALL DDx 3 
cmp POST_ERR, OOH 3 CHECK FOR "POST_ERR" NON-ZERO 
ASSUME DS:DATA 3 
POP DS 3 RESTORE DS 
JE JROM2 3 CONTINUE IF NO ERROR 
MOV DL,2 3 2 SHORT BEEPS (ERROR) 
CALL ERR_BEEP ; 
ERR_WAITJ: 
MoV AH, 00 3 
INT INT_16 3 WAIT FOR "ENTER® KEY 
cmP AL,ODK 3 
JNE ERR_WAITJ 3 
JROM2: MOV AL.0 3 DISABLE NMI 
our NMI_PORT,AL ; 
our PORT_A,A 3 CLEAR KBD PORT 
be-==- COPY DATA IN FIRST 128K RAM CARD TO 64K VRAM 
MoV RESET_FLAG,1234H ; SET WARM START INDICATOR FOR 
3 RETURNING FROM PCJR MODE 
Mov 3X, TRUE_MEM 3 
CMP BX,128 3 IS MEMORY SIZE =< 128K ? 
JBE SYSSWP2 3 YES- 
SUB BX,64 3 
IN AL, PORT_C 3 
TEST AL, 08H 3 
JINZ SYSSWP1 i 
SUB X64 3 
SYSSWP1:MOV CL.6 3 
SHL BX.CL 3 
MOV €S,BX 3 
XOR DI,DI 3 
MOV DS,DI ’ 
XOR SI,S! 3 COPY 4KB DATA FROM 1ST 128K RAN 
MOV CX. 0800H 3 CARD TO 64K BASE RAM OR 64K RAM CD 
REP MOVSH + (OS:SI=>€$:D1) 
bomen SET 128K RAM CARD START ADDR FROM 20000H 
MOV DX, VGA_CTL 3 
IN AL, DX i 
MOV AL,3 ’ 
out OX,AL H 
MOV AL, 10K 3 
out DX. AL 3 
bo---- ALLOCATE PROGRAMMABLE RAM AT 00000-1FFFF 
SYSSuPa nav DX, S8STATUS ’ 
AL, DX 3 
ADV AL, 08H 3 
ouT DX, AL 3 
MOV AL,OAOH 3 
our DX,AL i 
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OSE2 30 63 Bik aut Ti 3 
OSE4 EE out 
Snoo-- SET UP vibe. SYSTEM To reir MODE 
O3ES BA OSDA MOV DX, VGA_CTL 
OSES EC IN AL, DX , 
O3E9 BO C8 NOV AL,O 3 DISABLE NATIVE VIDEO PATH 
O3€B EE out DX, AL ; 
esec EE OUT DX,AL 3 
O3ED BO OL MoV AL,1 3 ENABLE VRAM1 & ALL PALETTE REGS 
eSEF EE out DX, AL ; 
O3FO BO 1F MoV AL,1LFH 3 
o3sF2 €€ : our DX,AL 3 
OSFS PUSH D: 3 
OSF4 E38 O4CZ RK CALL S8SET 3 SET UP VGA 
O3F7 8c DB O8CH 3 START REG ADDR 
OSF8 06 OB 000K 3 MASK DATA 
OSF9 02 DB 2 3 PARAMETER LENGTH 
C3FA 80 DB 080H 3 ENABLE PCJR VGA 
O3FB 00 DB 000H 3 DISABLE NATIVE VGA 
OSFC £8 O4C2 RK CALL S8SET 3 SET UP VRAM DECODER 
OSFF 09 bB O09H 3 START REG ADDR 
0400 60 DB 060H 3 MASK DATA 
0401 02 DB 3 PARAMETER LENGTH 
0402 3B? DB OB7H + ENABLE VRAM1 DECODER (B8000-BFFFF) 
0403 OB 000H 3 DISABLE VRAM2 DECODER 
0406 E8 0402 R CALL S8SET 3 SET UP PAGE REG 
0407 90 OB O90H 3 START REG ADDR 
0408 «600 DB 000K 3 MASK DATA 
ree ben oy 
3 SA CRIVCPU PAGE R 
O40B SA PoP D ; ues Eee © 
pennen 
040c BY 0007 MoV CX,7 3 CLEAR VGA REG 0- tT 
O4OF EC IN AL, DX 3 we are 
0410 B4 00 MoV AH, 0 ; 
o412 BA C4 SYSSWPS:MOV AL, AH 3 
0414 «EE OUT DX, AL ; 
0415 Bo 00 MOV AL,O 3 
0417 «EE our Die AL 3 
0418 FE C4 INC 3 
O41A E2 F6 LOOP Syssurs 3 
jensce 
ASSUME DS:DATA 3 
041C E8 0000 E CALL DDS 3 
Os1F E¢ 62 IN AL,PORT_C 3 
0421 AB 08 TEST AL, 000010008 3 64K RAM CARD INSTALLED ? 
0423 75 38 JNZ SYSSWP6 3 NO - 
0625 BB 0080 MOV BX,128 3 SET INITIAL TRUE MEMORY SIZE 
0428 «33 FF XOR DI,DI 3 
0424 BY 2000 MO CX,2000H 3 
042D «8E C1 SYSSWP4¢:MOV ES,CX 3 
OS2F BS SASA MOV AX, 5ASAH 3 
0432 26: 89 05 MOV ES:(DI),AX 3 
0435 EB 00 JMP $+2 3 
0437 EB 00 JMP $+2 3 
0439 26: 8B 15 MoV DX, ES: (DI) 3 
043c 33 C2 XOR AX, DX 3 128K RAM CARD INSTALLED ? 
O43E 75 OF JNZ SYSSWPS 3 NO - 
04460 26: 89 05 MoV ES:(DIJ,AX 3 CLEAR MEMORY 
0463 81 C3 0080 ADD BX,128 3 
0447 80 C5 20 ADD CH,20H ; 
046A 80 FD 80 CMP CH, 80H 3 
044D 72 DE j JB SYSSWP4 3 
O46F 89 1E 0015 R SYSSWP5:MOV TRUE_MEM, BX 3 SAVE RAM SIZE 
0453 C7 06 0013 R 0070 MOV MEMORY_SIZE,112 3 
0459 «BO SF MoV AL,3FH 3 CPU/CRT PAGE 7 
06SB OEB 16 JMP SHORT SYSSWP7 3 
045D C7 06 0015 R 0040 SYSSWP6 :MOV TRUE_MEM,64 3 SAVE RAM SIZE 
0463 C7 06 0013 R 0030 MOV MEMORY_SIZE,48 ; 
0469 81 26 0010 R OOFB AND EQUIP_FLAG, OFBH 3 PLANAR RAM SIZE 48K 
046F BO 1B MoV AL, 1BH 3 CPU/CRT PAGE 3 
0471 BA O3DF SYSSWP7 :MOV DX, PAGREG 3 SET PAGE REG 
0474 «~EE OUT DX, AL 3 
0475 AZ OOBA R MOV 3 SAVE PAGE REG DATA 
0478 C6 06 0062 R 07 MoV ACTIVE _PAGE,7 3; SAVE CRY PAGE 
go---- COPY SWAP HANDLER IN RAM AREA 
Star Hd ed SYSSWP8:MOV AX, sr800H ; SET BASE ROM 
Mov 
0482 BE 0495 R MOV St, * OFFSET SYSTRANS 3 SET SYS TRANS RTN START ADDR 
eo mo Ea 
MOV ES,AX ; 
0689 «33 FF KOR DI,DI 3 SET COPY AREA TOP ADDR 
068B BS 0028 MOV cx,40 3 
O48E F37 AS REP MOVSW 3 
j---- JUMP TO SWAP HANDLER TO CHANGE THE SYSTEM 
0490 «EA . DB OEAH 3 JUMP FAR 
0691 9000 Di 0000H ; 
0493 0000 DW 0000H 3 


tS 
' susnouree 
SYSTEM SWAP HANDLER 
ESCRIPTION 
° 1. IF SYSTEM IS OVERLAPPED BY THE ROM CARTRIDGE, THIS 


PROGRAM IS COPIED TO TEMPORARY RAM AREA. 

2. THE CONTROL IS PASSED TO THE ROUTINE IN THE RAM AREA. 
3. THE ROUTINE IN THE RAM AREA DISABLES SYSTEM ROM 

AND ENABLES OVERLAPPED ROM CARTRIDGE. 

4. THE CONTROL IS PASSED YO THE POWER-ON RESET VECTOR 


i 
3 
5 
3 
> 
i IN THE OVERLAPPED ROM CARTRIDGE. 
; 


04c2 
04C2 
04C3 
04C4 


04cc 
O4CF 


O4F5 


OlFF 


0015 
co 

D8 
0018 90 


FF 
07 


FG 
FFFF 
D 


08 


cy 
ca 


OlFF 


c3 
cs 


OFE2 R 

06 0005 R F 
OFT7C R 

06 0022 R ODA7 R 


¢ 


SYSTRAMS 


+ MOV DX,S8STATUS 3 
IW AL,DX 3 READ AND CLEAR CTRL REG 


MoV CX, 37 5 SET COUNTER 


XOR AX, AX 3 

MoV DS,AX F 

MOV SI,SYSTRS-SYSTRANS 3 SET TABLE ADDR 
SYSTR1: LODSB 3 LOAD SET DATA 

OUT DX,AL 5 


graooe J 


LOOP SYSTRI ; 

UMP TO POWER ON RESET VECTOR IN ROM CARTRIDGE 
OB OEAH JUMP FAR 

OW OFFFOH 


wee 


DW OFOOOH ‘ 
SYSTRS: DB 0O0H,000H,O00H + DISABLE BASE ROM 
DB Q01H,OBAH,060H ; ENABLE CART. ROM 2 (D0000-D7FFF) 
DB OO2H,OBBH,060H ; ENABLE CART. ROM 3 (D8000-DFFFF) 
DB OO3H,OBCH,060H 5 ENABLE CART. ROM 4 (E0000-E7FFF) 
DB 004H,0BDH,060H 3 ENABLE CART. ROM 5 (E8000-EFFFF) 
DB QOSH,OBEH,060H ; ENABLE CART. ROM 6 (FOOOC-F7FFF) 
DB 006H,OBFH,OGOH 5 ENABLE CART. ROM 7 (F8000-FFFFF) 
mre er en enn nnn nnn nnn nnn nnn ennae= mee en nnn es-----. w2-4--~--- 
SUBROUTINE 
SET UP OF PROGRAMMABLE MEMORY & I70 DECODER 
DESCRIPTION 


S8SETJ 


S8SETX: 


S801: 


$802: 


S8SET 
L26_2: 

y PART 8& 
s 

+ DESCRI 
‘ 
r] 
i] 
3 
3 


THIS SUBROUTINE SET UP PROGRAMMABLE MEMORY AND 

170 DECODER. THE CALL INSTRUCTION IS FOLLOWED BY THE 
PARAMETERS AND ITS LENGTH. THE PARAMETERS INCLUDES CONTROL 
REGISTER CADDR, CONTROL REG 1 AND 2 ) INFORMATION 

AND ARE SET SEQUENCIALY. 

THE CALLER SETS FIRST CONTROL REGISTER ADDRESS, MASK DATA 
PARAMETER LENGTH, AND VALIABLE REGISTER 1 VALUE. 


--- CALLING SEQUENCE -~---~----- 
CALL S8SET 3 CALL SET UP SUBROUTINE 
DB 27H 3 START REG ADDR ( QOH-93H ) 
DB 27H 3 MASK DATA 
DB ?? 3 PARAMETER LENGTH 
DB? ?H 3 FIRST REG 1 VALUE 
DB 22H 3 SECOND REG 1 VALUE 
DB O92 ; LAST REG 1 VALUE 
PROC NEAR 3 ENTRY POINT BY "CALL" 
oP SI ; SET TABLE POINTER 
PUSH DS 3 SAVE DS 
XxOR OI,DI 3 SCALL™ ENTRY FLAG 
MOV AX,CS 3 CS:IP 
IMP SHORT S8SETX =; 
LABEL NEAR 3 ENTRY POINT BY "JMP® 
Ov SI,sP 3 SET TABLE POINTER 
MOV DI,OFFFFH 3 “JMP®™ ENTRY FLAG 
MOV AX, $S 3 $S:SP 
MOV DS, AX 3 
LODSW i GET START REG ADDR (BL) AND 
MOV BX, AX 3 MASK DATA (BH 
LODSB 3 GET SET DATA LENGTH (Cx) 
XOR ex, cx 1 
MOV CL,AL 3 
MOV DX, S8STATUS 3 READ & CLEAR CTRL REG 
IN AL, DX 5 
MoV AL, BL 3 GET CTRL REG ADDR 
OUT DX, AL H WRITE CTRL REG ADOR 
INC BL 3 SET NEXT CTRL REG A 
LODSB 3 LOAD CTRL es 2 cath “1 VALIABLE ) 
DX, AL 3 SET REG 1D. 
MOV AL, BH 3 SET REG 2 DATA 
our DX. AL i 
Loop $801 
oR DI,Dr 1 
Jz $802 : 
MOV SP,SI 3 
RET 3 RETURN TO CALLER ("JUMP") 
PoP Ds + RESTORE DS 
PUSH ST 3 ADJUST RETURN POINT 
ReT 3 RETURN TO CALLER (®CALL™) 
ENDP 
See eae: s Pathe 
INTERRUPTS 
PTION 


2 
3 
a 
S2 INTERRUPTS ARE INITIALIZED TO POINT TO A DUMMY : 
HANDLER. THE BIOS INTERRUPTS ARE LOADED. DIAGNOSTIC . 
INTERRUPTS ARE LOADED SYSTEM CONFIGURATION WORD IS PUT ¢ 
IN MEMORY. THE DUN INTERRUPT HANDLER RESIDES HERE. bs 


ASSUME DS!XXDATA Se ee ek he 
CALL ODx + SET DS XXDATA SEG 
MOV MFO_TST,OFTH 1 SEND 'F7* TO MFG_TESTER 


CALL MFG_UP + UPDATE MFG CHECKPOINT 
mov MFG_RTN, OFFSET MFG_OUT 
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0506 
0508 


0553 


0555 
0558 


0561 
0564 


0566 
0568 
056A 
656c 


OS6eE 


0570 
0572 
0574 
0576 
0578 
OS7A 
os7¢ 
OS7E 
0580 
0582 


sc C8 
AS 0024 8 


33 c0 
8E DS 


bE 

B8 0599 K 

AB 

sc C8 

2 F7 

6 06 0124 R OOOO E C 
BF CO40 R 

oE 

1F 

BE 15D0 R 

B9 0010 

AS 

3 , 
bf FB 


BF 01E0 
BB 0000 E 


BS SA00 
AaB 


B8 FOO8 
AB 


BF 0210 
BB 1535 R 
AB 


C7 06 0410 R 511¢ 
C7 06 0408 R 0378 


E8 OF7C R 
BO 13 


E6 21 
£4 21 
OA CO 
75 18 
BO FF 
£6 21 
£4 21 
04 01 


mov AX, CS 

SET DOUBLEWORD POINTER TO MFG. 

said NEC_RTHE OS ; ERROR OUTPUT ROUTINE SO DIAGS. 
3 DON'T HAVE TO DUPLICATE CODE 

ASSUME CS:CODE,DS:ABSO0 

nee ee) 3 


aT RRUPT VECTORS TO TEMP INTERRUPT 
senor THE e inte 5 $s FILL ALL INTERRUPTS 





SUB Br: DI 3 FIRST INTERRUPT LOCATION IS 0000 
ES, DI 3 SET ES=0000 
DS: nov AX, OFFSET Di. + - MOVE ADDR OF INTR PROC TO TBL 
WW 
aa AX, CS + GET ADDR OF INTR PROC SEG 
STOSW 
LOOP) = DS 3 VECTBLO 
MOV EXST,OFFSET EXTAB ; SET UP EXT. SCAN TABLE 
oo SET UP BIOS INTERRUPTS 
MoV DI,OFFSET VIDEO_INT ; SET UP VIDEO INT 
PusH CS 
POP + PLACE CS IN DS 
MOV $1, OFFSET VECTOR_TABLE+16 
MoV CX, 16 
Dé: MOVSW ; MOVE INTERRUPT VECTOR TO LOW 
INC DI , 
INC DI } POINT TO NEXT VECTOR ENTRY 
Loop mes “ie REPEAT FOR ALL 16 BIOS INTERRUPTS 
soo--- SET UP 8 
MoV D1, 78Hx4. ; INT 78H 
MoV AX, OFFSET KKKFDM 3 
STOSW 3 
INC DI 3 
INC DI 3 
HOV AX, OFFSET BUFFER_QUEING ; INT 79H 
INC DI ; 
INC DI 3 
MOV AX, OFFSET DICT_ADDR ; INT 7AH 
$TO 3 
MoV AX, OFO00K 
STOSW 
s---- SET UP RS232 WRAP TEST INTERRUPTS 
MoV DI, 84HX4 
HOV AX, OFFSET WRAP TEST ; 
osw 
groco- SET UP DEFAULT EQUIPMENT DETERMINATION WORD 
FE BIT 15,14 = NUMBER OF PRINTERS ATTACHED 
3 BIT 13 = RESERVED 
3 BIT 12 = GAME 170 ATTACHED 
jo 0 eS 
3 BIT 11,10,9 = NUMBER OF RS232 CARDS ATTACHED 
3 8 = DMA (O=DMA PRESENT, 1=NO DMA ON SYSTEM) 
; BIT 7,6 = NUMBER OF DISKETTE DRIVES 
3 CO=1, 01=2, 10=3, 11=4 ONLY IF BIT 0 = 1 
3 BIT 5,4 = INITIAL VIDEO MODE 
3 00 - UNUSED 
3 01 - NATIVE MODE (2 (20 ZENKAKU X 11) 
F - EXTENSION 
3 11 - RESERVED 
fdas 
3 BIT 3,2 = PLANAR RAM SIZE (10=48K,11=64K) 
3 BIT 1 = RESERVED 
i BIT 0 = 1 CIPL DISKETTE INSTALLED) 
3 Rm ewe Oe me eee eee = we ee wwe www eee ew wwe eee woe eone 
ASSUME CS:CODE,DS:ABSO 
MOV DS,CX + SET DS T0 0 
3 DEFAULT«1 PARALLEL PRINTER, GAMEIO, 
NO DMA,NATIVE MODE, 64K ON PLANAR 
MOV DATA_WORDCEQUIP_, -FLAG-RS232- BASEI., 511CH 
H AD 
MOV DATA_WORDCPRINTER_BASE-RS232_BASE],PARAL_PORT 
3 TEST 9 ' 
3 INITIALIZE AND TEST THE 8259 INTERRUPT CONTROLLER CHIP ’ 
3 MFG ERROR CODE = 07xX (XX=00, DATA PATH OR INERNAL FAILURE, : 
Sabana XX=ANY OTHER BITS ON=UNEXPECTED INT'S) 1 
CALL MFG_UP 3 SEND 'F6' TO MFG_TESTER 
ASSUME DS:ABS0,CS$:CODE 7 
MOV AL,13H 3 ICW1 - RESET EDGE SENSE CIRCUIT, 
aay UTAH AL 3 SET SINGLE 8259 CHIP & ICW4 READ 
’ 
pie ee “e + ICW2 - SET INTERRUPT TYPE 8 (8-F) 
, 
MOV ALLS 3 TCH ~ SET BUFFERED MODE/SLAVE 
penne OUT INTAOL,AL : nienpe eke 
¥ TEST ABILITY To WRITE/READ THE MASK REGISTER 
HOV Also ; WRITE ZEROES TO IMR 
MOV BL, AL 3 PRESET ERROR INDICATOR 
a tiad ; DEVICE INTERRUPTS ENABLED 
OR LAL ; = 
one CERROR i NON= 60 'T0 ERROR ROUTINE 
OUT AL,OFFH + DISABLE DEVICE INTERRUPTS 
ou INTAOL, AL 3 WRITE ONES TO IMR 
M ALS INTAQL 3 READ IMR 
ee b ALL IMR BITS ON? 
3 CADD SHOULD PRODUCE 0) 


os 


0584 


05¢7 


osc9 
oscc 
OSCF 
0502 
0505 


0508 


0508 
0S5DD 


OSOF 
OSEL 
OSE4 


75 0E 


E9 0032 R 


1E 

50 

£8 0000 E 
OB 


88 26 0084 R 


E8 OFJC R 
BB 0176 
88 FFFF 
E8 O6F2 R 
BB 0036 


EB OOF2 R 


bo 20 
EG AQ 


84 00 
EB O6A9 R 
7305 


JNZ GERROR 





3 NO - GO TO ERROR ROUTINE 
gewhewee Seacoast eS sete owe ibaa: ae 
3 CHECK FOR HOT INTERRUPTS 
iceteeeeaccnseecessee abst cd A oa Meteneee seca seet cats 
eo--~ INTERRUPTS ARE MASKED OFF. NO INTERRUPTS SHOULD OCCUR. 
$TI 3 ENABLE EXTERNAL INTERRUPTS 
nov CX, 50H 
LOOP $ 3 WAIT FOR ANY INTERRUPTS 
MoV Bt, OATA_ AREALINTR_FLAG-RS232_BASE] ; ANY INT OCCUR? 
OR t 
JZ END_TESTG 3 WO - GO TO NEXT T 
GERROR: MOV BH,O7H 3 SET 07 SECTION oF” ERROR MSG 
JP E_MSG 
; SUBROUTINE 
3 TEMPORARY INTERRUPT SERVICE 
3 DESCRIPTION 
3 THIS ROUTINE IS ALSO LEFT IN PLACE AFTER THE 
3 POWER ON DIAGNOSTICS TO SERVICE UNUSED 
5 INTERRUPT VECTORS. LOCATION "INTR_FLAG’ WILL 
3 CONTAIN EITHER: 1. LEVEL OF HARDWARE INT. THAT 
5 CAUSED CODE TO BE EXEC. 
F . 'FF* FOR NON-HARDWARE INTERRUPTS THAT WERE 
3 peecureD ACCIDENTLY. 
jencaas Sse area aE sewciastoassanccsesssceeeseu seeete: 
Dil PROC 3 
ASSUME DS: DATA 3 
PUSH DS 3 
PUSH ax 3 SAVE REG AX CONTENTS 
CALL DDS 3 
MOV AL, OBH 3 READ IN-SERVICE REG 
ouT INTAOQO,AL ; CFIND OUT WHAT LEVEL BEING 
NOP 3 SERVICED) 
IN AL, INTAQO 3 GET LEVEL 
MOV AH, AL 3 SAVE IT 
OR AL,AH 3 007 (NO HARDWARE ISR ACTIVE) 
JNZ HW_INT 3 
MOV AH, OFFH 3 
JMP SHORT ser AINTRFLAG SET FLAG LU FF IF NON-HDWARE 
HW_LINT: IK AL, INTA 3 GET MASK 
OR AL, AH + MASK OFF tye BEING SERVICED 
OUT INTAOL,AL 3 
MOV AL, EOI 3 
ouT INTAOO,AL 3 
SET_INTR_FLAG: ; 
Mov INTR_FLAG, AH 3 SET FLAG 
PoP AX 3 RESTORE REG AX CONTENTS 
PoP DS ; 
STI 3 INTERRUPTS BACK ON 
DUST RET URN: 3 NEED IREY FOR VECTOR TABLE 
’ 
Dil ENDP 3 
END_TESTG: 
soos-- FIRE THE DISKETTE WATCHDOG TIME! 
MOV AL, WD. ENABLECHD_ STROBESFDC.| RESET 
OUT NEC_CTL, 3 
MOV AL WD. -HARLEOFDC_RESET 
OUT NEC_CTL.AL 5 
ASSUME CS: “EOD, DS:ABSO_ 
punseceeocn oc ocuaancsaseceesaeS) elie Rise SE Sees Fa 
3 TEST 10 


3 8253 TIMER CHECKOUT 
DESCRIPTION 


t 
z 
H t 
; VERIFY THAT THE TIMERS (@, 1. AND 2) FUNCTION PROPERLY. g 
Hy THIS INCLUDES CHECKING FOR STUCK BITS IN ALL THE TIMERS, : 
3 THAT TIMER 1 RESPONDS TO TIMER 0 OUTPUTS, THAT TIMER 0 : 
H INTERRUPTS WHEN IT SHOULD, AND THAT TIMER 2°S OUTPUT 2 
H WORKS AS IT SHOULD. : 
3 THERE ARE 7 POSSIBLE ERRORS DURING THIS CHECKOUT. 3 
‘ BL VALUES FOR THE CALL ie E_MSG INCLUDE: t 
Hy QO: STUCK BITS IN TIMER 0 : 
3 1: TIMER 1 DOES NOT RESPOND TO TIMER 0 OUTPUT 2 
‘ 2: TIMER 0 INTERRUPT DOES NOT OCCUR 3 
; 3a STUCK BITS IN TIMER 1 : 
Hy 4: TIMER 2 OUTPUT meee VALUE IS NOT LOW t 
i S: STUCK BITS IN TIMER 2 t 
H 61 TIMER 2 OUTPUT DOES NOT GO HIGH ON TERMINAL COUNT t 
H 7: TIMER O OUTPUT OUT oF RANGE 2 





CALL MFG_UP ; 

MoV AX, O1L76H 3 

MOV BX, OFFFFH H 

CALL INIT_TIMER 3 INITIALIZE TIMER 1 
; 
H 
H 


SEND 'FS* TO MFG_TESTER 

SET TIMER 1 TO MODE 3 BINARY 
INITIAL COUNT OF FFFF 

MOV AX, 0036H SET TIMER 0 TO MODE 3 BINARY 
INITIAL COUNT OF FFFF 
INITIALIZE TIMER 0 


SET BIT 5 OF PORT AO SO TIMER 1 CLOCK WILL BE PULSED” bY THE 


CALL INIT_TIMER 


; TIMER S uTPuT RATHER THAN THE SYSTEM CLOCK. 

frm wenn nen nn en nn ne ne oe eee en nnn nnn nnee aoeseee eee nee 
nov “AL, 001000008 
ouT NMI PORTAL i 


Sires IF ALL BITS GO on AND OFF IN TIMER @ (CHECK FOR STUCK 
BITS 


ee ee oo ween nee ene enn n nnn nnn sew eee 
MOV AH,O + TIMER 0 
CALL BITS _ON_OFF 3 LET SUBROUTINE CHECK IT 
NB TIMERL_RZ 3 NO STUCK BITS CCARRY FLAG NOT SET) 
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064A 
064c 


O64E 
0650 
0653 
0655 
0657 


9659 
0659 
065C 
O6SF 


0662 
06646 
0666 


0668 
066A 
0660 


BS 00 
€9 O69F R 


&4 41 
BA EO 


&4 41 

3D FFFF 
75 05 

83 01 

E9 O69F R 


E 
20 a 0484 Rk 


Fé 06 0484 R 01 
7 


FA 


80 FE OA 
80 FE 68 


BS o2B6 
88 FFFF 
ES O6F2 R 


ES 61 
Oc o1 
E6é 61 


B4 02 
E&8 O6A9 R 
73 04 





Mov BL.o 3 STUCK BITS IN TIMER 0 
JMP TIMER_ERROR 
fowsasee ee sacs So Seances sens ace ncn cna cnccenen suck cucceesccuecece 
3 SINCE TIMER 0 HAS COMPLETED AT LEAST ONE COMPLETE CYCLE, 
3 TIMER 1 SHOULD BE NON-ZERO. CHECK THAT THIS IS THE CASE. 
TIMERI_NZ: 
" AL, TIMERS2 3 READ LSB OF TIMER 1 
Mov AH. AL + SAVE LSB 
IN AL, TIMER#1 } READ MSB OF TIMER 1 
CMP AX, OFFFFH 3 STILL FFFF? 
JNE TIMERO_INTR ; HO - TIMER 1 HAS BEEN BUMPED 
MOV BL? 3 TIMER 1 WAS NOT BUMPED BY TIMER 0 
JMP TIMER_ERROR 
3 CHECK FOR TIMER 0 INTERRUPT 
Brora nnn nnn eee n nnn nnn nee cee nee eee cece cence een 
TIMERO_INTR: 
STI 3 ENABLE MASKABLE EXT INTERRUPTS 
IN AL, INTAOL 
AND AL, OFEH + MASK ALL_INTRS EXCEPT LVL 0 
AND DATA_AREACINTR_FLAG-RS232_BASEJ,AL ; CLR INT RCVED 
OUT INTADL,AL + WRITE THE 8259 IMR 
XOR cx, ¢x 3 SET LOOP COUNT 
WALT_INTR_LOOP: 
TEST —_- DATA_AREACINTR_FLAG-RS232_BASE),1 3 TMRO INT OCCUR? 
RESET_INTRS 3 YES - CONTINUE 


WAIT_INTR_LOOP + WAIT FOR INTR FOR SPECIFIED TIME 


Ll, + TIMER © INTR DIDN'T OCCUR 
TIMER_ERROR ; 





0 ; 
TIM_CTL,AL 3 LATCH TIMER 0 
Ax 3 PAUSE 
Ax ; 
AL, TIMER+O + READ TIMER © LSB 
DL,AL ; 
AL, TIMER+0 ; os mSB 
DH,AL ; 
mov CX,05E2H + WAIT 1 MS CCH=5, CL=226) 
TIMERO_W: ; 
SHR AX,CL ; 
DEC CH 3 
JNZ TIMERO_W H 
MOV ALO ; 
OUT TIM_CTL,AL 3 LATCH TIMER 0 
PUSH ax > PAUSE 
PoP AX ; 
IH AL, TIMER+0 + READ TIMER 0 LSB 
mov CL,AL ; 
In AL, TIMER+0 i ba MSB 
MOV CH,AL 3 
MoV BL.7 + TIMER © OUTPUT OUT OF RANGE 
SUB DX,CX + (0955H) 
CMP DH, OAH 3 WITHIN TOLERANCE ? 
JA TIMER_ERROR 3 NO - 
CMP DH, 08H ; 
JB TIMER_ERROR ; 
jee e wenn nono o-oo Tee ce peewee ewww ewww nwo ween ewww enn enne 
3 RESET D5 OF PORT AO SO THAT THE TIMER 1 CLOCK WILL BE 
; PULSED BY THE SYSTEM Clock. = 
MOV AL,O 3 MAKE AL = 00 
ouT NMI_PORT,AL WS A nh eer acresnniemindin Roa etide 
; CHECK FOR STUCK BITS IM TIMER = tt 
MOV AH,1 + TIMER 1 
CALL BITS _ON_OFF 
JNB TIMER2_INIT + NO STUCK BITS 
MOV BL. és STUCK BITS IN TIMER 1 
JMP SHORT TIMER_ERROR 





AX, 02B6H + SET TIMER 2 TO MODE 3 BINARY 
MoV BX, OF FFFH + INITIAL COUKT 
CALL INIT_TIMER 


OF PORT_8 OF 8255 (TIMER 2 GATE) 








IH AL, PORT_B ; CURRENT STATUS 
oR AL,COOODOOLB ©; SET BIT 0 - LEAVE OTHERS ALONE 
ouT Lidell JL Sen ane ONS Airey SPN eee enna 
CHECK FOR STUCK BITS IN TIMER 2 
, nov AH,2 ; TIMER 2 
CALL —-BITS_ON_OFF 
JHB REINTY_Y2 3 NO STUCK BITS 
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0692 
0695 
0697 
0699 
0698 
0690 


O69F 
O69F 
O6A1 
O6A4 


BS 
eB 


87 


05 
2c 


62 
04 
04 
13 
61 


61 


OO0A 
FE 


62 


65 
06 


OD3S2 R 


€B SC 


Be 
31 
33 
2E: 


DB 
Fé 


0040 


D4 
O6AGR 


Fa 


cy 


8A 05 
43 


FF 


Mov BLS 3; STUCK BITS IN TIMER 2 
JP SHORT TIMER_ERROR 
Br rr rn on nr rrr we weer ern eee eene weer ene wee wn wee ewe wenn 
Hy RE_INITIALIZE TIMER 2 WITH MODE 0 _AND A SHORT COUNT 
Br nn rr ere ee eee ewer wee wee ew ewwene 
REINIT_T2: 
22 DROP GATE TO TIMER 2 
IN AL, PORT_B + CURRENT STATUS 
AND AL,11121110B 3 RESET BIT 0 - LEAVE OTHERS ALONE 
our PORT_B,AL 
mov AX, 02B0H > SET TIMER 2 TO MODE 0 BINARY 
MOV BX,000AH 3 INITIAL COUNT OF 10 
CALL —_INET_TIMER 
Pe OO eo ee ee ae ee eee ae 
; CHECK PCS OF PORT_C OF 8255 TO SEE IF THE OUTPUT OF TIMER 2 
rf Is LOW 
ne Ga or ee ee aiesstescessiends 
IN AL,PORT_C } CURRENT STATUS 
AND AL,00100000B 3 MASK OFF OTHER BITS 
Jz CK2_ON 3 IT'S LOW 
MOV BL, 3 PCS OF PORT_C WAS HIGH WHEN IT 
SMP SHORT Tne ERROR ; SHOULD HAVE BEEN LOW 
s—-~~- TURN GATE BACK 0 
CK2_ON: IN AL,POR os 3 CURRENT STATUS 
OR AL,00000001B 3 SET BIT 0 - LEAVE OTHERS ALONE 
ouT PORT_B,AL 


Mov CX, O00AH 


> WAIT FOR “oureur GO HIGH, SHOULD 

CK2_t0: LOOP CK2_Lo 3 BE LONGER THAN INITIAL COUNT 

IN AL, PORT_C 3 CURRENT STATUS 

AND AL, 001000008 3 MASK OFF ALL OTHER BITS 

JNZ id oui 3 IT'S HIGH - WE'RE DONE! 

mov BL.6 ; TIMER 2 OUTPUT DID NOT GO HIGH 
Fe a a OS a ee sn — 
; 8253 TIMER ERROR OCCURRED. SET BH WITH MAJOR ERROR 
3 INDICATOR AND CALL E_MSG TO INFORM THE SYSTEM OF THE ERROR. 
; (BL ALREADY CONTAINS THE MINOR ERROR INDTCATOR TO TELL 
3 WHICH PART OF THE TEST FAILED.) 
TIMER eanone 

BHL8 3 TIMER ERROR INDICATOR 

CALL E_MSG 

JMP SHORT POD1S_END 
fren w ern e oe eee eT ag a a soot ee leh pn a ane — 
; SUBROUTINE 


; 

; BITS ON/OFF 

3 DESCRIPTION 

; USED FOR DETERMINING IF A PARTICULAR TIMER’S BITS GO ON 
3 ae OFF AS THEY SHOULD. THIS ROUTINE ASSUMES THAT THE 

; MER IS USING BOTH THE LSB AND THE MSB. 

; CALLING. PARAMETER 

; CAH) = TIMER NUMBER (0, 1, OR 2) 

3 
3 
3 


(CF) = ; ia FAILED 
(CF) F PASSED 
REGISTERS AX, Mx, oh OKs DI, AND SI ARE ALTERED. 


00H 3 LATCH MASK FOR TIMER @ 
DB 40H 3 LATCH MASK FOR TIMER 1 
DB 80H 3 LATCH MASK FOR TIMER 2 
BITS_OM_OFF PROC NEAR 
XOR BX, BX 3 INITIALIZE BX ESOraTER 
XOR SI,$1 3 1ST PASS - SI 
BOv EX TINER 3 BASE PORT ADDRESS FOR TIMERS 
MOV PP AGEPSER LATCHES 3 SELECT LATCH MASK 
XOR AL, 3 CLEAR AL 
XCHG AU AH 3 AN -> AL 
ADD DI,Ax 3 TIMER LATCH MASK INDEX 


peg AST PASS - CHECKS FOR ALL BITS TO COME ON 


2ND PASS - CHECKS FOR A F 
ren: cake, LL BITS TO GO OFF 


mov CX,8 
INNER_LOOP: ’ 3 OUTER LOOP COUNTER 

XOR e cx 3 SAVE OUTER LOOP COUNTER 
TST_pTs: ’ 3 INNER LOOP COUNTER 

nl AL.CS:(DI) 3 TIMER LATCH MASK 

Sion PACT at 3 LATCH TIMER 

Por aX + PAUSE 

N AL, DX ; 

OR SI.8t + READ TIMER LSB 

JNE SECOND + SECOND PASS 

OR AL,O1K 3 TURN LS BIT ON 

OR BLLAL 3 TURN ‘ON’ BITS ON 

IN AL, DX 3 READ TIMER MSB 

OR BH, AL 3 TURN *ON* BITS ON 

CMP BX, OF FFFH 3 ARE ALL TIMER BITS ON? 

JmP SHORT TST_CHP 3 DON'T CHANGE FLAGS 
SECOND: 

AND BLLAL 3 CHECK FOR ALL BITS OFF 

IW AL, DX > READ MSB 

AND BHLAL 3 TURN OFF BITS 

OR BX, BX s ALL OFF? 
TST_CMP: 


Appendix A. 


06EO 74 07 
06E2 E2 DD 


06€5 E2 D7 


6 
O6EB 83 FE 02 


O6EE 75 CB 


0702 E8 OF7C R 


0705 FA 

0706 BO 70 
0708 €6 43 
670A BY 8000 


0765 EB 28 
0747 AB 08 
076B BS 05 


JE CHK_END 3 YES -_SEE IF DONE 
ioop ©‘ TST_BITS 3 KEEP TRYIN 
POP cx 3 RESTORE, uTER LOOP COUNTER 
Loop § INNER_LOOP 3 TRY A 
STC > ALL TRIES EXHAUSTED ~ FAILED TEST 
RET 

CHKLEND! op cx + POP FORMER OUTER LOOP COUNTER 
INC sI 
cMP $1,2 
JHE OUTER_LOOP } CHECK FOR ALL BITS TO GO OFF 
cLc } TIMER BITS ARE WORKING PROPERLY 
RE 

BITS_ON_OFF ENDP 


Jere ewenn-----= 
3 SUBROUTINE 
; INITIALIZE TIMER 

3 DESCRIPTION 

3 ASSUMES BOTH THE LSB AND MSB OF THE TIMER WILL BE USED. 
3 CALLING PARAMETERS 


; = TIMER @ 

3 CAL) = BIT PATTERN OF INITIALIZATION WORD 
3 = INITIAL COUNT 

3 (BH) = MSB COUNT 

3 (BL) = LSB COUNT 

3; ALTERS REGISTERS DX AND AL. 


: 
INIT_TIMER PROC NEAR 

ouT TIM_CTL,AL 3 OUTPUT INITIAL CONTROL WORD 

MOV DX, TIMER 3 BASE PORT ADDR FOR TIMERS 

ADD DL,AH 3 ADD IN THE TIMER 8 

MOV AL, BL 3 LOAD LSB 

ouT DX, AL 

PUSH Dx 3 PAUSE 

POP DX 

mov AL, BH 3 LOAD MSB 

OUT DX,AL 

RET 
INIT_TIMER ENDP 
POD1S_END: 
3 TEST 11 : 
3 CRT ATTACHMENT TEST : 
; DESCRIPTION : 
3 . INIT CRT TO 40 X 25 - COLOR 
3 3 CHECK FOR VERTICAL AND VIDEO ENABLES, AND CHECK : 
3 TIMING OF SAME : 
3 3. CHECK VERTICAL INTERRUPT t 
3 4. CHECK RED, BLUE, GREEN, AND INTENSIFY DOTS : 
} MFG ERROR CODE = 09XX (XX-SEE COMMENETS IN CODE) z 
ee een n cen nna n nnn annonce nceenn nce n an manor eenaenernnarennnaen 
MAVT EQU OA04CH 3 MAXIMUM TIME FOR VERT/VERT 

3 CHOMINAL + 23% 

MIVT EQU 0¢418H 3 MINIMUM TIME FOR VERT/VERT 


3 CMOMINAL - 23% 
jeeees NOMINAL TIME IS B232H FOR 60 HZ. 
F EQU 200 HUMBER OF ENABLES PER FRAME 
(8 DOTS X 25 LINES) 
SEND 'F4* TO MFG_TESTER 


we we we 


CALL MFG_UP 


c.r 
MoV AL, 011100008 3 SET TIMER 1 TO MODE 0 
out TIM_CTL,AL 
MoV CX,8000H 
LooP $ 3 WAIT FOR MODE SET TO “TAKE” 
MOV AL,O 
out TIMER4+1,AL 3 SEND FIRST BYTE TO TIMER 
mov DX,VGA_CTL 3 SET ADDRESSING TO VIDEO ARRAY 
SUB CX, CX ; 
(eene~ LOOK FOR VERTICAL 
Q2: IN AL,DX 3 GET STATUS 
TEST AL,00001000B 3; VERTICAL THERE YET? 
JHE Qs 3; CONTINUE IF IT IS 
sone i ‘ ; KEEP LOOKING TILL COUNT EXHAUSTED 
; 
JMP SHORT Q115 3 NO VERTICAL = ERROR 0900 
| cata GOT mee ie - START TIMER 
Q3: XOR AL, ; 
ouT TIMERS AL ; SEND 2ND BYTE TO TIMER TO START 
SUB BX, BX INIT. ENABLE COUNTER 
joan WAIT FOR VERTICAL To GO AWAY 
XOR CX,CX 
Q4: In AL,DX 3 GET STATUS 
TEST AL,00001000B 3 VERTICAL STILL THERE? 
IZ Q5 3 CONTINUE IF IT'S GONE 
LOOP a4 3 KEEP LOOKING TILL COUNT EXHAUSTED 
MOV BL,O1H ; 
3 


JMP SHORT Q115 VERTICAL STUCK ON = ERROR 0901 
i Li START LOOKING FOR ENABLE TRANSITIONS 
su a 
IK. 3 GET STATUS 
TEST AL;00000001B ENABLE ON YET? 
Q7 GO ON IF IT IS 


; VERTICAL ON AGAIN? 






eee 


= 

=z 

m 
- 


TEST AL,00001000B 


3 
JNE Qil 3 CONTINUE IF IT IS 
LOOP a6 3 KEEP LOOKING IF NOT 
moy 3L,02H i 
: SHORT Q115 ENABLE STUCK OFF = ERROR 0902 
acetal mine pure VERTICAL WENT OFF WITH ENABLE GOING ON 
Q7: AL,00001000B 3 VERTICAL OFF? 
a a8 3 GO ON IF IT IS 
MOV BL,O3H ; 
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O7ES 
07E7 
O7E8 


06 0484 8 
06 0486 R 20 


36 
2 


20 
2 


o4c2 R 


cy 
10 


Jz 


pecce= HAVE HAD 
Qll: mov 

OUT 

cmP 


JE 

mov 
Qll5: JP 
Ql2: In 


Q13: CMP 


SHORT Q115 


; ERIIORL STUCK ON = ERROR 0903 


FOR ENABLE 10 GO OFF 


CX, Cx 

AL,DX 
AL,00000001B 
Q10 

Q9 


BL,04H 
SHORT 


AL ooooiooes 
Q5 


GET STATUS 

ENABLE OFF YET? 

PROCEED IF IT IS 

KEEP LOOKING IF NOT YET LOW 


ENABLE STUCK OW = ERROR 0904 


en oe 


Q11s 
{cess ee as ewes BUMP COUNTER AND TEST FOR NEXT VERTICAL 
t) 


+ BUMP ENABLE COUNTER 

3 IF COUNTER WRAPS, ERROR 

+ DID ENABLE GO LOW BETAUSE OF 

+ VERTICAL? 

; IF Ronis LOOK FOR ANOTHER ENABLE 
GLE 


TOG 
cee VERTICAL- VERTICAL ag HOW TEST RESULTS 
Al, 


TIA CTL AL 
,EPF 
a2 

BL, OSH 
922 

AL, TIMER?1 
AH, AL 

AL, TIMER? 
AH, AL 

AX, MAVT 
ais 


BL,OGH 
SHORT Q22 


AX, MIVT 
a4 


BL,O7H 
SHORT Q22 


3 LATCH TIMERL 

i 

; NUMBER OF EWABLES BETWEEN 

3 VERTICALS 0.K.? 

3 

5 

; WRONG @ ENABLES = ERROR 0985 
+ GET TIMER VALUE LOW 

+ SAVE IT 

} GET TIMER HIGH 


; INTERRUPTS BACK ON 


VERTICALS TOO FAR APART 
= ERROR 9906 


Se ee 


VERTICALS Hs CLOSE TOGETHER 
= ERROR 0907 


i TAG TNGS SEEM O.K., NOW CHECK VERTICAL INTERRUPT (LEVEL 5) 


: cx, ex 3 SET TIMEOUT REG 
IN AL, INTAOL 
AND AL, 110122218 3 UNMASK INT. LEVEL 5 
our INTAOL,A 
AND DATA oRREACINTR AFLAG: RS232_BASE),AL 
STI ENABLE IXTS 
Qis: TEST DATA_AREALINTR_| FLAG-RS232_ BASED, 001000008 ; SEE IF 
3 INT 5 HAPPENED YET 
JNZ Q16 3 GO ON IF IT DID 
LOOP Qs 3 KEEP LOOKING IF IT DIDN'T 
MOV BL, 08H 3 
JMP SHORT Q22 3 NO VERTICAL INTERRUPT 
3 = ERRO 
Q16: IN AL, INTAOL 3 DISABLE INTERRUPTS FOR LEVEL 5 
OR AL,00100000B 3 
our INTAOL,AL 3 
eooe- SEE IF RED, GREEN, BLUE AND INTENSIFY DOTS WORK 
3 FIRST, SET A LINE OF REVERSE VIDEO, INTENSIFIED BLANKS 
3 a VEDED | BUFFER 
’ 
XOR AX, AX > ENABLE DISPLAY & CLEAR SCREEN 
INT INT_10 + (MODE: 40 X 25 - COLOR) 
oa rae 3 SEY TO VIDEO PAGE 7 
Q 3 
MOV AX, O95FH 3 WRITE CHARS, UNDERSCORE 
MOV 8X,077FH > PAGE 7, REVERSE VIDEO, HIGH INT 
MOV CX,40 3 40 CHARACTERS 
INT INT_10 3 
CALL SBSET 3 DISABLE NATIVE VGA 
DB 03DH 3 START REG ADDR 
DB 000H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB 000H 3 
CALL S8SET 3 ENABLE PCJR VGA 
DB O8CH 3 START oRee ADDR 
DB O00H 3 MASK 
DB 1 3 PARAMETER LENGTH 
DB O8eH 3 
PoP 4 3 
XOR AX, AX 3 START WITH BLUE DOTS 
Ql?: sus ay ; 
DX 3 SET VIDEO ARRAY ADDRESS FOR DOTS 
joteee see IF DOT cones ON 
Q18: AL, DX 3 GET STATUS 
Test AL ooo1oooos 3 DOT THERE? 
INZ Q1g 3 GO LOOK FOR DOT TO TURN OFF 
LOOP Q138 3 CONTINUE TESTING FOR DOT ON 
Mov BL, 10H 3 
OR BL,AH 3 OR IN DOT BEING TESTED 
JMP SHORT Q22 3 DOT NOT COMING ON = ERROR @91x 
3 © X20, BLUE: X=1., GREEN; 
3 X52, RED; X=3. INTENSITY) 
Satetetel SEE IF DOT GOES OFF 
Q19: $uB CX, 6x 
Q20: IW AL, DX 3 GET STATUS 
TEST AL, 000100003 + IS DOT STILL ON? 
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+ GO ON IF DOT O © 
O7EA 74 08 iboP a20 + ELSE, KEEP WATTING FOR DOT 
o7—EC E2 FY 3 TO GO OFF 
BL,20H ; 
O7EE BS 20 Pid L.AH ; OR IN DOT BEING TESTED 
o7FO 0A OC JMP SHORT Q22 3 DOT STUCK ON = ERROR 092X 
O7F2 EB OB 3 (X20, BLUE; X=1, GREEN; 
oe X=2, RED; X=3, INTENSITY) 
pe---- ADJUST TO POINT 
o7F4 FE C4 ie IP Anes ; ALL 4 DOTS DONE? 
O7F6 80 FC 04 CAF : : 
JE e23 3 GO END 
ary 2c 83 By 
cece Eb OF JMP Q17 3 GO LOOK FOR ANOTHER DOT 
O7FF B7 09 e22: MOV BH, 09H > SET MSB OF ERROR CODE 
ogo. €9 ODSZR mp E_MSG 
0804 BO 76 Q23: mov AL, 021101208 3 RE-INIT TIMER 1 
0 i » > 
eget E33 our TALE 
080A £6 41 OUT TIMER#1,AL 
og0c EB 00 JMP $+2 
O8cE E6 41 out TIMER+1,AL 
3 PART ry 
H "Ser UP KEYBOARD PARAMETERS : 
. “ASSUME DS: ABSO 
0810 £8 OF7C R CALL HEC UP 3 SEND "FS" TO MFG_TESTER 
081s 33 CO 
0815 8E D8 MoV DS, AX 
0817 ¢7 06 OcOB8 RGOODOE C MOV NMI_PTR,OFFSET KBDNMI ; SET INTERRUPT VECTOR ' 
081D C7 06 0120 ROFEAR C MOV KEY62_PTR, OFFSET Key. SCAN_SAVE ; SET VECTOR FOR 
; POD INT HANDLER 
0823 «OE ouee he 
0824 «58 
0825 AS 0122 RK MOV Keve2 PTR+2,AX 
E a Be 5 EN 
0828 £8 0000 A ; SET DATA SEGMENT 
082B BE 0304 R MOV S1,OFFSET KB_BUFFER_J ; SET KEYBOARD PARMS 
082E 89 36 OO1AR MOV BUFFER_HEAD, SI 
0832 89 36 OOICR MoV BUFFER_TAIL, SI 
0836 89 36 0080 R MOV BUFFERS START, SI 
033A 83 C6 32 ADD SI, ; SET DEFAULT BUFFER OF 50 BYTES 
0830 89 36 0082 R MOV BUFFER_END. SI 
0841 E¢ Ao IN AL, NMI_PORT ; CLEAR NMI F/F 
0843 BO 80 MOV AL, 80H ; ENABLE NMI 
0865 6 AO out NMI_PORT,AL 
joc--- IF A KEY IS STUCK, THE BUFFER SHOULD FILL WITH THAT KEYS 
3 CODE. THIS WILL BE CHECKED LATER. 
| adeneiectees caer sesacculseneneememna—nane eine ecto eeeuced 2 
; TEST 13 : 
3 32K VRAM CVRAM2) TEST : 
3 MFG ERROR CODE = LEXx BASE 52K VRAM ERROR : 
; x Al 3 
0847 £8 OF7C R : CALL MFG. SEND 'F2" TO MFG_ TESTER 
pro--- ENABLE NATIVE. AND PCJR VGA FOR BLANKING SCREEN 
086A EB O4C2 R CALL S8SET ‘i 
084D 8c DB 0&CH 3 START REG ADDR 
084E 00 DB 000H 3 MASK DATA 
O84F 02 DB 2 > PARAMETER LENGTH 
0350 80 DB 080H > ENABLE PCJR VGA 
0851 80 DB 080H 3 ENABLE NATIVE VGA 
0852 BA OSDA MOV DX, VGA_CTL 3 DISABLE VIDEO 
0855 EC IN AL, DX 3 
st ace ae bee 
AL ; 
0859 EE out DX, AL ; 
peo--- BASE 32K VRAM AND EXP 32K VRAM TEST (EXCEPT REGEN BUFF) 
085A B8 B80 MoV AX, 0B800K ; SET START ADDR (B8000) 
085D 8& CO MOV ES,AX 3 
085F Bd 1E00 MOV CX, 1E00H } SET TEST MEM SIZE 15K 
0862 BB 0010 MOV BX, 0010H 3 
0865 BA O1FF mov DX, S8STATUS 3 
AL 3 
seed 13 a8 rn 
1 3 
086D BS 20 MOV BL, 20H 3 
O86F 53 VRM1: PUSH BX 3 
03870 F6 C7 08 TEST BH, 000010008 3; 1ST 16KB ? 
0873 75 06 JNZ VRM2 3 MO - 
0875 E4 60 IN AL, PORT_A ; 
0877 OC 40 OR AL, 010000008 ; SET RETENTION TEST REQ’ED FLAG 
0379 6 60 ouT PORT_A,AL : ALL PODSTG 
0878 EB ODEA R VRM2: CALL PODSTS 3 CALL MEM TEST 
SStF’ 15 06 JZ VRMS ; 
0881 £8 1007 R CALL = PUT_LOGO 3 PUT LOGO ON SCREEN 
0886 £9 O97ER ump 929 3 ERROR 
cect Gn ae VRM3: IN AL, PORT_A ; 
0888 Eb 60 AND AC, 201171113 ; RESET RETENTION TEST REQ’ED FLAG 
WALA > 
088D B9 2000 
0890 BA 03D9 MoV CX,2000H ; SET TEST MEM SIZE 16K 
0893 86 C7 08 yet DX, PAGREG2 ; 
0896 BA CT A0D BH, 000010008 } UPDATE CPU/CRT PAGE 
0898 EE ’ i 
out DX, AL 3; SET PAGE REG 2 
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03839 
0898 


3A 
75 


3B 
OA 
74 


BE 
E38 


cs 
b2 


OF7C R 
04C2 Rk 


e4c2 R 


C6 02 


C2 0088 
FB OS 


oac2 R 


1007 R 
FF 
06 


0067 R 
ODS2 R 


CMP AL, BL 3 END ? 
JNE VRML 3 NO - 
5 Set ee ee SS ef ee ee Se Se SNe eS eee ee CSET See eeeeeee= KCK SOK SSS SCTE 
i TEST 14 2 
KJ-ROM AND GATJt SRAM TEST t 
; MFG ERROR CODE = MODULE AT ADDRESS 80000H ERROR : 
; 37o RODULE AT ADDRESS 90800H ERROR : 
5 2702 MODULE AT ADDRESS 91000H ERROR 2 
3 2703 MODULE AT ADDRESS 91800H ERROR : 
3 27FF GAIJI RAM R/W ERROR : 
peeereubccuicuededcteesacsueeleunsacescsececnsucewuceewewees mewn 
CALL MFG_UP SEND 'Fi' TO MFG_TESTER 
ooee- DISABLE VRAMI & VRAM2 DECODERS AND THEN ENABLE KJ-ROM 
CALL SBSET 3 
DB 009H 3 START REG ADDR 
DB 060H 3 MASK DATA 
DB 2 3 PARAMETER LENGTH 
DB 000H 3 DISABLE VRAM1 DECODER 
8 000H 3 DISABLE VRAM2 DECODER 
CALL S8SET 3 
DB 007H 3 START REG ADDR 
DB 067H 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
DB OBOH + ENABLE KJ-ROM DECODER (86000-BFFFF) 
weLvawuedecJecensewwawnucessecs ; 
3 TEST KJ-ROM 3 
[asseesocenesseescsnssecsssesse= ; 
MoV AL,O 3 CLEAR CHECHSUM COUNTER 
XOR BX, BX 3 BH = 6 : GOOD COMP FLAG 
+ BL = 0 +t INITIAL KJ ROM ERR CODE 
MoV DX,8000H 3 SET KJ-ROM TOP ADDR (80000H) 
MOV DS, DX 3 
XOR $I,$I ; 
MOV CX,8000H 3 TEST MODULE AT ADDR 80800H 
KJ2: ADD AL,DS:{$) 3 CCALCULATE CHECKSUM) 
INC SI 3 
LOOP KJ2 ; 
OR AL, AL 3 CHECKSUM GOOD ? 
JHE KJERR 3 NO - 
MOV DX, 9080H 3 TEST MODULE AT ADDR 90800H, 
KJ3: PUSH DX 3 91000H, AND 91800H 
MOV CL, 16 3 
KJ4: MOV DS,DX Jreren ene e nee ----: 
XOR SI,S! 3 : 
PUSH cx 3 : 
MoV CX,0800H 3 16 TIMES LOOP 
KJS: ADD AL, DS: ($1) Fecatetetated 
INC SI 3 2K TIMES LOOP : 
Loop KJ5 poomeee: : 
PoP cx 3 t 
ADD DH,2 3 : 
Loop Kus goon: 
POP Dx 3 
INC BL 3 INCREMENT ERROR CODE 
OR ALLAL 3 CHECKSUM GOOD ? 
JNE KJERR 3 NO - 
ADD DX, 0080H 3 
CMP BLS 3 
JB KJ3 3 
wee wm eeeewwnwwe 3 
3 TEST GATJI SRAM 3 
JER eSSa mates saan anaes wewserswes ; 
KJ6: MOV CH,04H 3 SEY TEST ADDR LENGTH (2K) 
NOV OH, 88H 3 SET START ADDR (8800H) 
MOV ES,DX 3 
CALL PODSTG 3 GAIJI SRAM GOOD ? 
MOV BH.O 3 Sr GOOD COMP FLAG 
J2 KJ? 3 YES 
MoV BL,OFFH 3 Ser GAIJI SRAM ERROR CODE 
KJERR: MOV BH.27H 3 
KJ?: PUSH ; 
etait DISABLE Kd-ROn DECODER AND THEN ENABLE VRAN2 DECODER 
; 
DB 007H 3 START ots ADDR 
DB 067H 3 MASK 
DB 1 3 PARAMETER LENGTH 
DB 000n 3 DIABLE KJ-ROM DECODER 
CALL S8SET 3 
DB COAH 3 START REG ADDR 
08 060n 3 MASK DATA 
DB 1 3 PARAMETER LENGTH 
: DB OB7H 3 ENABLE VRAM2 DECODER (88000-BFFFF) 
: CALL PUT_LOGO 3 PUT LOGO ON SCREEN 
Fasecs 
POP BX ; 
OR BH, BH 3 ANY ERROR OCCURRED ? 
J2 coh) 3 NO - 
MOV SI,OFFSET KFNT_ERR ; KANJI ROM OR GAIJI RAM ERROR 
CALL E_MSG 3 
KJ9: 
Josceee= Salata batt tee ened eeww eee 
TEST 5 2 
EMORY SIZE DETERMINE AND TEST 3 
; DESCRIPTION z 
3 THIS ROUTINE WILL DETERMINE HOW MUCH MEM 2 
3 1S ATTACHED TO THE SYSTEM (UP TO 512KB) 2 
3 AND SET "MEMORY_SIZE" AND "REAL_MEMORY®™ t 
3 WORDS IN THE DATA AREA. t 


A-235 














t 
? 
€D 
EST : 
ER T ED : 
3 MEE CONTENTS : 
Ry WILL BE ; 
ix A. Ss, SO ie : ath - 
dix THI DEP = 2 i : 
en TER by’ “ - . 
App ; a CLEARED, D om 
H PRESET LAG = OBXx itty = 
H R ; an 
; MFG ERR 0 INA ea - 
: aetsee . 
EXx BASE i ES Go 
3 , i 
: 1 Ex S2K VR Bree = 
| 4 eee MATION 
ce : ars INFO! 
ar fe pe RAM MAP 
~e i STORE 
eee ASU Ds - r : 
| , 1 ; RAM CA 
i a ! = ARD IN? 
2 Boe oon ; 66 aan 
i ie asta ™ 
8 0000 § TEST at - | — | 
091D B OF7C Jz Bes, : ie 7 
0920 60 Test fe aoe OB + 2ND_ a 7 id, 
wee eS aced Q25_1: a rae cere g. ae se 
AL, . : 
: 1 : x2 3 BX 3 T TO OR C EMOR 
28 63 TES ; ae vA ’ : = 
$934 he c3 40 25 2: JZ x26 an . ng 2 5 
0 8 Q i : 3 
092C AB O01 soe CRED ara “3 a 
092F 74 04 0080 : i ob : 
693) 81 C3 Q25_ oy pe Bee : : cick : 
0933 81 C3 + : ; 
37 eo " | 3 
0939 ai ie 0013 B i‘ ie 
O93 pe ic 0015 nov ae : 7 
X, | 
0943 008 : a " 
88 oes R : : ; 
0947 €8 a : | ' 
096A E80 : : | 
air BA ls @26: niet f _ = 
i : : ro ; rest 0 
B | 
, : : cyeste ; ORY SIZE 
oD : " 
Sen 35 QUT FS — 
: : . 5 } DISPLA 
: : POP Bx ; 
O98E ” 60 ane ast 3 : ° : 
960 E6 ODEA R ADD msize : - | a 
0962 be 7 ee Ee i it . 
wees 5B @ pay coe enen : - ie a ; 
9 | 
3987 aa 27 0 nay AX, BX Pi rT; ) 2 
968 004 R CMP a6 _ Be a i 
096A ea igs JHE a? = se ‘i ii 
0 M 
oa7e 60 Ph Jn pats I ra ; 
3973 es 8000 7 ; 2 ‘ | & : 
ua : | 
a + NE a eH 33 ; vase ODE - 32 
O97A B OAlL R® e # a : 3 
F 3 
o97c 29_i: en en : : 

: ) | 2 ae | M CARD IN | 
897F = 04 Q350: iM or : ” ~ 
1 . coves; NO - 28K R 
0984 4 2F 10 J a, i “* 

: 3 
: 2 7 . : Ahi CARD AREA ? 
0983 22 F 
98D 26 SH cx i : 
Saar EB Pusn oF ss ! a " 
‘ aL AX, CL i 
esas ae 3 f a = 
s- 
es ce ee wen ee 
099 51 POP Q3 ‘ i st - 
0998 Bl OD 5 : b ; 
: . CH ‘ 
a30 Bb et OR Bie Aplbelldecds ee 
099 59 ; | | 
O99F 33 M OHA CL ; F . aie : i : 
4 : i BHD 5 Foes knead 64 oDD/E IT ISN'T 
0 8A ov BH, 7 ie " 
AS D9 : : 
0343 Bi oe SNP inoue ae ah - ; 
rs ALO a e 

: : | : a ERR 

rata ue Q32: res is — 
i a ; 
Ost Be " @33: SMP iheee : nee 
: v Lc ; : 
B3 6 : : : 7 
09Bs 4 D9 Q34: nov BL; , a 7 
care OA np | i 
Re BL,C 
0980 80 rc 4 
rT) F 
ayee Hh 2s Tt 
09 
9c6 FE 7 
B3ce 80 FC 01 
O9eB 74 02 
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o9cD 


O9CF 
o9D2 


FE Cc? 


BE OOSE R 
E8 OD32 R 


70 90 


Inc BH 


+ MUST HAVE BEEN BOTH 
3 
Q35: Mov SI,OFFSET MEM_ERR 
E_MSG ; 
’ 


nus 
- MAKE INTO OCXX 
LET ERROR ROUTINE FIGURE OUT 


=f 


3 

+ SUBROUTINE 

; MEMORY SIZE PRINT ON CRT 

+ DESCRIPTION 

$ PRINT TESTED MEMORY OK MSG ON THE CRT 
+ CALL PARMS: AX = K OF GOOD MEMORY CIN HEX) 


USK 8 
PUSH cx 
PUSH Dx 
PUSH Ax 3 SAVE WORK REGS 
MOV AH,2 3 SET CURSOR tome THE END OF 
MOV DX,0921H Hy shee 9, COL. 33 
mov BH,O 3 PAGE 0 
INT INT_10 ; 
PoP Ax ; 
PUSH Ax 
MoV BX,10 3 SET UP FOR DECIMAL CONVERT 
MoV CXx,3 3 OF 3 NIBBLES 
Q36: XOR DX, DX ; 
DIV BX + DEVIDE BY 10 
OR OL, SOH 3 MAKE INTO ASCIT 
PUSH 3 SAVE 
LOOP Q36 3 
MOV Cx,3 3 
Q37: POP Ax 3 RECOVER A NUMBER 
CALL PRT_HEX 
LOOP Q37 
MOV 


CX,3 
MOV SI,OFFSET FSB 3 PRINT * KBY 
Q38: MoV Ehatees 
$ 


INC 

CALL PRT_HEX 

LOOP Q38 

POP aX 

PoP Dx 

POP cx 

POP BX 
Q35E: RET 
MSIZE = ENDP 
Q43: 
siwesuabuawesoeeaeme eens eo a 
3 TEST 16 z 
3 KEYBOARD TEST : 
3 DESCRIPTION : 
3 NMI HAS BEEN ENABLED FOR QUITE A FEW : 
3 SECONDS NOW. CHECK THAT NO SCAN CODES t 
3 HAVE SHOWN UP IN THE BUFFER. (STUCK : 
3 KEY) IF THEY HAVE, DISPLAY THEM AND : 
3 POST ERROR. 2 
3 MFG ERROR CODE = 2000 STRAY NMI “a ale OR KBD RCV ERRORS : 
3 21XX CARD FAILURE : 
; XX=01, KB DATA STUCK HIGH z 
; XX=02, KB DATA STUCK LOW : 
3 XX=03, NO NMI INTERRUPT t 
INT_70 EQU 70H 

ASSUME DS:DATA 

CALL MFG_UP 3 SEND "EF* TO MFG_TESTER 

CALL DDS_ 3 ESTABLISH ADDRESSING 
F Eataatatad CHECK LINK erg IF PRESENT 

MOV DX, JOY_PORT H 

IN AL, Ox 3 BURN-IN MODE ? 

AND AL, OFOH 3 

JZ F6 3 YES-BYPASS CHECK 

IN AL, PORT_C $ KEYBOARD CABLE ATTACHED ? 

AND AL, 100000008 3 

JINZ F? 3 NO - 
Fé: JmP F6_X 3 YES-BYPASS CHECK 
F?: IN AL, PORT_B , 

AND AL, LILIT100B 3 DROP SPEAKER DATA 

out PORT_B,AL 3 

MOV AL, OB6H 3 MODE SET TIMER 2 

out TIM_CTLAL ; 

Mov AL, 040H 3 DISABLE NMI 

our NMI_PORT,AL 3 

MoV AL, 32 5 LSB TO TIMER 2 

3 CAPPROX. 40Khz VALUE) 

Mov DX, TIMER¢2 

ouT DX,AL 

SUB AX, AX 

MOV CX, AX 

OUT DX,AL 3 MSB TO TIMER 2 (START TIMER) 

InN AL, PORT_B H 

OR AL, 

our PORT_B.AL 3 ENABLE TIMER 2 
F7_0: ON AL, PORT_C 3 SEE IF KEYBOARD DATA ACTIVE 

AND AL, 010000008 ; 

INZ F7_1 3 EXIT LOOP IF DATA SHOWED UP 

Loop F7_0 

Mov 8L>02H 3 SET NO KEYBOARD DATA ERROR 

JMP SHORT F6_1 + (2102) 


F7_1: PUSH ES 


- 


SAVE ES 
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0a5s¢ 
OAS6 
OA5S8 
OASF 
OAb2 
0A64 
0A66 
0Ab8 
OAGA 
oagc 
OAGF 
OA71 
0A75 
0A75 
OAT? 
OATA 
OA7C 
OA7E 
0a8s 
OA86 
OA8S 
OABA 
OAsC 
OASE 
0A90 
OAd92 
OA94 
0A96 
OAdS 
CAA 


oAgC 
OASE 
OAAL 


OAAS 
OAAG 


OAAS 
OAAB 


OAAD 
OABO 


OBO2 
0B0S 
0806 
0B08 


2B CO 


co 
36: C7 06 0008 R 0599 C 
a2 0084 ® 
€4 61 
oc 30 
E6 61 
Bo co 
£6 AO 
Bg 0100 
E2 FE 


83 03 

26: C7 06 0008 R co0O C 
67 

74 «14 

Bo 00 


BS 01 


87 21 
BE OOSF R 
€8 OD3S2 RK 


BO 00 
E6 AO 


B& FF20 
cD 70 


BS 0703 
cD 16. 


E38 OF7C R 


E4 61 
8A DO 
24 ES 
E6 61 


SUB AX» AX ; SET UP SEGMENT REG 
MOV ES, AX ;_® 
MOV ES:(NMI_PTR),OFFSET D13 3 SET UP NEW NMI VECTOR 
nov INTR_FLAG, AL 3 RESET INTR FLAG 
IN AL, PORT_B ; DISABLE INTERNAL BEEPER TO 
OR AL, 001100008 3 PREVENT ERROR BEEP 
OUT PORT_B»AL 
MoV AL, OCOH 
OUT NMI_PORT,AL 3 ENABLE NMI 
MOV CX»O100H 5 
LooP 3 WAIT A BIT 
IN At PORT_B ; RE-ENABLE BEEPER 
ARD AL, TyOOTI11B 
ouT PORT_B,AL 
MOV AL, INTR_FLAG + GET INTR FLAG 
OR ALY AL ; WILL BE NON-ZERO IF NMI HAPPENED 
MOV BL SET POSSIBLE ERROR CODE 
MOV ES: CHM PTR],OFFSET KBDNMI ; RESET NMI VECTOR 
POP ES ; RESTORE ES 
JZ Fo_1 ; JUMP IF NO NMI (2103) 
MOV AL7 OOH 3 DISABLE FEEDBACK CKT 
ouT NMI_PORT,AL 3 
IN AL, PORT_B 3 
AND AL, 111111108 3 DROP GATE TO TIMER 2 
ouT PORT_B,AL 3 
F6_2: IN AL, PORT_C ; SEE IF KEYBOARD DATA ACTIVE 
AND AL, 010000008 3 
JZ F6_X + EXIT LOOP IF DATA WENT LOW 
LOOP F6_2 
MOV BL,O1H 3 SET KEYBOARD DATA STUCK HIGH ERR 
3 
F6_1: MOV BH, 21H > POST ERROR "21Xx" 
MOV SI,OFFSET KEY_ERR ; GET MSG ADDR 
CALL E_MSG 3 PRINT MSG ON SCREEN 
F6_X: MOV AL, 00H ; DISABLE FEEDBACK CKT 
OUT NMI_PORT,AL 3 
mov AX, OFF20H 3 INITIALIZE KANA-KANJI FUNCTION 
INT INT_70 3 
mov AX, 0703H ; DISABLE INDICATOR ROW DISPLAY 
INT INT_16 3 
possess oe jedoce eee ee eases {a oer eee ore ceetccnceseeeettees 
3 TEST 2 : 
; CASSETTE INTERFACE TEST : 
+ DESCRIPTION : 
; TURN CASSETTE MOTOR OFF. WRITE A BIT OUT TO THE : 
3 CASSETTE DATA BUS. VERIFY THAT CASSETTE DATA : 
3 READ IS WITHIN A VALID RANGE : 
t MFG ERROR CODE = 2300 (DATA PATH ERROR : 
3 23FF (RELAY FAILED TO PreK) : 
MAX_PERIOD EQU OASAH NOM. +20% 
MIN_PERIOD EQU O8ADH ;HOM -10X 
ponte TURN THE CASSETTE MOTOR OFF 
CALL MFG mre ; SEND ‘EE’ TO MFG_TESTER 
1 AL, PO 
OR At oog0TOOIB ; SET TIMER 2 SPK OUT, AND CASSETTE 
OUT PORT_B,AL 7 OUT BITS ON, CASSETTE MOT OFF 
peocee WRITE A BIT 
AL, INTAOL 
oR AL, O1H 3 DISABLE TIMER INTERRUPTS 
OUT INTAOL,AL 
MOV AL, OB6H ; SEL TIM 2, LSB, MSB, MD 3 
OUT TIMER+3,AL ; WRITE 8253 CMD/MODE REG 
MOV AX, 1234 ; SET TIMER 2 CNT FOR 1000 USEC 
OUT TIMER+2,AL ; WRITE TIMER 2 COUNTER REG 
MOV AL, AH > WRITE MSB 
out TIMER+2,AL 
SUB cx, CX CLEAR COUNTER FOR LONG DELAY 


oop $ 
READ CASSETTE INPUT 


WAIT FOR COUNTER TO INIT 


IN AL, PORT_C 3 READ VALUE OF CASS IN BIT 

AND AL, 10H 3 ISOLATE FROM OTHER BITS 

mov LAST_VAL,AL 

CALL READ_HALF_BIT ; TO SET UP CONDITIONS FOR CHECK 

CALL READ_HALF_BIT 

ICXZ F8 CAS_ERR 

PUSH BX 3 SAVE HALF BIT TIME VALUE 

CALL READ_HALF_BIT 

POP ax 3 GET TOTAL TIME 

ICXZ F8 3 CAS_ERR 

ADD AX, BX 

cmP AX, MAX_PERIOD 

JAE F8 + CAS_ERR 

cMP AX, MIN_PERIOD 

JB F8 3 

MOV DX, JOY_PORT 3 

IN AL, DX 

AND AL,OFOH 3 DETERMINE MODE 

cMP AL, 00010000B 3 MFG? 

JE F9 

cmp AL, 010000008 3 SERVICE? 

JNE T16_END 3 GO TO NEXT TEST IF NOT 
bo---- CHECK THAT CASSETTE RELAY IS PICKING (CAN*T DO TEST IN NORMAL 


be: 


MODE BECAUSE OF POSSIBILITY OF WRITING ON CASSETTE IF “RECORD” 
BUTTON IS DEPRESSED.) 


IK 

mov 
AND 
ouT 


AL, PORT_B 
DL,AL 
AL,111001018 
PORT_B,AL 
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we wee 


SAVE PORT B CONTENTS 
SET CASSETTE MOTOR ON 


© 














BB O23FF 
EB 03 


BB 2300 


E&8 OF7C R 

E8 0000 E 

E4 62 

24 02 

78 17 

BA O2F8 

89 16 DOOO R 
80 CE 0011 R 02 
E8 1L11ID R 

73 06 

BE 0061 R 

E8 OD32 R 


E8 OF7C R 
E8 0000 E 


OE 

07 

BF OBAC R 
BA OS7A 
BO 08 


BA 0201 
EC 


24 FO 
3€ 20 
74 08 
81 SE 0072 R $412 
75 28 


BA OS7A 
B87 29 

81 04 

26: 8A 05 
47 


XOR cx, cx 
Loop 8 3 WAIT FOR RELAY TO SETTLE 
CALL —- READ_HALF_BIT 
CALL READ_HALF_BIT 
MOV AL,DL 5 DROP RELAY 
OUT PORT_B,AL 
JCXZ =—-T16_END 3 READ_HALF_BIT ytouto TIME OUT IN 
~ 3 THIS SITUATIO 
Mov BX, 23FFH 3 ERROR 23FF 
JMP SHORT F8L 
F8: + CAS_ERR 
MoV BX, 2300H ERR. CODE 2300H 
F81: MOV SI, ,OFFSET CASS_ ERR ; CASSETTE WRAP FAILED 
CALL O PRINT ERROR MSG 
T16_END: IN ite entao. i 
AND AL, OFEH 3 ENABLE TIMER INTS 
out INTAOL,AL 
IN AL, MMI_PORT 3 CLEAR NMI FLIP/FLOP 
MoV AL, 80H 3 ENABLE NMI INTERUPTS 
our NMI_PORT,AL 
3 TEST 18 
SERIAL PORT (2FX) TEST 
DESCRIPTION: 


Re we we we we we we we we we 


CHECKS IF THE SERIAL CARD IS ATTACHED. IF NOT, EXITS. 
VERIFIES THAT THE SERIAL CARD UART FUNCTIONS PROPERLY. 
ERROR CODES RETURNED BY ‘UART' RANGE FROM 1 TO 1FH AND 


ARE REPORTED VIA REGISTER BL. 


FOR POSSIBLE ERRORS. 


SEE LISTING OF 
MFG. ERROR CODES = 23XX FOR SERIAL PORT 2Fx 


"UART' 


TO MFG. TESTER 


TEST FOR SERIAL CARD PRESENT 
ONLY CONCERNED WITH BIT 1 


+ SET EQUIPMENT FLAG 


; peer COMM. ADAPTER TEST 


CALL MFG_UP 3 SEND ‘ED? 
CALL ops 3 POINT TO DATA AREA 
IN AL, PORT_C ; 
AND AL,COOOC01L0B ; 
JNZ ™ 3 IT'S NOT THERE 
MOV DX,RS232_2_PORT ; ADDRESS OF SERIAL CARD 
mov RS232_BASE,DX SAVE RS232 CARD ADDR 
OR BYTE PTR EQUIP_ FLAG+1, 02H 
CALL VART 
JHC ™ PASSED 
MoV SI, oEeon coml _ERR + CODE FOR DISPLAY 
CALL E_MSG + REPORT ERROR 

TM: 

TEST 19 


we we ee we we we we 


CALL MFG_UP 
CALL DDS 
bww--~- CHECK DATA PORT 
PUSH cs 
POP es 
MoV DI,OFFSET PPD 
MOV OX, PARAL_PORT#2 
mov AL,08H 
OUT DX,AL 
MOV DL, LOW PARAL_POR 
MOV BH, 28H 
MoV CX,4 
PPi: MOV AL, ES:(DI) 
INC DI 
mov AH,AL 
OUT DX, AL 
PUSH ax 
PoP AX 
IN Al, DX 
XOR AH, AL 
JNZ PERR 
Loop PPL 
Bmwen= CHECK CONTROL PORT 
MoV rape —PORT 
IN AL,D 
AND AL, OFOH 
CMP ahs 001000008 
JE PP2 
total g 
JNE 
PP2: MOV si PARAL_PORT#2 ; 
MoV Coe 
mov cls 
PPS: MOV AL, ES: (DI) 
INC oI 
mov AH, AL 
our DX, AL 
PUSH Ax 
PoP ax 
IN AL.DX 
AND AL, 1FH 
XOR AH, AL 


MFG ERROR CODE = 


PARALLEL PORT TEST 


28XX_ DATA PORT WRAP ERROR 


29XX CONTROL PORT WRAP ERROR 
(XX ERROR BITS) 


ASSUME CS:CODE,DS:DATA 
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we ee we we we we we we we Be mde we we we te we 


3 
3 
3 
; 
3 


ee we we we we we we we we Oe 


SEND "EC" TO MFG_TESTER 


POINT TO 


SET DS 


DATA AREA 


SET TEST PATARN ADDR (DATA) 
SET CONTROL PORT 
SET SELECT IN SIGNAL 


3 SET DATA PORT 
SET ERROR CODE 28Xxx 


SET LooP 


COUNTER 


LOAD TEST PATRAN 


OUT DATA 
DELAY 


INPUT DATA 
COMPARE DATA 


ox ? 


SERVICE MODE LOOP ? 


NO -GOTO NEXT TEST 


SET CONTROL PORT WRITE 
SET ERROR CODE 29Xxx 
SET LOOP COUNTER 

LOAD TEST PATRAN 


DATA SAVE 


QUT DATA 


DELAY 


INPUT DATA 
DROP BIT 7-5 


COMPARE 


DATA - 


YES- 
Se FLAG, 3412H J WARM START WITH "CTRLOALT+INS™? 


FF AA 55 00 
1B 00 1¢ oC 


a oc 


8 
BE 0066 R 
E8 OD32 R 


28 CO 
8E CO 
Bg 0008 
oe 


1F 
BE 15CO R 
BF 0020 R 


8E D9 
C7 06 0014 R 0000 E 
C7 06 0120 R 0000 E 


C7 06 0066 R C008 E 


oe 
58 
AS 0062 R 


BO 01 
€6 17 
E8 OF7C R 


BA Cooo 


58 

81 F9 AASS 
74 06 

81 F9 SSAA 
75 05 

EB OEC4 R 
EB 04 

81 C2 0080 
81 FA F800 
72 DD 


E8 OF7C R 
€8 0000 E 
1E 


07 
BF 0074 R 
BS FFFF 


B90 
83 re 0072 R 00 


c 
c 


¢c 


mn 
F7A: 





JNZ PERR 3 OK? 
LOOP PPS 3 
JMP SHORT PP4 3 
PPD: DB OFFH,OAAH,O55H,000H + DATA PORT TEST PATARN 
DB O1BH,000H,01CH,OOCH ; CONTROL PORT TEST PATARN 
PERR: MOV BL,AH 3 SET ERROR BITS 
MOV SI,OFFSET PRT_ERR ; PARALLEL PRINTER ERROR 
CALL E_MSG ; 
PP4: 
: SETUP HARDWARE INT. VECTOR TABLE 
b nnn nena nn nnn nnn enn nn nn rc neers 
ASSUME CS:CODE,DS:ABSO 
SUB AX, AX 
MOV ES, AX 
MOV CX, 08 3 GET VECTOR CNT 
PUSH cs 3 SETUP DS REG 
PoP DS 
MOV SI,OFFSET VECTOR_TABLE 
OV DI,OFFSET INT_PTR 


SKIP OVER SEGMENT 


3 SAVE CONTENTS OF CONF. FLAG 
+ CRESTORE AT LABEL F17) 


2603 WATCHDOG TIMER FAILED 
ASSUME CS:CODE,DS:DATA 
CALL UP 


MFG_U 3; SEND ‘EA* TO MFG_TESTER 
CALL DDS 3 POINT TO DATA AREA 
pen us 3 INIT DISKETTE SCRATCHPADS 
3 

MOV DI,OFFSET TRACKO; 

MOV AX, OFFFFH 3 

STOSW 3 

STOSW 3 

In AL, PORT_C 3 DISKETTE ADAPTER PRESENT? 

AND AL,00000100B 

JZ F10 ; 
¢ JMP F15 3; NO - BYPASS DISKETTE TEST 
10: CMP RESET_FLAG,0 3; RUNNING FROM POWER-ON STATE? 

JNE Fll 3 BYPASS WATCHDOG TEST 

MOV AL,00001010B 3 READ INT. REQUEST REGISTER CMD 

OUT INTAOO,AL 3 

IN AL, INTAOO 
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MoV BP, AX 3 
gecec- SET UP OTHER INTERRUPTS AS NECESSARY 

ASSUME DS:ABSO 

MOV DS,CX 

mov INT5_PTR,OFFSET PRINT_SCREEN ; PRINT SCREEN 

MOV KEY62_PTR, OFFSET KEY62_INT ; 62 KEY CONVERSION 

3 ROUTINE 

MOV BASIC_PTR, OFFSET BAS_ENT ; CASSETTE BASIC ENTRY 

PUSH cs 

POP ax 

MOV WORD PTR BASIC_PTRt2,AX 3 CODE SEGMENT FOR CASSETTE 
poco eee nnn n eee cen enn e nen en meee nnn e nen manne aren nnn en nnn naaes 
3 TEST 20 : 
3 OPTIONAL ROM TEST : 
3 DESCRIPTION : 
3 CHECK FOR OPTIONAL ROM FROM C0000 TO F8000 IN 2K BLOCKS : 
3 CA VALID MODULE HAS "AASS® OR '55AA* IN THE 1ST 2 LOC'S,: 
3 LENGTH INDICATOR (LENGTH/512) IN THE 3RD LOCATION AND =: 
3 TEST/INIT. CODE STARTING IN THE 4TH LOCATION.) : 
3 MFG ERROR CODE = 25XX (XX=MSB OF SEGMENT THAT HAS CRC CHECK) 

MOV AL,O1H 3 MFG HART BEAT 

OUT MFG_PORT#7,AL 3 

CALL MFG_UP 3; SEND ‘EB’ TO MFG_TESTER 

MoV DX, 0C000H 3 SET BEGINNING ADDRESS 
ROM_SCAH_1: 

Hov Ds,DX 

SUB BX, BX 3 SET BX=0000 

MoV cx, (BX) 3 GET 1ST WORD FROM MODULE 

PUSH BX 3 BUS SETTLING 

POP BX 

CMP CX, OAASSH 3 ID FOUND (PCJR MODE) ? 

JE OROML ; 

cMP CX,55AAK 3 CMATIVE MODE) 

JNE NEXT_ROM 3 NO - 
OROM1: CALL ROM_CHECK 3 GO CHECK OUT MODULE 

JMP SHORT ARE_WE_DONE ; CHECK FOR END OF ROM SPACE 
REXT_ROM: 

ADD DX,0080H 3 POINT TO NEXT 2K ADDRESS 
ARE_WE_DONE: 

cMP DX, 0F800H 3 CARTRIDGE AREA END ? 

JB ROM_SCAN_} 3 NO -GO CHECK ANOTHER ADDR 
3 TEST 21 t 
; DISKETTE ATTACHMENT TEST ' 
3 DESCRIPTION t 
; 1. VERIFY WATCHDOG TIMER IN CASE OF POWER OW ENTRY. : 
3 2. VERIFY STATUS OF FDC AFTER A RESET. ' 
3 3. DETERMINE NUMBER OF DISKETTE DRIVES. t 
3 &. COMPLETE SYSTEM INITIALIZATION THEN PASS CONTROL 1 
; 10 THE BOOT LOADER PROGRAM : 
+ MFG ERROR CODES = 2601 RESET TO DISKETTE CONTROLLER CD. FAILED = 

: 

















C4 FF 


26 0302 R 


26 0010 R SF 
2E OO1O R 


E4 FE 


FA 04 
06 0302 R OF 
OE 0010 R O1 


06 0084 R 00 
7B R 


1414 


0101 


80 
20 


OFE2 R 
SE 0018 R 00 


EO 


0201 
FO 


03 
006B R 
20 


Fg 
SE 0072 R 4321 


AND AL,01000000B 3 HAS WATCHDOG GONE OFF? 
JNZ Fill 3 PROCEED IF IT HAS 
MOV BL,O3H ; SET ERROR CODE 
JMP SHORT F13 
Fil: MoV AL, FDC_RESET 5 
OUT NEC_CTL,AL 3 DISABLE WATCHDOG TIMER 
mov AH, 0 > RESET NEC FDC 
MOV DL,AH 3 SET FOR DRIVE 6 
INT NT_IS 3 VERIFY STATUS AFTER RESET 
TEST AH, OFFH 3 STATUS OK? 
MOV BL,O1H 3 SET ERROR CODE 
JZ Fis 3 YES- 
FL3: MOV BH, 26H DSK_ERR: (26XX) 
HOV SI, OFFSET DISK_ERR ; GET ADDR OF MSG 
E_MSG 3 GO PRINT ERROR MSG 
oes DeTenmiNe HUMBER OF DISKETTE DRIVES 
Fs: AX,0000000110000001B ; AH-DRIVE CONFIG. FLAG 
3 AL-TURN MOTOR ON 
MOV DL,O 3 SELECT DRIVE 0 
Fi¢_i: OUT NEC_CTL,AL 3 WRITE FDC CONTROL REG 
PUSH = AX ; 
PUSH = DX 3 
SUB cx, CX 3 WAIT FOR 0.5 SECOND 
Loop 3 
LOOP $ H 
MOV CH, 3 SELECT TRACK 1 
MOV SEEK_STATUS,DL 3 
CALL = SEEK 3 RECALIBRATE DISKETTE 
POP DX > 
POP AX 3 
JC F142 3 
OR BYTE PTR JEQUIP_FLAG.AH ; SET DISKETTE CONFIG. 
MOV CL.6 3 SET @ OF DISKETTE 
Mov CH, DL ; 
SHL CH.CL 
AND BYTE PTR EQUIP_FLAG,3FH ; 
OR BYTE PTR EQUIP_FLAG,CH ; 
Flé_2:  SHL AX, 1 i 
AND AH, 112211108 3 
OR AL, FDC_RESET ; 
INC DX 3 
CMP DL.¢ ; 
JB Fl4_1 ; 
Test rere JEQUIP. FLAG. ,OFH ; DISKETTE DRIVE ATTACHED ? 
14 
OR BYTE gr EQUIP_FLAG,O1H ; SET IPL DISKETTE INDICATOR 
jessse TURN MOTOR 0 
F16_3: MOV AL, FDC _ RESET 3 TURN DRIVE 0 MOTOR OFF 
OUT NEC_! CTL, AL ; 
FS: MOV INTR_FLAG,OOH 3 SET STRAY INTERRUPT FLAG = 00 
Mov DI,OFFSET PRINT_TIM_OUT ;SET DEFAULT PRT TIMEOUT 
PUSH DS 
PoP €S 
MoV AX, 1414H 3 DEFAULT=20 
STOSW 
STOSW 
MOV AX, 0101H 3RS232 DEFAULT=01 
STOSW 
STOSW 
IN AL, IRTAOL 
AND AL, OFEH s ENABLE TIMER INT. CLVL 8) 
our INTAOL,AL 
PoP Ax 3 RESTORE & SAVE CONF. FLAG 
PUSH = AX 5 
TEST  AL,100000008 + PCJR MODE ? 
JNZ FL7 3 YES-BYPASS BEEP 
ASSUME DS:XXDATA 
PUSH = DS. 
CALL DDX ; 
CMP POST_ERR, OOH 3 CHECK FOR “POST_ERR™ NON-ZERO 
ASSUME DS:DATA 
POP DS 3 RESTORE DS 
JE Fl6 3 CONTINUE IF NO ERROR 
MOV DL.2 3 2 SHORT BEEPS (ERROR) 
CALL ERR_BEEP 
ERR_WAIT: 
MOV AH, 00 
INT_16 3 WAIT FOR “ENTER™ KEY 
AL, ODH H 
ERR_WAIT 
SHORT F17 ; 
DL, 3 2 SHORT BEEP (NO ERRORS) 
LL___ ERR_BEEP 
ax 3 RESTORE CONTENTS OF CONF. FLAG 
AHL AL 3 (SAVED AT LABEL F7B) 
AL. 3 CLEAR KBD PORT 
PORT_A,AL 3 
ox. 30 , JOY_PORT 3 GET MFG./ SERVICE MODE INFO 
AL OF oN 3 IS HIGH ORDER NIBBLE = 0? 


FLg: 
FL9: 





3 CBURN-IN MODE) 
STA ART + YES-GOTO Bon ane? OF POST 
AL, 001000008 3 SERVICE MODE LO 
Fl8 + YES-BRANCH TO START 
RESET_FLAG,4521H & DIAG. CONTROL PROGRAM START? 
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YES- € 
MFG DCP RUN REQUEST? y 
YES- 

















JE F21 ; 
ODOA 74 19 CMP AL, 0001C000B ; 
epoc $c 10 ie Fai - 
ODOE 74 15 
----- TO PCjr SYSTEM CARTRIDGE 
op10 FG C4 80 , SoEST ai, 100000008 =; PCJR MODE 
JZ 3 NO - 
obra ED O349 R MP _Sreshap 3 YES-GO SYSTEM SWAP RTH. 
aones GOTO BOOT LOA 
’ F201 MOV AX, 0019H + CLEAR SCREEN (GRAPHIC MODE) 
coun ep ae. INT INT_10 3 (MODE: $20 X 200 - COLOR) 
MoV RESET_FLAG,12S6H 5 SET WARM START INDICATOR IN CASE 
0D1D C7 06 C072 R 1234 , oh tab ibeoee eee 
oss. 26 45 INT INT_19 } GOTO THE BOOT LOADER 
oo GOTO DIAGNOSTIC TESTS OR MFO TESTS 
ASSUME 
op25 FA Fair CL 3 DISABLE EXTERNAL INTERRUPTS 
0D26 2B co SUB AX, AX 
0D28 8E D8 MoV DS, AX 3 RESET TIMER INT. 
OD2A C7 06 C020 R GODKDE C MOV WORD PTR INT_PTR,OFFSET TIMER_INT ; 
opso cD 80 INT INT_80 3 ENTER DCP THROUGH INT. 80H 
poretcecee ees a ee oe ee ame sen Nace et eee 
3 SUBROUTINE 
; GENERAL ERROR HANDLER FOR THE POST 
3 ENTRY REQUIREMENT 
3 SI: OFFSETCADDRESS) OF MESSAGE BUFFER 
; BX= ERROR CODE FOR MANUFACTURING OR SERVICE MODE 
; ARE NO : 
; LOCATION wPOST_ERR™ IS SET NON-ZERO IF AN ERROR OCCURS IN € 
3 D 
3 SERVICE/MARUFACTURING FLAGS AS FOLLOWS: (HIGH NIBBLE OF PORT 201) 
; 0000 = MANUFACTURING MODE (BURN-IN) 
; 0001 = MANUFACTURING MODE (SYSTEM TEST) 
; 0010 = SERVICE MODE (LOOP POST) 
; 0100 = SERVICE MODE (SYSTEM TEST) 
op3z E_MSG PROC NEAR 
0032 8A C7 MOV AL, BH 3 SEHD DATA TO ADDR 12 & 12 
0D34 «£6 Il our HFG -PORT#L,AL 3 SEND HIGH BYTE 
0D36 8A CS ; 
0D38 6 12 OUT MFG_PORT+2,AL ; SEND LOW BYTE 
ODSA BA 0201 mov DX, JOY_PORT /SERi Ne ieee 
oD3D EC ; 
ODSE 24 FO AND AL, OFOH ; ISOLATE BITS OF INTEREST 
0040 74 65 JZ MFG_OUT 3 MANUFACTURING MODE (BURN-IN) 
0D42 3C 10 CMP AL,00010000B =; 
0D44 74 61 JE MFG_OUT 3 MFG. MODE (SYSTEM TEST) 
0D66 8A FO MoV DH, AL 3 SAVE MODE 
0D48 80 FF OA CMP BH, OAH 3 PRE-CRT ATTACHMENT TEST ERROR ? 
0D48 72 72 JB BEEPS 3 YES-DO BEEP OUTPUT 
oDsd 53 Push BX 3 SAVE ERROR AND MODE FLAGS 
ODSE 56 PUSH 
Obs0 a HOV Ate? SET CURSOR 
B4 02 - ; 
0D52 BA 0801 HOV DX, 0801H ; ROW 8, COL. 1 
0D55 87 09 MOV BH, 0 3; PAGE 0 
0D57 CD 10 INT INT_10 ; 
0059 BE 0059 R Mov SI,OFFSET ERROR_ERR 
Bsc 89 0005, = MOV CX er) 3 PRINT WORD “ERROR” 
2E: 8A 04 0: MoV AL,CS:CS 
0D62 46 INC St 
0063 £8 OFAL R CALL PRT_HEX 
0D66 £2 F7 LOOP EM_6 
—— LOOK FOR A BLANK SPACE TO POSSIBLY PUT CUSTOMER LEVEL ERRORS 
3 IN CASE OF MULTI ERROR) 
0068 B2 07 4 MoV DL,? 3 SET CURSOR 
ODEA BG 02 EM_i: MOV AH, 2 3 ROW 8, COL 7 (OR ABOVE, IF 
0D6C B7 00 MOV BH, 0 3 MULTIPLE ERRORS) 
OD6E CD 10 INT INT_10 ; 
oD7@ Be 08 nov ae 3 READ CHARACTER THIS POSITION 
10 i 
0074 «$C 47 CMP AL, 76" 3 ERROR "G" ? 
0D76 74 06 JE EM_1_0 3 YES- 
0078 42 INC Dx 3 POINT TO NEXT POSTION 
0079 42 INC Dx 3 
OD7A 3c 20 CHP AL,?? 3 BLANK? 
oo7C ~=75 EC JNE EM_1 3 GO CHECK NEXT POSITION, IF NOT 
sore ee EM_1_0: ad Dx 3 RECOVER ERROR POINTERS 
OD80 «5B PoP a 
ees ae a 20 cH DH. 001000008 3 SERVICE MODE? 
VC_ouU ; 
OD86 80 FE 40 
eoag SE EE cn Di, 619000008 ; 
0DBB 2E: BA 04 MOV AL, CS:($1) 3 GET ERROR CHARACTER 
Te eae a CALL = PRT_HEX 3 DISPLAY IT 
toe ee ee che BH, 20H 3 ERROR BELOW 202 (MEM TROUBLE?) 
ie ; NO - 
OD96 EB OA JMP SHORT BP2 3; YES-HALT SYSTEM IF $0. 
0098 8A C7 SVC_OUT: MoV AL PR 
a 3 PRINT MSB 
wee dee CALL -XPC BYTE 3 DISPLAY IT 
MOV AL, BL ; PRINT LSB 
OD9F E& OF9D R CALL = XPC_BYTE 
ODA2 82 02 . 
ODAS ES OFAB R we Oe DL 2 ep + 2 SHORT BEEPS 
00a7 MFG_oUT: . . 
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@ 


@ 


ODA? 
ODA8 
ODAA 
ODAC 
ODAE 
ODBO 
0DB2 
ODBS 


ODBS 


£8 OFE2 R 
88 SE 0018 R 


TOTLYPO:CLI 


BEEPS: CLI 
M 


EBO: xOR 
L 


EBL: MoV 


SUBROUTINE 


FIL 
ON ENTRY: 
Es 


DS 
cx 


ON EXIT: 
ZER 


ee We we we we we We Be Ewe Oe we we we Be Be Be Be OF Oe Be Oe we 


PODSTG rece 


READ. 


AL,PORT_B 


NEC_CTL.AL 
NMI_PORT,AL 


DS:XXDATA 
Ds 


ODx 
POST_ERR,BH 
os 
DS: NOTHING 


AX,CS 
S$S,AX 


SP LOFFSET xe 
BL, 

BEEP 

CX, CX 

$ 

DL 

EB 

BH, OSH 
TOTLTPO 

DH, 001000008 
EBL 


DH,01000000B 
TOTLTPO 


THIS ROUTINE PERFORMS A 
STORAGE (MAX. SIZE = 64KB). IF “WARM START”, FILL 
BLOCK WITH 0000 AND RETURN. 
DATA PATTERNS USED: 
O->FF ON ONE BYTE TO TEST DATA BUS 
AAAA,5555,00FF,FFOO FOR ALL WORDS 
L WITH 0000 BEFORE EXIT 


ADDRESS OF STORAGE TO 


ee ee ee 


a 


Wwe Se we Se we we we we we 


we we we we we 


Be we we we 


DISABLE INTS. 
DISABLE SOUND 


STOP DISKETTE MOTOR 
DISABLE WMI 
HALT 


SET ERROR FLAG NON-ZERO 
RETURN TO CALLER 


SET CODE SEG= STACK SEG 

(STACK IS LOST, BUT THINGS ARE 
OVER, ANYWAY) 

2 BEEPS 

SET DUMMY RETURN 

SHORT BEEP 


WAIT CBEEP OFF) 


DONE YET? 

Loop IF NOT 

64K CARD ERROR? 
END IF NOT 
SERVICE MODE? 


END IF NOT 
ONE MORE BEEP FOR 64K ERROR IF IN 
SERVICE MODE (JUMP TO TOTLTPO) 


READ/WRITE TEST ON A BLOCK OF 


BE TESTED 


ADDRESS OF STORAGE TO BE TESTED 
WORD COUNT OF STORAGE BLOCK TO BE TESTED 


(MAX. 


UME 


NEAR 
DS:ABS6 


DI,DI 
AX, AX 


DX.ES 


we we we we 


3 
3 


= 8000H (32K WORDS)) 


O FLAG = OFF IF STORAGE ERROR 
IF ZERO FLAG = OFF, 
OF THE EXPECTED DATA PATTERN VS. 
(I.E... A BIT 


THEN CX = XOR*°ED BIT PATTERN 


THE ACTUAL DATA 


"ON" IN AL IS THE BIT IN ERROR) 
AH=03 IF BOTH BYTES OF WORD HAVE ERRORS 
AH=02 IF LOW CEVEN) BYTE HAS ERROR 
AH=01 IF HI (ODD) BYTE HAS ERROR 
AX,BX,CX,DX,DI,SI,BP ARE ALL DESTROYED. 


SET DIRECTION TO INCREMENT 
SET DI=0000 REL. TO START OF SEG 
Test DATA PATTERN FOR 00-FF 


S TO ABS 


DS,AX D Q 
BX, “DATA WORDERESET. FLAGORS232 BASE) ; WARM START? 


RESTORE DS 
SIMPLE FILL WITH © ON WARM-START 


DS, AX 
DATA_WORD(RESET_FLAG-RS232_BASE), BX 
DS,.DX 3 RESTORE Bs 


BX,.4321N 
Pl2 

BX, 3412 
Pl2 
CDIJ,AL 
At, CDI} 
ALLAH 

PY 

AH,0 

P8 

AH 
ALLAH 
P2 


BP.CX 
AX, OAAAAH 
BX, AX 
OX,05555H 
STOSW 
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er wee we we we we 


eee 


AND EXIT 


DIAG. RESTART? 

DO FILL WITH ZE 

WARM START WITH” Rs23zc EXT WRAP? 
DO FILL WITH ZEROS 


3 WRITE are DATA 


GET IT cK 
COMPARE TO EXPECTED 


ERROR EXIT IF MISCOMPARE 
FORM NEW DATA PATTERN 


LOOP TILL ALL 256 DATA PATTERNS 
DONE 


SAVE WORD COUNT 
LOAD DATA PATTERN 


LOAD OTHER DATA PATTERN 


FILL WORDS FROM LOW TO HIGH 
WITH AAAA 


a i a a 


Appendix A. 


POINT TO LAST WORD WRITTEN € 











DEC or 3 
OE35S 4F DEC DI 
0E36 4F STD } SET DIRECTION FLAG TO GO DOWN 
o€37 FD MOV SI,DI 3} SET INDEX REGS. EQUAL 
0E38 8B F7 MOV CX, BP 3 RECOVER WORD COUNT 
OESA 8B CD ps: 3 GO FROM HIGH TO LOW 
OE3C LODSN 3 GET WORD FROM MEMORY 
OESC AD XOR AX, BX 3 EQUAL WHAT S/B_ THERE? 
OE3D 33 C3 JNZ P8 $ GO ERROR EXIT IF NOT 
OESF 75 GE MOV AX, DX } GET 55 DATA PATTERN 
Est 8B C2 STOSW 3 STORE IT IN LOCATION JUST READ 
gees Ab Loop) P'S ; LOOP TILL ALL BYTES DONE 
ore te ch MOV Cx, BP ; RECOVER WORD COUNT 
+e cLD 3 BACK TO INCREMENT 
oeeo 46 INC st 3 ADJUST PTRS 
IN 
OESA 46 
Gees Bh Te HOV Bx ax 3} $/B DATA PATTERK TO BX 
OESD 8B DA eoaees , 
CESF BA 0201 on Whe Oy PORT : NORMAL MODE ? 
: 
oEss 8B DS Mov DX, BX ; 
0E55 24 FO AND AL, OFOH ; 
0&5? 3c FO cMP AL, OFOH ; 
ES) 74 26 none JE PS 3} YES-BYPASS OOFF & FFOO PATTERN TEST 
CESB BA OOFF Mov DX, OOFFH 3 DATA FOR CHECKERBOARD PATTERN 
CESE AD PX: LODSW ; GET WORD FROM MEMORY 
OESF 33 C3 XOR AX, BX 3 EQUAL WHAT S/B THERE? 
0661 75 4C JNZ, = PB ; GO ERROR EXIT IF NOT 
0E63 BB C2 MOV AX, DX + GET OTHER PATTERN 
0E65 AB STOSW 3 STORE IT IN LOCATION JUST READ \ 
0666 EZ Fb Loop = PX ; LOOP TILL ALL BYTES DONE 
0E68 8B CD MOV CX, BP 3 RECOVER WORD COUNT 
aie ae 1 RESET 
OE6B 4E 3 
aE i ae 
OoE6D 8 
OEGF 8B DA MOV BX. DX 3 $7B DATA PATTERN TO BX 
OE71 F7 D2 NOT Dx 3 MAKE PATTERN FFOO 
OE7S OA D2 OR DL, DL 3 FIRST PASS? 
CE75 74 E7 
0E77 FC CLD 3 INCREMENT 
0E78 83 C6 04 ADD $1.4 
OE7B FT D2 NOT DX 
OE7D 8B FE MOV DI,SI 
OE7F 88 CD MoV cx, BP 
E81 Pa: 3 LOW TO HIGH 
OE81 AD LODSW ; GET A WORD 
oE82 33 C2 XOR AX, DX 3 SHOULD COMPARE 10 DX 
0684 75 29 JNZ P8 3 GO ERROR IF NOT 
0686 AB STOSW ; WRITE 0000 BACK TO LOCATION 
OE87? E2 F& Loop P4 i LOOP TILL DONE 
oE89 FD STD ; BACK TO DECREMENT 
OESA SE DEC $I ; ADJUST POINTER DOWN TO LAST WORD 
OE8B 4E DEC SI 3 W 
oo CHECK IF IN SERVICE/HFG MODES, IF SO, PERFORM REFRESH CHECK 
Cesc BA 0201 MoV DX, JOY_POR ; 
OEsF EC IN AL, DX 3 GET OPTION BITS 
0e90 26 FO AND AL, OF ; 
0E92 3c FO CMP AL, OFOH 3 ALL BITS HIGH=NORMAL MODE 
0E94 74 0E JE P6 
0E96 ES 60 IN AL, PORT_A ; RETENTION TEST REQ'ED 2? 
0E98 AB 40 TEST AL,01000000B = 
OE9A 76 08 JZ P6 3 NO - 
jon-n- WAIT ABOUT 12 SECONDS WITHOUT ACCESSING MEMORY 
3 IF REFRESH IS NOT WORKING PROPERLY, THIS SHOULD 
BE ENOUGH TIME FOR SOME DATA TO GO SOUR. 
seve BO 32 MoV AL. 49 3 SET OUTER LOOP COUNT 
PS: LOOP 
CEAO FE C8 DEC AL 
OEA2 75 FA JHZ P5 
OEAS 8B CD PG: Mov cx, BP + RECOVER WORD COUNT 
DEA? 0B CO ie _ X,AX ge to coat 
A 3 
OEA9 75 04 JNZ PB. + ERROR IF NOT 
au 1S ier Sloer oun BY Bu mE 
3 
Mi td En P8: Boy hinged 3 SAVE BITS IN ERROR 
; AH 
OEBS OA ED OR CH, CH ; HIGH BYTE ERROR? 
OEB5 74 02 JZ Pg 
ed FE C4 INC AH 3 SET HIGH BYTE ERROR 
free oa ae PS: OR CLect 3 LOW BYTE ERROR? 
QEBD 80 C% 02 ADD AH,2 
BECO OA ES Plo: OR AH, AH + SET ZERO FLAG=0 CERROR INDICATION 
aECa cS Pll: = CLD + SET DIR FLAG BACK TO INCREMENT 
oEcs i 3 RETURN TO CALLER 


| sacl en er En eer 
; SUBROUTINE 

3 OPTIONAL ROM CHECK 

3 DESCRIPTION 

; THIS ROUTINE CHECKS OPTIONAL ROM MODULES (CHECKSUM 

3 FOR MODULES FROM COO00->CFFFF, CRC CHECK FOR CARTRIDGES 
FROM DO0000->F7FFF). 

i IF CHECK IS OK, CALLS INIT/TEST CODE IN MODULE. 

3 MFG ERROR CODE = 25XX (XX=MSB OF SEGMENT IN ERROR) 





CECS 8B C5 ROM_CHECK PROC NEAR 
CECE AB 80 mov ax 3 
CECE 74 08 TEST AL, 100000008 3 PCJR MODE ? 
CECA 81 F9 AASS JZ ROMCL 3 NO - 
OECE 75 08 CMP CX,0AA5SH 3 ROM ID = AASSHCWORD) ? 
geo fb i ee ie 
ROM 3 - 
feds 5 es wai: ROMC1: coy CX, S3AAM a: 3 ROM ID = 5SAAHC(WORD) ? 
8 81 FA 3 YES- 
veDc 72 op 2008 ROMC2: che Dx. 9D000H 3 OPTIONAL ROM AREA ? 
Z . 
OED 
oece on OE Mov BLD 
DEEZ BE 0068 R wh BH.2 
CEES BA F800 MOV SI, OFFSET INVC_ ERR ; INVALID CART. ERROR 
OEE8 52 MoV Dx, 0F800H ; 
OEED EB 45 ae 
; MP SHORT ROM_CHECK_6 3 GOTO ERROR HANDLER 
5 ae 
EEB 28 F6 ROMC3: SUB SI,SI 3 SET SI TO POINT TO BEGINNING 
EED 2A Co suB ALLAL SEED OUT AL. 
ore a MOV AH, (BX#2] 3 GET LENGTH INDICATOR 
EFS 50 SHL AX, 1 3 FORM COUNT 
OEFS 81 FA De PUSH = AX 3 SAVE COUNT 
DEFS 9¢ 00 CMP DX, 0D000H ; SEE IF POINTER IS BELOW D000 
SEFA as 68 PUSHF 3 SAVE RESULTS 
tere 3 tk joer 
OFOo % ue ADD DX, AX } SET POINTER TO NEXT MODULE 
POPF ; RECOVER FLAGS FROM POINTER RANGE 
OFOL 59 e Recov 
OFO2 52 PoP cx 3 RECOVER COUNT IN CX REGISTER 
ares PUSH = DX 3 SAVE POINTER 
72:07 JB ROM_2 3 DO ARITHMETIC CHECKSUM IF BELOW 
; D0000 
sean E8 OFSS R CALL CRC_CHECK 3 DO CRC CHECK 
aE Ok 74 28 JZ ROM_CHECK_1 3 PROCEED IF OK 
SFOA EB 05 IMP SHORT ROM_2 3 ELSE POST ERROR 
gFOC £8 O1AD R ROM_1: CALL ROS_CHECKSUM 3 DO ARITHMETIC CHECKSUM 
SELL ha. Ha wie a ROM CHECK_1 3 PROCEED IF OK 
_¢t . 
OF13. B7 00 MOV BH, 0 3 PAGE 0 
OF15 BA 081C MOV DX, 081CH 3 POSITION CURSOR, ROW 8, COL 28 
0F18 CD 10 INT INT_10 3 
OFA ac DA mov Dx, Ds 3 RECOVER DATA SEG 
tai ak bee" mov’ tcon™® — BORSMAX UatUl" oP*EAaSn°cooe 
e 3 FORM AL 
OF23 B7 25 MOV 3H, 25H ; FORM 25 PORTION 
OF25 80 FE DO CMP DH, O0D0H IN CARTRIDGE SPACE? 
OF28 BE 0064R MOV S1,OFFSET CART_ ERR 
OF2B 73 03 JAE ROM_CHECK_, 
gF2D BE 0063 R sie gnc S1,0FFSET ~ROM_ERR 
OF30 E8 ODS2R CALL 3 GO ERROR ROUTINE 
OF33 EB 1C JMP SHORT ROM_CHECK_END ; AND EXIT 
OF35 ROM_CHECK_1: 
oF3s Bs o* R nov AX» XXDATA 3 SET ES TO POINT TO XXDATA AREA 
> 3 
OF3A 8B CS MoV AX, BP 3 PCJR MODE ? 
OF3C AB 80 TEST AL,10000000B 3 
OFSE 75 11 JNZ ROM_CHECK_END - 
OFSO 26: C7 06 0014 R S003 C MOV ES: 10_ROM_ INIT, 0003H 3 Loan OFFSET 
OF47 26: 8C 1E 0016 R MOV ES: 10_ROM_SEG, DS 3 LOAD SEGMENT 
grec 26: FF LE 0014 R eon ace bts DWORD PTR ES: I0_ROM_ init” 3 CALL INIT./TEST ROUTINE 
OFS1 SA PoP Dx 3 RECOVER POINTER 
oFS2 C3 non_cneck” eats 3 RETURN TO CALLER 
OF53 
SURRQUTT NE = 
RS CRC CHECK/GENERATION 


crc CHECK/ GENERATION ROUTINE ROUTINE 
TO CHECK A ROM MODULE USING a POLYNOMIMAL: 
X16 # X12 * X5 ¢ 
SALEANS PARAMETERS: 
DATA SEGMENT OF ROM SPACE TO BE CHECKED 


3 = INDEX OFFSET INTO DS POINTING TO 1ST BYTE 
an ex = LENGTH OF SPACE TO BE CHECKED CINCLUDING CRC BYTES) 
2 
ZERO FLAG = SET = CRC CHECKED OK 
AH = 00 
AL = 2? 






we We we we we Be we we we OF we we we OE Oe we OF Br OF we 


BX = 0000 
CL = 04 
DX = 0000 IF CRC CHECKED OK, ELSE, ACCUMULATED CRC 
SI 2 (SICENTRY) ¢BXC ENTRY) 
CRC_ CHECK PROC NEAR 
OFS ASsu ME DS:NOTHING 
5 D9 nov BX, CX 3 SAVE COUNT 
OFss 8 FFFF MOV OX, OFFFFH 3 INIT. ENCODE REGISTER 
Hi re cL.D 3 SET DIR FLAG TO INCREMENT 
XOR AH, AH 3 INIT. WORK REG HIGH 
oF59 32 E4 MOV CLL4 3 SET ROTATE COUNT 
oF5B Bl 08 CRC_i: LODSB 3 GET A BYTE 
arr re FO peels 3 FORM Aj * CH #1 
0 M . 
he Hd 4 ROL AX, CL 3 SHIFT WORK REG BACK 4 
OF6 
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OFAB 
OFAB 
OFAC 
OFAD 
OFAE 
OFAE 
OFBO 
OFBS 
OFBS 
OFB? 
OFB9 
OFBB 
OFBD 
OFBE 
OFBF 
oFCcO 


50 
1E 


BS ---- R 
8E D8 

Ad 0005 ® 
EG 10 

FE C8 

AZ 0005 R 
1F 


58 
cs 


50 

Bl 04 

D2 €8 

E8 OF9B RK 
58 


24 OF 
04 90 
27 

14 40 


53 

BS¢ OE 
BB OOOF 
CD 10 


cs 


XOR DX, AX 3 ADD INTO RESULT REG 
ROL AX, 1 3 SHIFT WORK REG BACK 1 
XCHG DH, DL 3 SWAP PARTIAL SUM INTO RESULT REG 
XOR DX, AX 3 ADD WORK REG INTO RESULTS 
ROR AX, CL : 3 SHIFT WORK REG OVER 4 
AND AL, 112000008 3 CLEAR OFF CEFGH) 
XOR DX, AX 3 ADD CABCD) INTO RESULT 
ROR AX, 1 } SHIFT WORK REG ON OVER: CAH=0 FOR 
3 NEXT PASS) 
XOR DH,AL 3 ADD CABCD INTO RESULTS LOW) 
DEC BX + DECREMENT COUNT 
INZ CRC_1 3 LOOP TILL COUNT = 0000 
OR px, Dx 3 DX S7B = 0000 IF O.K. 
R 3 RETURN TO CALLER 
CRC_CHECK ENDP 


Jac boc cee emen cree nen nanan nnn en enn eeene en eee nea teenenennenenwee 
3 SUBROUTINE 
; MFG CHECKPOINT HANDLER 

3 DESCRIPTION 

3 MFG CHECHPOINT DATA IS LOADED FROM SAVE AREA, DATA IS 
; DECREMENTED BY ONE, AND THEN SAVED. 


USH A 
PUSH D 
ASSUME DS:XXDATA 
MOV AX,XXDATA 
MoV DS,AXx 
MOV AL, MFG_TST 3 GET MFG CHECKPOINT 
Our MFG_PORT,AL 3 OUTPUT IT TO TESTER 
DEC AL + DROP IT BY 1 FOR THE NEXT TEST 
MOV MFG_TST,AL 
ASSUNE DS:ABSO 
PoP DS 
POP Ax 
RET 
MFG_UP END: 
SSUME CS:CODE,DS:DATA 
SUBROUTINE 


CONVERT AND PRINT ASCII CODE 


NOTE: AL MUST CONTAIN NUMBER TO BE CONVERTED. 
AX AND BX DESTROYED. 

XPC_BYTE PROC NEAR 
PUSH Ax SAVE FOR LOW NIBBLE DISPLAY 


MOV CL,4 3 SHIFT COUNT 
SHR AL,CL 3 NIBBLE SWAP 
CALL XLAT —PR 3 DO THE HIGH NIBBLE DISPLAY 
PoP 3 RECOVER THE NIBBLE 
AND AL, OFH 3 ISOLATE TO LOW NIBBLE 
> FALL INTO LOW NIBBLE CONVERSION 
XLAT_PR PROC NEAR 3 CONVERT 00-OF TO ASCII CHARACTER 
aDD AL,O90H 3 ADD FIRST CONVERSION FACTOR 
DAA ; a reue. FOR NUMERIC AND ALPHA 
3 RANG 
apc AL,040H ; ae AND ADJUST LOW 
; L 
DAA 3 ADJUST HIGH NIBBLE TO ASCII RANGE 
PRT_HEX PROC NEAR 
PUSH BX 
mov AH,14 3 DISPLAY CHARACTER IN AL 
MoV BX,15 3 CWHITE) 
INT INT_10 3 CALL VIDEO_IO 
POP BX 
RET 


PRT_HEX ENDP 

XLAT_PR ENDP 

xPC_BYTE ENDP 

pil 

3 SUBROUTINE 

3 BEEP ON ERROR 

3 DESCRIPTION 

3 THIS ROUTINE ISSUES SHORT TONES TO INDICATE FAILURES THAT 

3 1: OCCUR BEFORE THE CRT IS STARTED, 

; 2: TO CALL THE OPERATORS | ATTENTION TO AN ERROR 

3 AT THE END OF POST, 

; 3: TO SIGNAL THE SUCCESSFUL COMPLETION OF POST 

3 ENTRY PARAMETERS: 

3 DL = NUMBER OF APPROX. 172 SEC TONES TO SOUND 

pec eee wate teceun caste nena st cdeabocciaawaeceuseencnosesecsaseass 

ERR_BEEP PROC NEAR 
PUSHF 3 SAVE FLAGS 


PUSH BX 

cLI 3 DISABLE SYSTEM INTERRUPTS 
G3: 3 SHORT_BEEP 

MOV BL.1 3 COUNTER FOR A SHORT BEEP 

CALL BEEP + DO THE SOUND 

LOOP $ > DELAY BETWEEN BEEPS 

DEC DL + DONE te SHORTS 

JNZ G3 3 DO SOME MORE 

eta : & LONG DELAY BEFORE RETURN 

3 

POP BX 3 RESTORE ORIG CONTENTS OF BX 

sig ; elk FLAGS TO ORIG SETTINGS 
ERR_ BEEP ENDP 3 RETURN TO CALLER 
+ SUBROUTINE 
3 SOUND BEEP 














wu 


BG BEEP PROC NEAR 


43 Mov AL,101101108 3 SEL TIM 2,LS8,MSB,BINARY 
0533 OUT TIMER*3,AL 3; WRITE THE TIMER MODE REG 
42 Mov AX, 535H 3 DIVISOR FOR 1000 HZ 
C4 OUT TIMER*+2,AL 3 WRITE TIMER 2 CHT - LSB 
42 mov AL,AH 
61 out TIMER*2,AL $ WRITE TIMER 2 CNT - MSB 
E0 IN AL,PORT_B 3 GET CURRENT SETTING OF PORT 
03 Mov AH, AL 3 SAVE THAT SETTING 
61 OR AL.OS 3 TURN SPEAKER ON 
C9 ouT PORT _B,AL 
FE SUB cx, 3 SET CHT TO WAIT 500 MS 
CB G7: Loop ¢ 3 DELAY BEFORE oo OFF 
FA DEC BL 3 DELAY CNT EXPI 
C4 JINZ G7 3 NO - CONTINUE BEEPING SPK 
61 mov L.A 3 RECOVER VALUE OF PORT 

OUT PORT_B,AL 

RET 3 RETURN TO CALLER 


BEEP ENDP 
3 SUBROUTINE 


. : SET DS TO POINT TO XXDATA SEGMENT teint ite 
DDX PROC HEAR 3 
bd USH Ax H 
Di R MOV AX, XXDATA 3 
8 mov DS,AX 3 
POP AX 3 
RET 3 
DDX ENDP 3 
fammnnescensees bi tete tesa annie aman! wecen--- n= = 
3 SUBROUTINE 3 
; E KBD SCAN CODE ; 
3 DESCRIPTION 3 
. TO SAVE ANY SCAN CODE RECEIVED BY THE NMI ROUTINE 3 
3 {PASSED IN AL) DURING POST IN THE KEYBOARD BUFFER 3 
; ALLED THROUGH INT. 48H 3 
3 MFG ERROR CODE = 2000H 3 
KEY_SCAN_ SAVE PROC FAR 
ASS DS:DATA 
0000 E CALL DS 3 POINT DS TO DATA AREA 
0304 R MOV SI,OFFSET KB_BUFFER_J ; POINT TO FIRST LOC. IN BUFR 
04 MOV CSIJ,AL 3 SAVE SCAN CODE 
ce MOV AX, SP 3; CHECK FOR STACK UNDERFLOW 
E4 £0 AND AH,11100000B 3 (THESE BITS WILL BE 111 IF 
3 UNDERFLOW HAPPEND) 
oD JZ KS_1 
co XOR ALTAL 
Ao OUT NMI_PORT,AL 3 SHUT OFF WMI 
2000 MOV BX,2000H 3 ERROR CODE 2000K 
OOSE R MOV SI,OQFFSET KEY_ERR ; POST MESSAGE 
OD32 R CALL E_MSG 3 AND HALT SYSTEM 
3 RETURN TO CALLER 


IRET 
Key SCAN SAVE  ENDP 
susttt toco 


3 SUBROUTINE 
; PUT LOGO ON SCREEN 

3 DESCRIPTION 

3 THIS PROC DISPLAYS IBM LOGO, A MESSAGE, AND A COLOR BAR 
’ 


LOGO DISPLAY SUBROUTINE 





OW THE SCREEN 
RN Moi shi ol pee oa eee ee Sle ae coe Saeed 
LINENO EQU 2 3 LINE NUMBER OF ONE ROW 
BACKROW equ 140 s UPPER LIMIT ROW OF BLUE BACK SCREEN 
LocosRon EQU 106 ; LOGO START ROW POSITION 
LOGOSCOL EQU 216 ; LOGO START COLUMN POSITION 
START_ADDR EQU LOGOSROWN160/4+LOGOSCOL72 ; REGEN OFFSET ADDR 
WHITE_BOX1 EQU 9874 5-2: BYTE CODE OF WHITE BOX 
BLUE EQU 1 } COLOR CODE OF BLUE 
WHITE EQU 15 3 COLOR CODE OF WHITE 
EOL EQU OFFH —s:_: END OF LINE 
EOF EQU OFFH 3: END OF FILE 
VSETCSR EQU o2n ; REQUEST SET CURSOR POSITION 
VWRTDOT EQU 0cH ; REQUEST WRITE DOT 
VURTTTY EQU OEn 3 REQUEST WRITE TTY 
PUT_LOGO PROC NEAR 
PUSH. AX 3 SAVE AX, BX & CX 
PUSH BX i 
PUSH CX 3 
wasy Mov AX. 0029H + CLEAR SCREEN (GRAPHIC MODE) 
a INT INT_10 3 (MODE: 320 X 200 - COLOR) 
HOV AKI 5 ERASE CURSOR 
ot MOV CX,2000H ; 
sine INT INT_10 ; 
mi XOR BxBX + DISABLE SCREEN 
0: MOV AX, ; 
1900 LOGOe TAT INT_10 i 
10 INC BX ; 
cHP BL. 16 ; 
. 10 JB LOGO 3 
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jesse ROUND SCREEN ¢ 
° PROV ae T REGEN. START ; SET REGEN BUFFER ADDRESS 
Hae ad Hoy ESeS! eee 
1028 88 1121 mov AX, BLUEN1O00H OR BLUEM100H OR BLUEM10H OR BLUE 
XOR + START ROW/COLUMN IS 070 
1030 3 tAFO MOV ex: * BACKROWNS20/2/2743 2 PEL/BYTE,2 WORD/BYTE,4¢ SCAN 
c 
1030 B6 04 vaste i es ‘ SCAN COUNT IN REGEN 
1032 (3% PUSH = CX 3 
10350 31 REP STOSW 3 WRITE BLUE CX WORD 
1034 F37 AB POP cx ; 
1036 59 oop DI : 
1037) SF ADD DI.2000H i 
dash BL gy aeee a Pao 
103E 75 F2 INZ LoGol 3 
os WRITE COLOR BAR 
1060 32 FF BH. BH ; 
1042 BA 0900 HOV DX,0900H 3 SET ROW/COLUMN POSITION TO 9-0 
1045 B4 02 LoGo2: mov AN, VSETCSR 3 SET CURSOR POSITION 
) ie ; : 
a a Mov BL, BLUE ; SET START COLOR AS BLUE 
1048 BS OE LOGOS: MOV AH, VARTTTY 3 
104D BO 8 nov SL enuae WHITE_BOX1 5 
’ 
105 be 0c MOV AH, VARTTTY 3 
1053 Be a nov AL. LOH WHITE_BOX1 ; 
. \ 
1037 Fe CS INC BL 3 SET NEXT COLOR 
1059 80 FB 10 che BLs16 3 ALL COLOR WRITEN ? 
osc 72 ED ’ 
1Ose FE C8 INC DH 3 NEXT ROW 
1060 80 FE OA cme DH, OAH ; 
1063 76 £0 JBE LoGo2 3 
goon WRITE IBM PATTERN 
1065 BB 10C8 R MOV BX,OFFSET IBM  ; POINT DATA AREA 
1068 BA 006A MOV DX, LOGOSROW 3 GET START ROW OF LOGO 
1063 B9 00DS LOGO4: MOV Cx, LOGOSCOL 3 GET START COLUMN OF LOGO 
106E 2E: 8A 07 LOGOS: MOV AL, CS: (BX) + GET DATA FOR WHITE PART COLUMN NBR 
wes ar tits ; Heetetery 8 ¢ 
1073 74 16 ; 
1075 52 LOGO6: PUSH DX 3 SAVE CURRENT ROW POSITION 
1076 B4 02 MOV AH, LINENO 3 SET LINE NUMBER 
1078 50 L0GO7: PUSH AX ; SAVE FOR COUNT 
1079 B4 OC MOV AH, VWRTDOT 3 WRITE DOT 
1078 BO OF MOV AL, WHITE ; DOT COLOR IS BLUE 
107D CD 10 INT INT_10 ; 
107F 42 INC Dx 3 NEXT ROW 
Hie me 
3 
1083 75 FS JNZ L0GO7 ; REPEAT FOR ALL LINE IN ROW 
1085 SA PoP Dx 3 RETORE CURRENT ROW POSITION 
1086 41 INC cx 3 NEXT COLUMN 
1087 FE C8 DEC AL 3 ALL DOT WRITE ? 
1089 75 EA JNZ LOG06 3 NO 
1088 43 LOGO8: INC BX 3 
108C 2E: 8A 07 MOV AL,CS:{BX) 3 GET DATA FOR BLUE PART COLUMN NBR 
108F 3C FF CHP AL, EOL 3 END OF COLUMN ? 
1091 75 0¢ JNE LOGO9 3 NO, CONTINUE 
1095 43 INC Bx 3 GET NEXT DATA 
1096 2E: 80 SF FF cMP BYTE | PTR CS:(BX],E0F ; ALL END ? 
1098 74 OB JE Lo > YES, EXIT 
109A 83 C2 04 ADD DX, LINENON2 3 SET NEXT ROW, TIMES 2 
3 BECAUSE SKIP BLUE LOW 
109D EB CC JMP SHORT LOGOS 3 REPEAT FROM START 
109F 98 LOGO9: CBW 3 CONVERT TO WORD 
10a0 03 C8 ADD CX, AX 3 ADD TO SKIP BLUE PART 
10A2 45 INC BX 3 NEXT DATA 
10A3 EB C9 JMP SHORT LOGOS ; 
proo-- ROUND ‘B® 
ae 1. Locoio: PusH os 3 SAVE DS 
1047 1F POP DS ; SET REGEN ADDR To DS FOR QUICK ADDR 
1048 BO 11 MoV AL,BLUEM1OH OR BLUE 3 SET OR 
VOAA A2 " 
sean. See DB OAH i MOV (50C4),AL 
10AD A2 
1OAE $166 be QA2H MOV (5166],AL 
Tent nes DB Daz p MOV [53453,AL 
10 
lope 3345 or Joa s MOV (72A5),AL 
3 
10B6 A2 
DB OA2H MoV A 
10B7 7486 Dw 7486H : (7486],AL 
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10B9 a2 
10BA 7524 DB OA2H 3 MOV (7524),AL 
10BC 1F DW 7524H 5 
Poaeeern a4 os 3 RESTORE DS 
103D 88 0 
10¢0 B7 Hie noy AX. OB00H 3 ENABLE SCREEN 
oc2 D > 
oe INT INT_10 3 
10¢4 
105 33 eae cy 3 RESTORE AX, BX & CX 
3 
loce «58 hay * 
ae? RET ; RETURN TO CALLER 
$o---- DATA STRUCTURE 
4 DATA HAVE NUMBER OF PIXEL, FITST BYTE HAS LENGTH OF WHITE 
10¢8 ; PART, SECOND BYTE HAS LENGTH OF BLUE PART 
18M LABEL BYTE P 
pReeSssscsaasssSo-- I ------- wenn- Bonner en nnn --r- sosaass =r" 
; WwBwW B weBWwW B wBwW Bw 
AAS ED Ge AB 8 en : DB 20, 5, 27, 7, 14,13, 14, EOL 
mene ee te a DB 20, 5, 30, 4, 16, 9% 16, EOL 
10D8 00 06 08 10 08 08 > 9 13, 513. EOL 
a5 09 a0 G5. 0 Fe DB 0, 6, 8,16, 8 8 9 9 - 
10&4 id HA & 10 17 0B DB 0, 6, 8,16, 23, 11, 15, 1,15, EOL 
OEE 00 06 08 10 17 OB ‘ : 3 ll, 8, 1,13, 1. 8 EOL 
a 08 a4 0D a ae DB 0, 6, 8,16 23, : 9 ee 
0 08 08 29 8 3,9 
09 09 08 03 09 03 DB 0, 6, 8,16, 8, 8s 9. FY o 9s So Se 
1108 14 05 1E 04 0D 05 DB 20, 5, 39, 4 13, 5» Se 513, EOL 
05 05 OD FF 
1112.) 16 05 1B 07 OD 07 DB 20, 5, 27, 7, 13, 7/ 1, 7513, EOL 
01 07 OD FF 
1l1C) OFF OF 
111D PUT_LOGO PeNDP ae 
3 SUBROUTINE 
; phSrNcuRonous COMMUNICATIONS ADAPTER POWER ON DIAGNOSTIC TEST 
3 DESC 
; THIS SUBROUTINE PERFORMS A THOROUGH CHECK OUT OF AN INS8250 
CHI 


THE TEST INCLUDES: 
1) INITIALIZATION OF THE CHIP TO ASSUME ITS MASTER RESET STATE. 
2) READING REGISTERS FOR KNOWN PERMANENT ZERO BITS. 
3) TESTING THE INS8250 INTERRUPT SYSTEM AND THAT THE 825 
INTERRUPTS TRIGGER AN 8259 CINTERRUPT CONTROLLER) INTERRUPT. 
4) PERFORMING THE LOOP BACK TEST: 
A) TESTING WHAT WAS WRITTEN/READ AND THAT THE TRANSMITTER 
pita Sd REG EMPTY BIT AND THE RECEIVER INTERRUPT WORK 
ROP Y. 
8B) TESTING IF CERTAIN BITS OF THE DATA SET CONTROL REGISTER 
ARE aad BACK' TO THOSE IN THE DATA SET STATUS 
REGIS 
C) TESTING THAT THE TRANSMITTER IS IDLE WHEN TRANSMISSION 
TEST IS FINISHED. 
THIS SUBROUTINE EXPECTS TO HAVE THE FOLLOWING PARAMETER PASSED: 
(DX)= ADDRESS OF THE INS8250 CARD TO TEST. 
NOTE: THE ASSUMPTION HAS BEEN MADE THAT THE MODEM ADAPTER IS 
---- LOCATED AT OSF8H; THE SERIAL PRINTER AT O2F8H. 
IT RETURNS: 
(CF) 1 IF ANY PORTION OF THE TEST FAILED 
Q IF TEST PASSED 


(BX) FAILURE KEY FOR ERROR MESSAGE CONLY VALID - TEST FAILED) 
(BH) = 23H SERIAL PRINTER ADAPTER ae FAILUR 
sins = 24H MODEM ADAPTER TEST FAILU! 
BL) = 


02H PERMANENT ZERO BITS IN INTERRUPT ENABLE REGISTER 
WERE INCORRECT 
OSH PERMANENT ZERO BITS IN INTERRUPT IDENTIFICATION 
REGISTER WERE INCORRECT 
04H PERMANENT ZERO BITS IN DATA SET CONTROL REGISTER 
WERE INCORRECT 
O5H PERMANENT ZERO BITS IN THE LINE STATUS REGISTER 
WERE INCORRECT 
O6H RECEIVED DATA AVAILABLE INTERRUPT TEST FAILED 
(THE INTERRUPT WAS NOT GENERATED) 
O7H RESERVED FOR REPORTING THE TRANSMITTER HOLDING 
REGISTER EMPTY INTERRUPT TEST FAILED 
CNOT USED AT THIS TIME BECAUSE OF THE DIFFERENCES 
BETWEEN THE 8250'S WHICH WILL BE USED) 
OQO8H-OBH RECEIVER LINE STATUS INTERRUPT TEST FAILED 
(THE INTERRUPT WAS NOT GENERATED) 
O8H - OVERRUN ERROR 
O9H - PARITY ERROR 
QAH - FRAMING ERROR 
OBH - BREAK INTERRUPT ERROR 
OCH-OFH MODEM STATUS INTERRUPT TEST FAILED 
CTHE INTERRUPT WAS NOT GENERATED) 


OCH - DELTA CLEAR TO SEND ERROR 

ODH - DELTA DATA SET READY ERROR 

QEH - TRAILING EDGE RING INDICATOR ERROR 

OFH - DELTA RECEIVE LINE SIGNAL DETECT ERROR 
10H AN 8250 INTERRUPT OCCURRED AS EXPECTED, BUT NO 

8259 CINTR CONTROLLER) INTERRUPT WAS GENERATED 
11H DURING THE TRANSMISSION TEST, THE TRANSMITTER 

Pa WAS NOT EMPTY WHEN IT SHOULD 

HA 5 


ee Be we we we we we we we we Bee we We we we we we Be we we we Be we BE EEE WE Ue we OF we Wee Be we we we we we we ve 
ee we we we we - ~ ~ ee wee 
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12H DURING THE TRANSMISSION TEST, THE RECEIVED DATA 
AVAILABLE INTERRUPT DIDN'T OCCUR. 
13H TRANSMISSION ERROR - THE CHARACTER RECEIVED 
DURING LOOP MODE WAS NOT THE SAME AS THE ONE 
TRANSMITTED 
14H DURING TRANSMISSION TEST, THE 4 DATA ae CONTROL 
OUTPUTS WERE NOT THE SAME AS THE 4 DATA 
CONTROL INPUTS. 
15H THE TRANSMITTER WAS NOT IDLE AFTER THE TRANS~ 
MISSION TEST COMPLETED. 
16H RECEIVED DATA AVAILABLE INTERRUPT FAILED TO CLEAR 
17H TRANSMITTER HOLDING REG EMPTY INTR FAILED TO CLEAR 
18H-1BH RECEIVER LINE STATUS INTERRUPT FAILED TO CLEAR 
1CH-1FH MODEM STATUS INTERRUPT FAILED TO CLEAR 


ON EXIT 


= THE MODEM OR SERIAL PRINTER'S 8259 INTERRUPT (WHICHEVER 
DEVICE WAS TESTED) IS DISABLED. 
- THE 8250 IS IN THE MASTER RESET STATE. 


ONLY THE DS REGISTER 1S PRESERVED - ALL OTHERS ARE ALTERED. 


EQU 84H 3 LOOP BACK TRANSMISSION TEST 
3 INTERRUPT VECTOR ADDRESS 


ASSUME CS:CODE,DS:DATA 
NEAR 


PROC 

PUSH DS 

IN AL, INTAOL ; CURRENT ENABLED INTERRUPTS 

PUSH AX ; SAVE FOR EXIT 

OR AL,oo000001B DISABLE TIMER INTR DURING THIS 

out INTAOL,AL 

PUSHF ; SAVE CALLER'S FLAGS (SAVE INTR 
3 A 

PUSH DX 3} SAVE BASE ADDRESS OF ADAPTER CARD 

CALL ODDS i SET UP TDATAY AS DATA SEGMENT 
; ADDRESS 


INITIALIZE PORTS FOR MASTER RESET STATES AND TEST PERMANENT 
ZERO DATA BITS FOR CERTAIN PORTS. 


INS8250 INTERRUPT SYSTEM TEST 
ONLY THE INTERRUPT BEING TESTED WILL BE ENABLED. 


AT2: 


SET DI AND SI FOR CALLS TO ‘SUI* 


MoV DI,OFFSET IMASKS ; BASE ADDRESS OF INTERRUPT MASKS 
xOR SI,SI 3 MODEM INDEX 
CMP DH.2 3 OR SERIAL? 
JNE aT2 3 NO - IT'S MODEM 
INC SI 3 IT°S SERIAL PRINTER 
INC DI 3 SERIAL PRINTER 8259 MASK ADDRESS 
RECEIVED DATA AVAILABLE INTERRUPT TEST 
CALL Sur + SET UP FOR INTERRUPTS 
INC BL 3 ERROR REPORTER CINIT. IN 18250) 
INC Dx 3 POINT TO INTERRUPT ENABLE 
3 REGISTER 
MOV Al,i 3 ENABLE RECEIVED DATA AVAILABLE 
3 INTR 
ouT DX,AL 
PUSH BX 3 SAVE ERROR REPORTER 
adD DX,4 3 POINT TO LINE STATUS REGISTER 
MoV AH,1 3 SET RECEIVER DATA READY BIT 
MOV BX,0400H 3 INTR TO CHECK, INTR IDENTIFIER 
MoV cX,3 3 INTERRUPT ID REG ‘INDEX’ 
CALL Ict 3 PERFORM TEST FOR INTERRUPT 
PoP Bx 3 RESTORE ERROR INDICATOR 
CMP AL,OFFH 3 INTERRUPT ERROR OCCUR? 
JE AT4 > YES 
CALL C5059 3 GENERATE 8259 INTERRUPT? 
Jc AT5 3 NO 
DEC Dx 
DEC DX 3 RESET INTR BY READING RECR BUFR 
IN AL,DX 3 DON'T CARE ABOUT THE CONTENTS! 
INC Dx 
IWC Dx 3 INTR ID RE 
CALL W8250C 3 WAIT FOR TNTR TO CLEAR 
JNC ATS 3 OK 
JMP AT1S 3 DIDN'T CLEAR 


baal HOLDING REGISTER EMPTY INTERRUPT TEST 


5S TEST HAS BEEN MODIFIED BECAUSE THE DIFFERENT 8250'S 
THAT MAY BE USED IN PRODUCING THIS PRODUCT DO NOT FUNCTION 
THE SAME DURING THE STANDARD TEST OF THIS INTERRUPT 
(STANDARD BEING THE SAME METHOD FOR TESTING THE OTHER 
POSSIBLE 8250 INTERRUPTS). IT IS STILL VALID FOR TESTING 
IF AN 8259 INTERRUPT IS GENERATED IN RESPONSE TO THE 8250 
INTERRUPT AND THAT THE 8250 INTERRUPT CLEARS AS IT SHOULD. 


IF THE TRANSMITTER HOLDING REGISTER EMPTY INTERRUPT IS NOT 
GENERATED WHEN THAY INTERRUPT IS ENABLED, IT IS NOT TREATED 
AS AN ERROR. HOWEVER, IF THE INTERRUPT IS GENERATED, IT 
aie ie AN 8259 INTERRUPT AND CLEAR PROPERLY TO PASS 


CALL SUI 3 SET UP FOR INTERRUPTS 

INC BL + BUMP ERROR REPORTER 

DEC Ox 3 POINT YO INTERRUPT ENABLE 
3 REGISTER 
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02 
Mov AL.2 5; ENABLE XMITTER HOLDING REG EMPTY 
3 INTR 
00 OUT DX,AL 
JMP $42 + 170 DELA 
cy INC Dx 3 INTR CEL ENTIFICATION REG 
atsis IN hu, Dx EAD IT 
' +R 
ue cup *2 + XMITTER HOLDING REG EMPTY INTR? 
Fs Loop ATS — 
a2 snp SHORT AT6 ; THE INTR DIDN’T OCCUR - TRY NEXT 
; TEST 
12E7 R ATS2: ; THE INTR DID OCCUR 
as CALL 5059 3 GENERATE 8259 INTERRUPT? 
AT 3 ON 
12FA R ZaLL | UWB250C i GAIT FOR THE INTERRUPT TO CLEAR 
+ CIT SHOULD ALREADY BE CLEAR 
; BECAUSE ‘ICT’ READ THE INTR ID 
Tr 3; REG) 
_—— Nc ATs ; IT CLEARED 
ee IMP AT1S ; ERROR 
i AT4: IMP ATLL ; AVOID OUT OF RANGE JUMPS 
ATS: SMP SHORT AT10 aS 
+ RECEIVER LINE STATUS INTERRUPT TEST 
3 E ARE § BITS WHICH COULD GENERATE THIS INTERRUPT. 
3 EACH ONE IS TESTED INDIVIDUALLY. 
3 WHEN: AH TESTING 
3 —~— weer = 
; 2 OVERRUN 
3 ‘ PARITY 
; 3 FRAMING 
3 10H BREAK INTR Sus 
ATé: ——DEC Dx + POINT TO INTERRUPT ENABLE 
3 REGIST 
a4 Mov AL.4 + ENABLE RECEIVER LINE STATUS INTR 
OUT DX, AL 
C2 04 ADD DXx,4 ; POINT TO LINE STATUS REGISTER 
0003 nov cx, 3 i INTR ID REG * INDEX’ 
0004 MoV BP,4 3 LOOP COUNTE 
02 MOV AH. 2 ; INITIAL BIT R To Be TESTED 
12D6 R at7: CALL. = sSUT ; SET UP FOR INTERRUPTS 
cs INC BL ; BUMP ERROR REPORTER 
PUSK BX 3 SAVE IT 
0601 MOV BX, 0601H ; INTR TO CHECK, INTR IDENTIFIER 
12B4 R CALL =s«ICT ; PERFORM TEST FOR INTERRUPT 
POP BX 
LE AND AL,OOO122108 © ; MASK OUT BITS THAT DON'T MATTER 
c4 CMP AL, AH ; TEST BIT ON? 
5D JNE aT. 3 NO 
12E7 R CALL C5059 ; GENERATE 8259 INTERRUPT? 
56 Jc AT10 ; NO 
EA 03 SUB DX. 3 3 INTR ID REG 
12FA R CALL «=—- W8250C ; WAIT FOR THE INTR TO CLEAR 
a3 INC AT7_0 3; OK 
124E R JMP avis 3 IT DIDN'T 
AT7_0: DEC BP ; ALL FOUR BITS TESTED? 
07 JE AT ; YES - GO ON TO NEXT TEST 
E4 SHL AH, 1 ; GET READY FOR NEXT BIT 
C2 03 ADD Dx. 3 > LINE STATUS REGISTER 
DS JP AT? ; TEST NEXT BIT 
piricsneineneanitaeaemasepe wieattio Gon eae ssaesalsanueeem Leek 
e MODEM STATUS INTERRUPT TEST 
3 THERE ARE © BITS WHICH COULD GENERATE THIS INTERRUPT. 
3 THEY ARE TESTED INDIVIDUALLY. 
3 WHEN: A TESTING 
: | ES 
3 1 DELTA CLEAR TO SEND 
3 2 DELTA DATA SET READY 
3 4 TRAILING EDGE RING INDICATOR 
; 8 DELTA RECEIVE LINE SIGNAL DETECT 
Peal icduadsswssenon wate eee See une peu a gaenses onset ebemesEaeES 
c2 04 AT8: ADD DX,4 ; MODEM STATUS REGISTER 
IN AL, DX ; CLEAR DELTA BITS THAT MAY BE ON 
; BECAUSE OF DIFFERENCES AMONG 
00 JP 642 + 170 DELAY 
EA 05 SUB DX, 5 + INTERRUPT ENABLE REGISTER 
cc MOV ALLS 3 ENABLE MODEM STATUS INTERRUPT 
OUT DX, AL 
c2 0S ADD DX, 5 3 POINT TO MODEM STATUS REGISTER 
oe ea MOV cx.4 3 INTR ID REG 'INDEX® 
5008 MOV BPA ; LOOP COUNTER 
ze MOV AH, 1 3 INITIAL BIT TO BE TESTED 
1206 R& avo: CALL SUT 3 SET UP FOR INTERRUPTS 
s INC BL ; BUMP ERROR INDICATOR 
PUSH = BX ; SAVE IT 
wine MOV BX.0001H 3 INTR TO CHECK, INTR IDENTIFIER 
weet CALL OCT ; PERFORM TEST FOR INTERRUPT 
POP BX 
ee AND AL, QOCOLLI1B +: MASK OUT BITS THAT DON'T MATTER 
CHP ALLA 3; TEST BIT ON? 
C4 JNE ATAL 3 NO 
i CALL «= C5059 ; GENERATE 8259 INTERRUPT? 
12E7 Jc ATL0 3 NO 
H a 
CALL OW ; R INTERRUPT TO CLEAR 
12FA R Jc ATL3 3 IT DIDN'T 
45 DEC BP 
JE ATA2 3 ALL FOUR BITS TESTED - GO ON 
08 SHL AH,1 3 GET READY FOR NEXT BIT 
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adD DX,4 3 MODEM STATUS REGISTER 

JMP av? 3 TEST NEXT BIT 
or POSSIBLE 8259 INTERRUPT CONTROLLER PROBLEN 
tie; nov am BLaieH, | «+ SET ERROR REPORTER eee fe 





i BITS/WORD, 2 STOP BITS, AND ODD PARITY. 
AT12: INC DX 3 LINE CONTROL REGISTER 
CALL «= $8250 
pece ee een nen een enn n ce ene nen e nnn nen e nant nena nena enen een een nee os 
; SET DATA SET CONTROL WORD TO BE IN LOOP MODE 
Fenn eecene cen canner ene cn en nnn neem enn n nen en een enn enneeen= 
ADD DX,4 
IN AL, DX 3 CURRENT STATE 
JMP $42 3 170 DELAY 
OR AL,000100008 =; SET BIT 4 OF DATA SET CONTROL REG 
out DX, AL 
IMP $42 + 170 DELAY 
INC Dx 
INC DX 3 MODEM STATUS REG 
IN AL, DX 3; CLEAR POSSIBLE MODEM STATUS 
3 INTERRUPT WHICH COULD BE CAUSED 
3 BY THE OUTPUT BITS BEING LOOPED 
3 TO THE INPUT BITS 
mp $42 ; 170 DELAY 
SUB DX+6 3} RECEIVER BUFFER 
IN AL, DX ; DUMMY READ TO CLEAR DATA READY 
; BIT IF IT WENT HIGH ON WRITE TO 
3 MCR 
peeeee ene ene nnn e enn nnn e nnn n nnn n erence eee ne ne een enn n ene nennneenen 
; PERFORM THE LOOP BACK TEST 
3 me we we we we oo we we we FS SS 
INC Dx 3 INTR ENBL REG 
PUSH = DX 3 
MOV DX, JOY_PORT ; 
IN AL, DX 3 
AND AL, OFOH 3 
cMP AL,00100000B =; SERVICE MODE LOOP? 
POP Dx i 
JE AT13_0 3 YES- 
Mov AX,RESET_FLAG i 
cMP AX, 3412H 3} WARM START WITH "CTRLSALT+INS™? 
mov AL,O 3 SET FOR INTERNAL WRAP TEST 
JNE ATi3_1 3 YES- 
ATL3_0: MOV AL, OFFH 3 SET FOR EXTERNAL WRAP TEST 
ATI3_1: INT WRAP 3 DO LOOP BACK TRANSMISSION TEST 
mov cL,o 3 ASSUME NO ERRORS 
JNC ATA5 ; WRAP TEST PASSED 
ATL3: ADD BL, 10H 3 ERROR INDICATOR 
; AN ERROR WAS ENCOUNTERED SOMEWHERE DURING THE TEST 
AT14: MOV Clot 3 SET FAIL INDICATOR 
Meee een nana cen nn nnn nnnnnnnn nn nn nen nn nen en nner esermeceanscse a 
3 HOUSEKEEPING: RE-INITIALIZE THE 8250 PORTS (THE LOOP BIT 
; WILL BE RESET), DISABLE THIS DEVICE INTERRUPT, SET UP 
3 REGISTER BH IF AN ERROR OCCURRED, AND SET OR RESET THE 
; CARRY FLAG. 
AT1S: POP Dx } GET BASE ADDRESS OF 8250 ADAPTER 
PUSH = BX 3 SAVE ERROR CODE 
CALL 18250 ; RE-INITIALIZE 8250 PORTS 
PO 
mov AH, CS:(DIJ 3 GET DEVICE INTERRUPT MASK 
AND INTR_FLAG)AH 3. CLEAR DEVICE'S INTERRUPT FLAG BIT 
XOR AH, OFFH 3 FLIP BITS 
IN AL, INTAOL 3 GET CURRENT INTERRUPT PORT 
OR AL, AH } DISABLE THIS DEVICE INTERRUPT 
OUT INTAOL,AL 
POPF + RE-ESTABLISH CALLER'S INTERRUPT 
3 FL 
OR cL,ct ; ANY ERRORS? 
JE ATA? 3 NO 
MOV BH, 24H 3; ASSUME MODEM ERROR 
CMP DH, 3 OR IS IT SERIAL? 
JNE ATI6 3 IT'S MODEM 
MoV BH, 23H 3 IT'S SERIAL PRINTER 
AT16: STC 3 SET CARRY FLAG TO INDICATE ERROR 
IMP SHORT AT18 
AT17: CLC 3 RESET CARRY FLAG ~ NO ERRORS 
AT18: POP Ax ; RESTORE ENTRY ENABLED INTERRUPTS 
OUT INTAQL,AL ; DEVICE INTRS RE-ESTABLISHED 
POP DS 3 RESTORE REGISTER 
UART —_- ENDP 


SET 9600 BAUD RATE AND DEFINE DATA WORD AS HAVING 8& 


} SUBROUTINE 


INITIALIZE INS8250 PORTS TO THE MASTER RESET STATUS. 
THIS ROUTINE ALSO TESTS THE PORTS’ PERMANENT ZERO BITS. 


; EXPECTS TO BE PASSED: 


DX) = ADDRESS OF THE 8250 TRANSMIT/RECEIVE BUFFER 


1 IF ONE OF THE PORTS* PERMANENT ZERO BITS WAS NOT 


X) = PORT ADDRESS THAT FAILED TEST 


3 ( 

3 UPON RETURN: 

3 (CF) = 

; ZERO CERR) 
; (D 

é CAL) = 

; (BL) = 2 
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MEANINGLESS 
INTR ENBL REG BITS NOT 0 
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3 INTR ID REG BITS NOT 0 
4 MODEM CTRL REG BITS NOT 0 
5 LINE STAT REG BITS HOT 0 
LL PORTS" PERMANENT ZERO BITS WERE ZERO 
= TRANSMIT/RECEIVE BUFFER ADDRESS 
= LAST VALUE READ FROM RECEIVER BUFFER 


BL) = 5 (MEANINGLESS) 

PORTS SET UP AS FOLLOWS ON ERROR-FREE RETURN: 

XF9 - INTR ENBL REG = 0 ALL INTERRUPTS DISABLED 

XFA - INTR ID REG 00000001B NO INTERRUPTS PENDING 

XFB - LINE CTRL REG 0 ALL BITS LOW 

XFC - MODEM CTRL REG = 0 ALL BITS LOW 

XFD - LINE STAT REG 01100000B TRANSMITTER HOLDING 
REGISTER AND TRANSMITTER EMPTY ON 

XFE - MODEM STAT REG = XXXX0000B WHERE X ‘S REPRESENT 
INPUT SIGHALS 


ann 


FA 
DX) 
au) 


3 REGISTERS DX, AL, AND BL ARE ALTERED. WO OTHER REGISTERS USED. 


182560 =PROC NEAR 
N AL,DX 3 READ RECVR BUFFER BUT IGNORE 
3 CONTENTS 
MoV BL.2 3 ERROR INDICATOR 
CALL 2 3 READ INTR ENBL REG 
AND AL,12310000B 3 BITS 4-7 OFF? 
JHE aT20 3 NO - ERROR 
CALL RR1 3 READ INTR ID REG 
AND AL,11111000B 3 BITS 3-7 OFF? 
INE AT20 3 NO 
INC Dx 3 LINE CTRL REG 
CALL RR1 3 READ MODEM CTRL REG 
AND AL,12100000B 3 BITS 5-7 OFF? 
JNE AT20 3 NO 
CALL RR1 3 READ LINE STAT REG 
AND AL,10000000B 3 BIT 7 OFF? 
JHE AT20 3 NO 
mov AL,60H 
out DX, AL 
JMP $+2 3 170 DELAY 
INC ox 3 MODEM STAT REG 
xOR AL.AL 
ouT DX,AL 3 WIRED BITS WILL BE HIGH 
CALL RRS 3 CLEAR BITS 0-3 IN CASE THEY'RE ON 
3 AFTER WRITING TO STATUS REG 
SUB DX,6 3 RECEIVER BUFFER 
IN AL,DX 3 IN CASE WRITING TO PORTS CAUSED 
3 DATA READY TO GO HIGH! 
cic 3 NORMAL RETURN 
RET 
AT20: Bee 3 ERROR RETURN 
18250 ENDP 
SUBROUTINE 
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OR 
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3 
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; 
; 
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; 
3 
3 
; 
; 
3 
3 
3 OR 
i 

3 

; 


NO 
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TEST A PARTICULAR 8250 INTERRUPT. PASS IT THE 

(BIT @ ¢ 1) OF THE STATUS REGISTER THAT IS TO BE TESTED. 
THIS ROUTINE SETS THAT BIT AND CHECKS TO SEE IF THE CORRECT 
8250 INTERRUPT IS GENERATED. 


Pas ade TO BE PASSED: 


H) = BIT @ TO BE TESTED 
Cae SS arc IDENTIFIER 


= RECEIVED DATA AVAILABLE OR TRANSMITTER HOLDING 
REGISTER EMPTY INTERRUPT TE 


ST 
ql) = Ree NER LINE STATUS OR MODEM STATUS INTERRUPT 
(BH) = en DETERMINE WHICH INTERRUPT IS TO BE 


E 
MODEM STATUS 
TRANSMITTER HOLDING REGISTER EMPTY 
RECEIVED DATA AVAILABLE 
RECEIVER LINE STATUS 
LUE TO SUBTRACT AND ADD IN ORDER TO REFERENCE THE 
NTERRUPT IDENTIFICATION REGISTER 
(3) = RECEIVED DATA AVAILABLE, TRANSMITTER HOLDING 
REGISTER AND RECEIVER LINE STATUS INTERRUPTS 
(4) = MODEM STATUS INTERRUPT 
(DX) = heh aad THE LINE STATUS OR MODEM STATUS REGISTER 
(AL) = OFFH IF TEST FAILS - EITHER NO INTERRUPT OCCURRED OR 
THE WRONG INTERRUPT OCCURRED 


ruwwnx 


(cx) 


“< 


CAL) = CONTENTS OF THE INTERRUPT ID REGISTER FOR RECEIVED 
DATA AVAILABLE AND TRANSMITTER HOLDING REGISTER 
EMPTY INTERRUPTS 


-OR- 

CONTENTS OF THE LINE STATUS OR MODEM STATUS REGISTER 
DEPENDING ON WHICH ONE WAS TESTED. 

(DX) = ADDRESS OF INTERRUPT ID REGISTER FOR RECEIVED DATA 
a tteeupTS TRANSMITTER HOLDING REGISTER EMPTY 
N U 


(DX) = ADDRESS OF THE LINE STATUS OR DATA SET STATUS 
REGISTER (DEPENDING ON WHICH INTERRUPT WAS TESTED) 

OTHER REGISTERS ARE ALTERED. 

proc NEAR 

IN AL.OX 


READ STATUS REGISTER 


ane 42 3 170 DELAY 

OR AL, AH 3 SET TEST BIT 

out DX, AL 3 WRITE IT TO THE STATUS REGISTER 
SUB DX.CX 3 POINT TO INTERRUPT ID REGISTER 
PUSH 
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2B CY 


AaB 01 
74 02 
E2 F9 


3a C? 
75 08 
OA DB 
74 06 
es DI 


EC 
cs 


BO FF 
cs 


FB 


2€: 8A 25 
20 26 0084 R 


E4 21 
22 C4 
&6 21 


58 
cs 


51 

28 C9 

2E: 8A 05 
34 FF 


84 06 0084 R 
5 03 

E2 F8& 

F9 


59 
C3 


suB CX, CX ; WAIT FOR 8250 INTERRUPT TO OCCUR 
av2is IN AL, DX ; READ INTR ID REG 
TEST = AL 1 ; INTERRUPT PENDING? 
E AT22 ; YES -RETURN W/ INTERRUPT ID IN AL 
Loop) = AT22 + KO - TRY AGAIN 
AT22z: POP cx 3 AL_= 1 IF NO INTERRUPT OCCURRED 
cMP AL, BH ; INTERRUPT WE'RE LOOKING FOR? 
JNE AT23 + NO 
OR BL, BL ; DONE WITH TEST FOR THIS INTERRUPT 
JE AT24 } RETURN W/ CONTENTS OF INTR ID REG 
ADD DX, CX 3 READ STATUS REGISTER TO CLEAR THE 
IN AL, DX s INTERRUPT (WHEN BL=1) 
RET s RETURN CONTENTS OF STATUS REG 
AT23: MOV AL, OFFH 3 SET ERROR INDICATOR 
AT24: RET 
IcT ENDP 
} SUBROUTINE 
; SET UP CONDITIONS FOR 8250 TESTING 
+ pescriPTION 
; 0 SET UP CONDITIONS FOR THE TESTING OF 8250 AND 
; 8259 INTERRUPTS. ENABLES MASKABLE EXTERNAL INTERRUPTS, 
; CLEARS THE 8259 INTR RECEIVED FLAG BIT, AND ENABLES THE 
; DEVICE'S 8259 INTR (WHICHEVER IS BEING TESTED). 
; IT EXPECTS TO BE PASSED: 
; CDS) = ADDRESS OF SEGNENT WHERE INTR FLAG IS DEFINED 
3 DI) = OFFSET OF THE INTERRUPT BIT MASK 
} UPON RETURN: 
3 INTR_FLAG BIT FOR THE DEVICE = 0 
; NO REGISTERS ARE ALTERED. 
SUI PROC — NEAR 
PUSH = AX 
STI 3 ENABLE MASKABLE EXTERNAL 
3 INTERRUPTS 
mov AH, CS: (DI) 3 GET INTERRUPT BIT MASK 
AND TNTRFLAG,AH i CLEAR 8259 INTERRUPT REC'D FLAG 
, 
In AL, INTAOL 3 CURRENT INTERRUPTS 
AND AL, AH ; ENABLE THIS INTERRUPT, TOO 
ouT INTAOL,AL ; WRITE TO 8259 CINTERRUPT 
3 CONTROLLER) 
POP Ax 
RET 
SUI ENDP 
ah 
3 SUBROUTINE 
3 CHECKS IF A 8259 INTERRUPT IS GENERATED BY THE 
3 8250 INTERRUPT. 
3 EXPECTS TO BE PASSED 
3 (DI) = OFFSET OF INTERRUPT BIT MASK 
; (DS) = ADDRESS OF SEGMENT WHERE INTR_FLAG IS DEFINED. 
3 RETURNS 
3 = 1 IF NO INTERRUPT IS GENERATED 
3 0 IF THE INTERRUPT OCCURRED 
i (AL) = COMPLEMENT OF THE INTERRUPT MASK 
; NO OTHER REGISTERS ARE ALTERED. 
Ne neee ena ceen cen cre nena nnn nnne sen eeenneennnennnneennnnnennnnennnn 
C5059 PROC NEAR 
PUSH CX 
SUB 6X, CX 3 SET PROGRAM LOOP COUNT 
mov AL, CS:(DI) 3 GET INTERRUPT MASK 
XOR AL, OFFH i COMPLEMENT MASK SO ONLY THE INTR 
3 TEST BIT IS 0 
AT25: TEST  INTR_FLAG,AL 3. 8259 TRTERRUPT OCCUR? 
JNE AT27 3 YES - CONTINUE 
LOOP = AT25 3 WAIT SOME MORE 
sTC 3 TIME'S UP - FAILED 
MSCBIOL0. INC 
AT27: POP cx 
RET 


7 SUBROUTINE 


TO WAIT FOR ALL ENABLED 8250 INTERRUPTS TO CLEAR (SO 
NO INTRS WILL BE PENDING). 
1 MILLISECOND YO CLEAR. THE INTERRUPT IDENTIFICATION 
REGISTER WILL BE CHECKED UNTIL THE INTERRUPT(S) IS CLEARED 


(DX) 
RETURHS: 

CAL) 

(CF) 


; 

r 

; 

; 

; OR 

3 EXPECTS 10 
; 

, 

; 

; 


Ss 
AT28: IN 


AT291 cic 
AT3O: POP 


A TIMEOUT - otlagean 


BE PASSED 
ADDRESS OF THE INTERRUPT ID REGISTER 


CONTENTS OF THE INTR ID REGISTER 

IF INTERRUPTS ARE STILL PENDING 

; IF NO INTERRUPTS ARE PENDING CALL CLEAR) 
+ NO OTHER REGISTERS ARE ALTERED. 


SHORT AT3O 
cx 


A-254 


ee we we we ve 


EACH INTERRUPT COULD TAKE UP TO 


READ INTR ID REG 
INTERRUPTS STILL PENDING? 
NO - GOOD FINISH 

KEEP TRYING 

TIME'S UP - ERROR 











130A 
W8250C ENDP 


SUBROUTINE 


3 

; TO SET AN INS8250 CHIP’S BAUD RATE TO 9600 BPS AND 

; DEFINE IT'S DATA WORD AS HAVING 8 BITS/WORD, 2 STOP BITS, 
; AND ODD PARITY. 

; modes TO BE PASSED 

3 DX) = LINE CONTROL REGISTER 

3 UPON RETURN: 

; (DX) = TRANSMIT/RECEIVE BUFFER ADDRESS 

; ALTERS REGISTER AL. ALL OTHERS REMAIN INTACT. 






0A i BEB RRO RR teen en nnn new eww ewe n new nnn neennnrseeernn Se ee eee ae 
$8250 PROC NEAR 
tase te _ MOV AL, 80H 3 SET DLAB = 1 
130D EB 00 our DX, AL 
tste oe GA SS 2uB Dxe3 3 Tg8 OF DIVISOR LATCH 
ims ceo” MOV AL, 12 ; DIvrsoR = 12 PRODUCES 9600 BPS 
our DX, AL 3 SE 
ny ef IMP $42 ; 170 DELA 
isis. Le INC DX ; MSB OF DIVISOR LATCH 
iin te mov AL,O i HIGH ORDER OF DIVISORS 
out DX, AL 3 
i oo ynp $42 ; 170 DELAY 
ISIE 42 INC DX 3 LINE CONTROL REGISTER 
131F BO OF MOV AL,OOOO11118 3; 8 BITS/WORD. 2 STOP BITS, ODD 
+ PA 
1322 EB 90 one tee 1/0 DELAY 
+ ; 
1324 83 EA 03 Sus DX,3 3 RECEIVER BUFFER 
1327, EC IN AL, DX ; IN CASE WRITING TO PORT LCR 
368 x 3} CAUSED DATA READY TO GO HIGH! 
ET 
1329 $8250 ENDP eee A ee 
Seen O UNREAD AN 8250 REGISTER. MAY ALSO BUMP ERRO 
i REPORTER (BL) AND/OR REG DX (PORT ADDRESS) DEPENDING ON 
; THIS SUOROUTING WAS WRITTEN TO AVOID MULTIPLE USE OF 170 
; TIME DELAYS FOR THE 8250. IT WAS THE MOST EFFICIENT WAY TO 
INCLUDE THE DELAYS. 
; UPON RETURN 
REG AL WILL CONTAIN THE CONTENTS OF PORTCDX) — a 
1329 RRL PROC NEAR 
1329 32 C0 XOR ALL AL 
1323 EE out DX, AL 3 DISABLE ALL INTERRUPTS 
132¢ FE C3 INC BL ; BUMP ERROR REPORTER 
132E 42 RR2: INC Dx 3 INCR PORT ADDR 
132F EC RRS: IN AL, DX 3 READ REGISTER 
1330 C3 
1331 RR1_—_ENDP 
} THESE ARE THE VECTORS WHICH ARE MOVED INTO: 
; THE 8086 INTERRUPT AREA DURING POWER ON. : 
3 ONLY THE OFFSETS ARE DISPLAYED HERE, CODE : 
; SEGMENT WILL BE ADDED FOR ALL OF THEM, EXCEPT : 
; WHERE NOTED. : 
5 ASSUME CS:CODE 
15¢0 ORG BEGIN¢15COH 
15€0 VECTOR_TABLE LABEL” WORD ; VECTOR TABLE FOR MOVE TO INTERRUPTS 
1560 0000 E DW OFFSET TIMER_INT 3 INTER 08 
15¢2 0000 E DW OFFSET KB_INT ; INTERRUPT 09H 
154 0599 R DW OFFSET 3 INTERRUPT OAH 
1566 0599 R DW OFFSET D1 3 INTERRUPT OBH 
158 0599 R DW OFFSET Di} 3 INTERRUPT OCH 
15CA 0599 R Dw OFFSET Dil 3 INTERRUPT ODH 
15¢c 0000 E Dw OFFSET DISK_INT 3} INTERRUPT OEH 
15CE 0599 R DW OFFSET Dll 3 INTERRUPT OFH 
1500 0000 E DW OFFSET VIDEO_I0° 3 INTERRUPT 10H 
15D2 0000 E DW OFFSET EQUIPMEN 3 INTERRUPT 11H 
1504 0000 € DW OFFSET MEMORY SIZE_DETERNINE ; INTERRUPT 12K 
15D6 0000 E Dw OFFSET DISKETTE_I0 3 INTERRUPT 13H 
1508 0000 E DW RS232_10_ ; INTERRUPT 14H 
15DA 0000 E Ow CASSETTE 10 3 INTERRUPT 15H 
50c 0000 E DW OFFSET KEYSOARD_IO ; INTERRUPT 16H 
1 DE 0000 E ow OFFSET PRINTER_YO ; INTERRUPT 17H 
3 0 0000 OW 00000K 3 INTERRUPT 18H 
et 0000 E ow OFFSET BOOT_STRAP 3 INTERRUPT 19H 
ieee 0000 E Ow TIME_OF_DAY 3 INTERRUPT LAH 
tate asco R DW DUMMY_RETURN 3 INTERRUPT 1BH ~ KEYBD BREAK ADDR 
13s osco R DW DUMMY RETURN 3 INTERRUPT 1CH - TIMER BREAK ADDR 
158 co E DW VIDEO_PARMS 3 INTERRUPT 1DH 
13Ee 0000 E DW OFFSET DISK BASE ; INTERRUPT 1EH 
15EE OSCOR ow _DUMMY _RETUR 3 INTERRUPT 1FH 


adele 


POWER ON RESET VECTOR 3 


— POWER ON RESET 


DB OEAH 3 JUMP FAR 

15FO EA DW OFFSET RESET 
1SF1 oat R DW OF800H 3 CODE SEGMENT 

FS 
a 30 39 2F $1 30 2F DB "09710784" + RELEASE MARKER 
1SF5 

38 34 
DB OFFH + FILLER 
isFD FF 
A-255 





Appendix A. 


DB OEDH 3 SYSTEM IDENTIFIER € 


ISFE ED 
; DB OFFH 3 CHECKSUM 
ASFF POST_END LABEL FAR 3 
15FF CODE EXDS 
END 
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Appendix B- Logic Diagrams 
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Appendix B. Logic Diagrams : 
: 12 pens 





10/-M 
THASED ROM : 
a f 
-EROM 4 J : 
=EROM 51 
B : ROM 6 2 
ow 7 
¢ {1 -6p)——MEMR 
(1-86)—O8 : 


(1- ap) —MEMW 


-8259 CS 


(1- 8C) 
(1-8C) 





[a 


‘e@ 
| 





Cee Sponge enmmemmese—y am “~*~ » 


Appendix C 
Character Code Table/Character Font 
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Appendix C. Character Code Table/Character Font 


=" Display Character Code(AN of CG1) 


bit 4~7 










i] ¢|%h Fe 


Ey Elks 
EGS IAPC 
BSS e eae GCI 
re] 3+ [- [S[N[Ain [Ale «PBS el 
LF lee] - [7] ?]O]_Jo[ AlAs [> ROL 
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= Display Character Code (ANK of CG2) 


bit 4~7 


RORBSGEORBA ABO 
: jyatr=foleley fel Lis 


es 
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Appendix C. Character Code Table/Character Font 


= Thermal Printer (1BM5513) Character Code 


bit 4~7 
i" Ee REESE EERE ESE 
eye fa Je fe fe Je fe fee 








2 
Cc 
rm 
Q 
KR 
mo 
ca) 
ep 
bells 
IT 
mA 
7 


wro 3!q 


Qo ;7 
a)7 


</r ijrz 
O 
O 
> 


@) 
a 1 [+- | D> | be ty. 
re) 2 





¢ 


Pe feo pw Pe fa ee Jee 
pe fsife fe fe jo f je foecfa [TF Je |a [sp 


Remark) Applied in English Mode 
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Thermal Transfer Printer (IBM5512) Character Code 


The IBM 5512 has three kinds of character sets: 


1. PC character set 
corresponds to AN of character generator 1. 

2. Nihongo DOS character set 
corresponds to ANK of character generator 2. “7F”, however, is X 
and “AO” is blank. 

3. Kana character set (See the following chart) 


bit 4~7 


po sel alale[e [2] s[alalalelolele! 
Gre eal lai 









wo 11g 


[= [= [* le |e | ape [4 








N 
a |> 





ee se | 
Fea eli RSs 





3] $=|]0] a feJO 
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Appendix C. Character Code Table/Character Font 


=» Scan Code 
The following chart shows scan codes for Native and English modes. 
( ) is for English mode. 


Scan 
Key | Code 


77 (4D) 
78 (47) 


Fn | 79 (48) 


{(aJjz 
\ 
Z 
X 
Cc 
Vv 
B 
N 
M 





2 Feeee 

a aaa 
OE eeeEeeeeel IESE 

MPEP CRRAAFAS lo 
Ss esseueat th: 

BIS) ABI Bae eee 
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# Keyboard Hankaku (half-size) Character Code (1 of 2) 














































































































































































Lower Case | Upper Case] | 
Esc 1B | Esc 1B_ | Esc 1B | Esc 1B (Cassette) —] 
1 31 ! 21 x C7 sail! Null+78 
2 32 ~ €¢ NUL(00) Null+79 
3 33 7 Bil y AT =i Null+7A 
4 34 7 38a y AQ =I Null+7B 
5 35 x= B4 xz AA =i] Null+7C 
6 36 4 BS a AB RSO(1E) Null+7D 
7 & vy D4 + AC a] Null+7E 
8 * 2 D5 2 AD —1 Null+7F 
9 ( 3 D6 3 AE ~~ Null+80 
0 ) ? Ie 7 A6 =] Null+81 
- = m* CE ~] US(1F) Null+82 
+ 2F ~ CD al | ~~] Null+83 
EiB* 08 ZiR* 08 DEL(7F) a | 
— — Null +0F | —o 09 =| K— Null+0F coat | =} 
q 71 Q 51 ¥ C0 ==} DC1(11) Null+10 
Ww 77 W “957 7 CG =~) ETB(17) Null+11 
e 65 E 45 4 B2 A8 ENQ(05) Null+12 
r 72 R 52 A BD —~] DC2(12) Null +13 
t 74 T 54 7 B6 =i], DC4(14) Null+14 
y 79 Y 59 »’ DD —] EM(19) Null+15 
u 75 U 55 i, NAK(15) Null+16 
i 69 I 49 —= C6 HT(09) Null+17 
) 6F O 4F 7 D7 SI(0F) Null+18 
p 70 P 50 v DLE(10) Null+19 
[ 5B { 7B Esc(1B) -1 
5D } 7D GS(1D) =] 






a 


—“~ oo 


qi 


** 0D LF(0A) =I 


Remark : '—1, is "Not Used). 


Hvveees Backspace 
* *--» Carriage Return 
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# Keyboard Hankaku (half-size) Character Code (2 of 2) 























CTRL 
Upper Case[ 
1 -l —-] 











































































































a 61 A 41 =] SOH(01) Null+1E 
s 73 S 53 =i DC3(13) Null+1F 
d 64 D 44 =] EOT(04) Null+20 
f 66 F 46 —l ACK(06) Null+21 
g 67 G 47 -1 BELL(07) Null+22 
h 68 H 48 —1 BS(08) Null+23 
j 6A J 4A aa | LF(0A) Null+24 
k 6B K 4B asl VT(0B) Null+25 
1 6C L a —1 FF(0C) Null +26 
i 3B : 3A —1 -1 ae | 
27 se 22 —1 -1 -1 
‘ 60 |(~) -1 J A3 —1 a= 
Left Shift—1 -1 -1 =] — 4 





















(\) 7C -1 —] -1 






































| 
Z SA » AF SUB(1A) Null+2C 
X 98 —1 CAN(18) Null+2D 
C 43 =] EXT(03) Null+2E 
Vi SOS6 SYN(16) Null+2F 
B 42 STX(02) Null +30 
N 4E $0(02) Null+31 
M 4D CR(0D) Null+ 32 
< 3C =~ | at 
> 3E = ag 
? 3F = aa | 















Right Shift—1 
* 2A 






=] 
Prt -1 
Screen 


-1 
Echo -1 


—| 
=i 











Screen 








¥ §¢ 7E 





Remark : —1 4 is "Not Used. 
> (\) and (~) are valid only in English mode. 
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» Keyboard Zenkaku (full-size) Character Code (1 of 2) 


Scan Alphanumeric Katakana 
Code |Lower Case Upper Case|Lower Case Upper Case|Lower Case Upper Case 
1 


836B -1 82CA = 
=I 
8340 
8344 
8346 
8248 
8383 
8385 
8387 
8392 
8192 
8158 
—1 
=} 


























Remark: '—1 is "Not Used). 


Appendix C. Character Code Table/Character Font 
« Keyboard Zenkaku (full-size) Character Code (2 of 2) 


Scan [_Alphanumerte 
Code 


Lower Case Upper Case|Lower Case Upper Case|Lower Case Upper Case 
—-1 -1 


ai] -] 
=] -1 





Remark : "—1, is ‘Not Used). 


= Keyboard Character Code 


CTRL 


Alt 
Space 
AN 
PF1 
PF2 
PF3 
PF4 
PF5 
PF6 
PF7 
PF8 
PF9 
PF10 
Scroll 
Lock 
Home 


Cur up 


Cur left 
Cur right 
+ 

Cur down 
GA 
BURR 

Fn 
ay 
PRAT HR 
Beit 
AVAF 
US 28% 


Remark 


a 

—~ | 
Null+3B 
Null+3C 
Null+3D 
Null+3E 
Null+3F 
Null+40 
Null+41 
Null+42 
Null+43 
Null+ 44 

—-1 


Null+47 
Null+ 48 
2D 
Null+4B 
Null+4D 
2B 
Null +50 
Null+52 
Null +53 
aati | 
nt, y 


im 
=] 
Null+54 
Null+55 
Null +56 
Null+57 
Null+58 
Null+59 
Null+5A 
Null+5B 
Null+5C 
Null+5D 
= 


Null+47 
up Null+48 
_ 2D 
Cur left Null+4B 
Cur right Null+4D 

+ 2B 
Cur down Null+50 
i A Null +52 
(Num Pad '‘.’) 
=, 
w+ ~Al 
PEAT 20 
Brig 20 
AIAF oad | 
Vorwmsye =] 


Home 
Cur 


>f—1, is "Not Used). 
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a 
—1 
Null+5E 
Null+5F 
Null +60 
Null+61 
Null+62 
Null +63 
Null+64 
Null +65 
Null+66 
Null +67 
— I] 


Null+77 
=] 
aa | 

Null+73 

Null +74 
at 
I 
mat | 
-1 
ae | 
oe | 
1 
ae | 
= 
=1 


Space 


PF31 
PF32 
PF33 
PF34 
PF35 
PF36 
PF37 
PF38 
PF39 
PF40 


=1 

20 

aoa | 
Null+68 
Null+69 
Null+6A 
Null+6B 
Null+6C 
Null+6D 
Null+6E 
Null+6F 
Null+70 
Null+71 

=] 





Appendix C. Character Code Table/Character Font 


= Combined key functions 


Key combination Function sample 


+Scroll Lock Break 






































+ Efi Echo 

(oa) + ENR Print Screen 
Fn+Q Pause 

+Fn+N Numeric Lock 
Fn+ (-] Page Up 

Fn+ Page Down 






Home Position 
End 
Screen Clear (BASIC) 


Execution 


or Fnt+(_t } 
Fn+(_4 ] 

(ctr} +L) 

Fnt+ (+ } 


Fn+H 

(arma) + (Ctri} + L— } 
(atm) + (Ctr) +C— ) 
(am) + (Ctr) + [A] 
(air) + (Ctrl) + (HIER) 
(Ctrl) +ESC 


Fn+T 















Interrupt 
Screen right 





Screen left 







System Reset 





System Reset 







Cassette auto-load 






Termination 


Remark) Functions may differ from application to application. 
This is a sample. 
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6 


= Kanji ROM address calculation 


RA 


CPU 
address 


OND & WD — © 













L 





R 


©000006000060080 

e ; e 

2 @ 
eccccececcoe 

@ 

@ 8 
V/LLL LW "a ae 

\@ 





10 1 23.45 6 7:8 9 101112131415: 


2 byte Kanji code 


VASMAG 21109 8 765 4 32 


Calculation Sample 


10% XXX x*XxXXXXxXxXXxXxXxKKXKX 






1 0/3 2 1 OjL/R 


The Kanji ROM address for the shaded dot pattern can be calculated 
as follows: 


Kanji Code —= 10 0 1°00 0 0 
(90AF) 


RA=6 —- 


L/R=0 — 


ROM address —=— 1 0 0 0 00 1 
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Appendix C. Character Code Table/Character Font 
=» Character Font 


CG1 Alphanumeric: Special Character 8X8 

CG2 Alphanumeric: Special Char. and Katakana 8 X 8 
Alphanumeric » Special Char. Hankaku Char. of Katakana 8 X16 
Hiragana and Kanji 16X16 


01234567 0123456 


GN 

















0 0 Yj 
l; 
: Y) 
6 6 Y) 
7 } Cursor 7 } Cursor 
CG1 Sample: B CG2 Sample: B 
7X7 (8X8) 7X7 (8X8) 
Alphanumeric - Special Char. Alphanumeric - Spcial Char. - Katakana 
| 0123 4567 8 9 1011121314615 
0 of ©0008 08000008 
1 y 1 @ ® 
2 Y 2 ® cs) 
3Y 3 ©e2eeeeeeese 
4 Y 4 e ® 
5 @ @ 
“Y 6 e@e@e0000000080 
7 y 7 Ps 
8 8 @ @ 
oY 9 @e2e2e@00e0e00600080 
10 10 e 
if 11 & 
2Y 12 ee2eeeeeeee 
"Y) 13 e 
14 14 
15 Yj 15 
+1]1X XxX XX XXX +1 C 
Fale worn see | CPOE zl } Curso 
CG2 7X16 (8 X16) CG2 15X16 (16X16) 
Hankaku : Alphanumeric - Special Char. Kanji, Hiragana 
Katakana 


Remark (G@: Talways blank 
XX: cursor dot 
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=» Character Display Format of Extension Video mode 


-10 123 45 67 8 9 10111213 14 15+1 
-27AAAAAAAKAAKAAAAAKAAAABAA JA} Horizontal Grid Line 
=] a LLY 

@e2ee000000800 
@ e 
























e e 
Ree : saee2 Zenkaku (Full-size character) 


Onno f® WH — CO 







SSS EAA aw 


SQQgq_, 










h7, ceccesecceese/ 









— Vertical Grid Line 


-101234567 













a a 
VL 


Hankaku (Half-size Character) 


+Q]axx xX XXX XXX 
+ S]ox x xX X XX XXX 


L. Vertival Grid Lise 


} Cursor 


Remarks) MY: always blank, portion 
XX: Cursor dot 
4 :Grid Line dot 


®> 


Ind 


1 
12" Color 


ex 


Display, 1- 


4, 4-3 


12" Monochrome Display, 1-4 


128KB RAM 
14” Color 


6 
64KB RAM 


A 
Address C 


Card, 1-3, 
Display, 1- 


Card, 1-3, 4 


hange, 2-19 


4-6 


3 
» 4-33 


4, 4-33 


-2 


Asynchronous communication, 


Attribute 
Audio Int 


B 
Beep, 2-3 
BIOS, 5-1 


Block definition value, 


» 3-11, 3-12 
erface, 2-38 


8 
» 5-5, 5-43 


s 3-29 


Border Color Register, 3-20 


C 

Cartridge 
Cassette, 
CG1, 3-8 
CG2, 3-8 
Character 


Clock, 2- 
CMT Cable 
Compatibi 
Connector 
CPU, 2-7 
CRT Contr 


D 
Diskette 
Diskette 
Diskette 
Diskette 
Display, 
DOS, 2-50 


E 

English M 
Expanded 

Expansion 
Expansion 
Expansion 
Extension 
Extension 


» 2-47 
2-27 


Generator, 


8, 3-26 

» 1-4, 4-34 
lity, 6-1 

» 2-5, 2-6 


oller, 3-39 


2-1 
Character Generator 1, 3 
Character Generator 2, 3 


55 
-8 
~8 


Compatibility, 6-7 


controller, 
Drive, 1-3, 


Drive Adapter, 


4-33 


ode, 1-2, 


3- 
memory, 3-4 


Board, 1-5, 


Channel, 2- 


Unit, 1-5, 
Video Card, 
Video mode, 


4-13 
4-23, 


2 


4-36 
22 
4-37 

1=3, 

3-2, 


4-26 


2-16 


3-8 


6-4 


1-3, 4-12 


4-7 
4-7, 5-3 


X-1 


Extension Video Mode BIOS, 5-35 


G 

Gaiji RAM, 2-15 

Gate Array, 3-18, 3-33, 4-7 
General-use memory, 2-14 
Graphics, 3-13, 3-27, 3-31 


I 

1/0 address, 3-42, 5-49, 5-50 
Infrared Receiver, 2-42 
Interrupt, 2-8, 4-14 
Interrupt vector, 5-6 


J 
Joystick, 1-4, 4-35 
Joystick Interface, 2-44 


K 

Keyboard, 2-59 

Keyboard Cable, 1-4, 4-25 
Keyboard Cable Interface, 2-43 
Keyboard data, 2-39, 2-60 
Keyboard Interface, 2-39 


L 
Light Pen Interface, 3-40 


M 

Memory, 2-14, 6-6 

Memory Map, 3-5, 5-46 

Memory Space, 2-16, 5-47, 5-48 
Mode Control 1 Register, 3-19 

Mode Control 2 Register, 3-21 


N 

Native mode, 3-2 
Native Mode BIOS, 5-8 
Nativemode, 5-3 

NMI, 2-13 


0 

Operation Mode, 1-2, 5-3 
Optional Features, 4-1 

P 

Page, 1-3, 3-4 

Page Register, 3-4 
Palette, 3-24 

Palette Mask Register, 3-20 
Parallel Port, 2-10 

Port AO, 2-13, 2-41 
Power Unit, 2-62 
Printer, 1-4 


X-2 


Printer Cable, 1-5 
Printer Interface, 2-55 
Processing speed, 6-6 
Processor, 2-7 


R 

Register 0, 3-34 
Register 1, 3-34 
Register 2, 3-34 
Register 3, 3-35 
Register 4, 3-35 
Register 5, 3-36 
Register 6, 3-36 
Register 7, 3-37 


Reset Register, 3-22 

ROM cartridge, 2-47 
RS-232C, 1-4, 4-26, 6-5 
RS-232C Cable, 1-4, 4-32 


Ss 

Scan Code, 2-61, 5-45 
Self-diagnostic test, 2-48, 2-50 
Sound Generator, 2-31, 2-33, 6-4 
Sound Source, 2-32 

Sound Subsystem, 2-31 
Superimpose, 3-23, 3-26 

System Board, 2-3 

System ROM, 2-14, 2-47 

System Software, 5-3 


T 

Text Display, 3-11, 3-12, 3-29 
Timer, 2-7, 6-5 

Transparent Palette Register, 3-22 
TV Adapter, 1-4, 4-24 


U 
User memory, 6-4, 6-5 


V 

Video processor, 3-2 
Video RAM, 2-15, 3-4, 3- 
Video Subsystem (VSS), 3 
Virtual address, 3-4 
VP1, 3-1 
VP2, 3-1 
VP3, 3-1, 4- 
VRAM 1, 3-4 
VRAM 2, 3-4 
VSS, 3-1 


27, 3-28, 3-38, 4-7 
= 


7 


X-3 





